Exécution macro suivant valeur cellule [Résolu/Fermé]

Signaler
-
 Lillyes -
Bonjour,

J'ai une feuille sur laquelle je dois renseigner 2 infos :
- nombre de machines de type A (en D60)
- nombre de machines de type B (en D61)

dans le même classeur j'ai :
- 1 onglet "type A"
- 1 onglet "type B"

que je souhaite dupliquer automatiquement lorsque je rentre l'info sur le nombre de machines de chaque type. Les 2 macros pour dupliquer les onglets s'appellent creation3 & creation4

j'ai utilisé ce code :

Sub Worksheet_Change(ByVal Target As Range)
If Feuil2.Range("D60") > 0 Then
Call creation3
End If

If Feuil2.Range("D61") > 0 Then
Call creation4
End If

End Sub

sauf que, comme attendu, dès que je rentre une valeur en D60, la Sub s'exécute, et elle s'execute à nouveau quand je rentre une valeur en D61... donc j'ai trop d'onglets dupliqués !!

une idée pour éviter de relancer la 1ère macro ??

Merci d'avance


1 réponse

Messages postés
16247
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
17 octobre 2020
3 049
Bonjour
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D60")) Is Nothing Then: Call creation3
If Not Intersect(Target, Range("D61")) Is Nothing Then: Call creation4
End Sub


pas besion de préciser feuil2 puisque que tu es dans le module feuil2
ça fonctionne nickel, merci michel_m !