[RÉSOLU] Modifications macro mais comment?

U

un internaute

XLDnaute Impliqué

• 13 Avril 2019

• #2

Bonjour le forum
Personne a une idée?
Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Avril 2019

• #3

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 13 Avril 2019

• #4

BonjourStaple1600
Merci
Cordialement

 

Pièces jointes

• toto.xls

  200.5 KB · Affichages: 5

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Avril 2019

• #5

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

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 13 Avril 2019

• #6

Bonjour job75
NICKEL SUPER exactement ça
Bon WE à toi et au forum
Cordialement

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 13 Avril 2019

• #7

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: 13 Avril 2019

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 13 Avril 2019

• #8

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: 14 Avril 2019

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 14 Avril 2019

• #9

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

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 16 Avril 2019

• #10

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: 16 Avril 2019

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 16 Avril 2019

• #11

C'est bon
Cordialement

 

Pièces jointes

• toto(1).xls

  217 KB · Affichages: 1

Vote positif 0 Vote négatif