Macro pour éviter plusieurs saisies (RESOLU)

jpb388

XLDnaute Accro

• 1 Mars 2018

• #2

Bonjour à tous

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Mois$, An&
    If Target.Address <> "$G$5" Then Exit Sub
    Application.EnableEvents = False
    Mois = Format(Target, "mmm"): An = Year(Target)
    Range("c7") = "Stock " & Mois & " " & An - 2
    Range("c8") = "Stock " & Mois & " " & An - 1
    Range("c9") = "Stock " & Mois & " " & An
    Application.EnableEvents = True
End Sub

 

Vote positif 0 Vote négatif

luno123

XLDnaute Occasionnel

• 1 Mars 2018

• #3

jpb388 à dit:

Bonjour à tous

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Mois$, An&
    If Target.Address <> "$G$5" Then Exit Sub
    Application.EnableEvents = False
    Mois = Format(Target, "mmm"): An = Year(Target)
    Range("c7") = "Stock " & Mois & " " & An - 2
    Range("c8") = "Stock " & Mois & " " & An - 1
    Range("c9") = "Stock " & Mois & " " & An
    Application.EnableEvents = True
End Sub

Cliquez pour agrandir...

Bonjour JP,

Je te remercie pour ton code. Je n'ai pas été cependant très clair. J'ai d'autres feuilles avec des macros sur le même fichier. Par souci de confidentialité et pour alléger mon fichier, je les ai enlevées.. Mon souci maintenant est de l'intégrer dans tout ça mais que la macro ne s'applique qu'à l'onglet "résultat mensuel".
Je ne sais pas si j'ai réussi à me faire comprendre?

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 1 Mars 2018

• #4

Bonjour luno123,jpb388 le forum

Et pourquoi pas par formule

 

Pièces jointes

• Macro pour stock_1.xls

  176 KB · Affichages: 23

Vote positif 0 Vote négatif

luno123

XLDnaute Occasionnel

• 1 Mars 2018

• #5

Bonjour Chris24,

Je ne savais pas que c'était possible par formule.

Merci beaucoup

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 1 Mars 2018

• #6

re
cette macro ne concerne que la feuille, il ne faut pas la mettre dans un module
la formule de luno123 est plus adaptée

 

Vote positif 0 Vote négatif

luno123

XLDnaute Occasionnel

• 1 Mars 2018

• #7

Effectivement la formule fonctionne très bien!

Merci encore

 

Vote positif 0 Vote négatif