Macro pour éviter plusieurs saisies (RESOLU)

[luno123]

Bonjour,

Pour éviter plusieurs saisies sur des feuilles, je recherche une macro qui me simplifierait un peu la vie(Cf PJ)

Merci encore pour votre aide précieuse.

 

[jpb388]

Bonjour à tous

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

 

[luno123]

Bonjour à tous

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

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?

 

[Chris24]

Bonjour luno123,jpb388 le forum

Et pourquoi pas par formule

 

[luno123]

Bonjour Chris24,

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

Merci beaucoup

 

[jpb388]

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

 

[luno123]

Effectivement la formule fonctionne très bien!

Merci encore