Exécution macro suivant valeur cellule
Résolu
Lillyes
-
Lillyes -
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
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:
- Exécution macro suivant valeur cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
Bonjour
pas besion de préciser feuil2 puisque que tu es dans le module feuil2
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
Lillyes
ça fonctionne nickel, merci michel_m !
