Exécution macro suivant valeur cellule

Résolu/Fermé
Lillyes - 24 janv. 2017 à 16:43
 Lillyes - 24 janv. 2017 à 17:17
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


A voir également:

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 janv. 2017 à 17:04
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
0
ça fonctionne nickel, merci michel_m !
0