[RÉSOLU] Modifications macro mais comment?

un internaute

XLDnaute Impliqué
Bonjour le forum
Dans le fichier joint lorsqu'on fait Nouvelle Année (Année 2020) dans la cellule H7 je tape un nombre (exemple 70) mais dans la cellule J7 Il n'apparaît pas Année 2019 mais Année 2018
C'est volontairement que ce fichier est ainsi constitué. J'en ai un autre plus "logique" mais je le veut ainsi.
Je pense qu'il faut "bricoler" la macro mais où?

Merci pour vos retours
Cordialement
 

Pièces jointes

  • toto.xls
    157 KB · Affichages: 22
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonjour

Avant une idée , une observation: il n'y a pas de feuille Année 2016 dans ton fichier exemple
Du coup, ici cela bogue
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("H4:H15"), Target) Is Nothing And Target.Count = 1 Then
      Target = Int(Range("E" & Target.Row) - Sheets("Année 2016").Range("E16"))
      Cancel = True
    End If
End Sub
 

job75

XLDnaute Barbatruc
Bonjour un internaute, JM,

Dans la macro AjoutAnnee vous modifiez G4 alors modifiez aussi J4 :
VB:
  Range("G4:G15").Formula = "=IF('Année " & An1 & "'!H4>0,'Année " & An1 & "'!H4,0)"
  Range("J4:J15").Formula = "=IF(H4=0,0,(H4-('Année " & An1 & "'!H10)))"
Pas besoin des AutoFill...

A+
 

Pièces jointes

  • toto(1).xls
    180.5 KB · Affichages: 7

un internaute

XLDnaute Impliqué
Re job75
J'ai parlé un peu trop vite pas été au bout du "système"
Ça le fait bien pour J7 (Voir Année 2020)
Mais pas pour J13 ((Voir Année 2020)
Il faut mettre

VB:
  Range("J4:J9").Formula = "=IF(H4=0,0,(H4-('Année " & An1 & "'!H10)))"
Au lieu de J4:J15
Donc Résolu
Bon WE
 
Dernière édition:

un internaute

XLDnaute Impliqué
Bonsoir le forum
Y a t-il un as des formules?
Dans le fichier joint (job75) serait-il possible de lui faire faire des différences?
Je m'explique:
Quelques fois il peut arriver que le mois de relevé ne soit pas seulement Avril ou Octobre mais 1 mois avant ou 1 mois après.
Mais alors ça fait beaucoup de conditions
Merci d'avance pour vos éventuels retours
Cordialement
 

Pièces jointes

  • toto(1).xls
    215 KB · Affichages: 1
Dernière édition:

un internaute

XLDnaute Impliqué
Bonjour le forum
J'ai trouvé ça comme formule dans colonne J ça a l'ai de fonctionner et mis en commentaires la ligne
VB:
'  Range("J4:J9").Formula = "=IF(H4=0,0,(H4-('Année " & An1 & "'!H10)))"
dans macro AjoutAnnee
Bien cordialement
 

Pièces jointes

  • toto(1).xls
    215 KB · Affichages: 2

un internaute

XLDnaute Impliqué
Bonjour le forum bonjour job75
C'est pas tout à fait ça
Dans le fichier joint lorsque je fais Nouvelle Année que je tape dans le domaine H4:H9 (exemple 70 dans cellule H5) je dois trouver en cellule J5 =10 (H5 -G13)
Macro, formule ou les deux?
Merci pour vos éventuels retours
Cordialement
 

Pièces jointes

  • toto(1).xls
    218 KB · Affichages: 2
Dernière édition:

Discussions similaires