Exécution macro suivant valeur cellule

Résolu

Lillyes -
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:

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
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

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

Lillyes

ça fonctionne nickel, merci michel_m !

Discussions similaires

Problème de restrictions

Cette valeur ne correspond pas aux restrictions

restriction de valeur sur Excel

additionner nombres dans cellules avec texte

Excel VBA : Récupérer la valeur d'une cellule

Votre réponse

Discussions similaires