Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rai
Bonjour a tous,
Je souhaite lancer 2 macros automatiquement suivant la valeur des cellules
si la cellule p51="Oui" lancement de ma macro1 si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" Then Exit Sub If UCase([p51]) = "OUI" Then ma macro1 End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement
Merci de votre aide
Phil
Bonjour,
C'est juste un problème de logique dans ton déroulement de macro. Si tu sors de ta procédure dés le départ ... tu ne peux plus envisager le cas où l'autre adresse est sollicitée.
Essaie ça : Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address = "$P$51" And .Value = "Oui" Then MaMacro1 If .Address = "$P$54" And .Value = "Oui" Then MaMacro2 End With End Sub
Bonne fin de semaine
Rai
Bonjour a tous,
Je souhaite lancer 2 macros automatiquement suivant la valeur des cellules
si la cellule p51="Oui" lancement de ma macro1
si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$P$51" Then Exit Sub
If UCase([p51]) = "OUI" Then ma macro1
End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement
Merci de votre aide
Phil
Bonjour,
C'est juste un problème de logique dans ton déroulement de macro. Si tu
sors de ta procédure dés le départ ... tu ne peux plus envisager le cas
où l'autre adresse est sollicitée.
Essaie ça :
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$P$51" And .Value = "Oui" Then MaMacro1
If .Address = "$P$54" And .Value = "Oui" Then MaMacro2
End With
End Sub
Je souhaite lancer 2 macros automatiquement suivant la valeur des cellules
si la cellule p51="Oui" lancement de ma macro1 si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" Then Exit Sub If UCase([p51]) = "OUI" Then ma macro1 End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement
Merci de votre aide
Phil
Bonjour,
C'est juste un problème de logique dans ton déroulement de macro. Si tu sors de ta procédure dés le départ ... tu ne peux plus envisager le cas où l'autre adresse est sollicitée.
Essaie ça : Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Address = "$P$51" And .Value = "Oui" Then MaMacro1 If .Address = "$P$54" And .Value = "Oui" Then MaMacro2 End With End Sub
Bonne fin de semaine
Rai
Jacky
Bonjour
Ceci peut-être pour l'une ou l'autre, et jamais les deux '--------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub If UCase([p51]) = "OUI" Then macro1 ElseIf UCase([p54]) = "OUI" Then macro2 End If End Sub '---------- Celle-ci pour l'une et l'autre si "oui" dans les deux '----------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub If UCase([p51]) = "OUI" Then macro1 If UCase([p54]) = "OUI" Then macro2 End Sub '--------- Salutations JJ "jmarc" a écrit dans le message de news:
Bonjour a tous,
Je souhaite lancer 2 macros automatiquement suivant la valeur des cellules
si la cellule p51="Oui" lancement de ma macro1 si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" Then Exit Sub If UCase([p51]) = "OUI" Then ma macro1 End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement
Merci de votre aide
Phil
Bonjour
Ceci peut-être pour l'une ou l'autre, et jamais les deux
'---------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub
If UCase([p51]) = "OUI" Then
macro1
ElseIf UCase([p54]) = "OUI" Then macro2
End If
End Sub
'----------
Celle-ci pour l'une et l'autre si "oui" dans les deux
'-----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub
If UCase([p51]) = "OUI" Then macro1
If UCase([p54]) = "OUI" Then macro2
End Sub
'---------
Salutations
JJ
"jmarc" <philippelaporte@free.fr> a écrit dans le message de
news:ugz534oHGHA.2320@TK2MSFTNGP11.phx.gbl...
Bonjour a tous,
Je souhaite lancer 2 macros automatiquement suivant la valeur des
cellules
si la cellule p51="Oui" lancement de ma macro1
si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$P$51" Then Exit Sub
If UCase([p51]) = "OUI" Then ma macro1
End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement
Ceci peut-être pour l'une ou l'autre, et jamais les deux '--------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub If UCase([p51]) = "OUI" Then macro1 ElseIf UCase([p54]) = "OUI" Then macro2 End If End Sub '---------- Celle-ci pour l'une et l'autre si "oui" dans les deux '----------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub If UCase([p51]) = "OUI" Then macro1 If UCase([p54]) = "OUI" Then macro2 End Sub '--------- Salutations JJ "jmarc" a écrit dans le message de news:
Bonjour a tous,
Je souhaite lancer 2 macros automatiquement suivant la valeur des cellules
si la cellule p51="Oui" lancement de ma macro1 si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" Then Exit Sub If UCase([p51]) = "OUI" Then ma macro1 End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement
Merci de votre aide
Phil
Corona
Bonjour jmarc, Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$P$51" If UCase(Target) = "OUI" Then MaMacro1 Case "$P$54" If UCase(Target) = "OUI" Then MaMacro2 End Select End Sub Philippe
"jmarc" a écrit dans le message de news:
Bonjour a tous,
Je souhaite lancer 2 macros automatiquement suivant la valeur des cellules
si la cellule p51="Oui" lancement de ma macro1 si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" Then Exit Sub If UCase([p51]) = "OUI" Then ma macro1 End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement
Merci de votre aide
Phil
Bonjour jmarc,
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$P$51"
If UCase(Target) = "OUI" Then MaMacro1
Case "$P$54"
If UCase(Target) = "OUI" Then MaMacro2
End Select
End Sub
Philippe
"jmarc" <philippelaporte@free.fr> a écrit dans le message de news:
ugz534oHGHA.2320@TK2MSFTNGP11.phx.gbl...
Bonjour a tous,
Je souhaite lancer 2 macros automatiquement suivant la valeur des
cellules
si la cellule p51="Oui" lancement de ma macro1
si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$P$51" Then Exit Sub
If UCase([p51]) = "OUI" Then ma macro1
End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement
Bonjour jmarc, Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$P$51" If UCase(Target) = "OUI" Then MaMacro1 Case "$P$54" If UCase(Target) = "OUI" Then MaMacro2 End Select End Sub Philippe
"jmarc" a écrit dans le message de news:
Bonjour a tous,
Je souhaite lancer 2 macros automatiquement suivant la valeur des cellules
si la cellule p51="Oui" lancement de ma macro1 si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" Then Exit Sub If UCase([p51]) = "OUI" Then ma macro1 End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement
Merci de votre aide
Phil
jmarc
Merci à vous tous ça marche Bon we "Jacky" a écrit dans le message de news:
Bonjour
Ceci peut-être pour l'une ou l'autre, et jamais les deux '--------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub If UCase([p51]) = "OUI" Then macro1 ElseIf UCase([p54]) = "OUI" Then macro2 End If End Sub '---------- Celle-ci pour l'une et l'autre si "oui" dans les deux '----------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub If UCase([p51]) = "OUI" Then macro1 If UCase([p54]) = "OUI" Then macro2 End Sub '--------- Salutations JJ "jmarc" a écrit dans le message de news:
Bonjour a tous,
Je souhaite lancer 2 macros automatiquement suivant la valeur des cellules
si la cellule p51="Oui" lancement de ma macro1 si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" Then Exit Sub If UCase([p51]) = "OUI" Then ma macro1 End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement
Merci de votre aide
Phil
Merci à vous tous ça marche
Bon we
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
e0n3iFpHGHA.3036@tk2msftngp13.phx.gbl...
Bonjour
Ceci peut-être pour l'une ou l'autre, et jamais les deux
'---------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub
If UCase([p51]) = "OUI" Then
macro1
ElseIf UCase([p54]) = "OUI" Then macro2
End If
End Sub
'----------
Celle-ci pour l'une et l'autre si "oui" dans les deux
'-----------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub
If UCase([p51]) = "OUI" Then macro1
If UCase([p54]) = "OUI" Then macro2
End Sub
'---------
Salutations
JJ
"jmarc" <philippelaporte@free.fr> a écrit dans le message de
news:ugz534oHGHA.2320@TK2MSFTNGP11.phx.gbl...
Bonjour a tous,
Je souhaite lancer 2 macros automatiquement suivant la valeur des
cellules
si la cellule p51="Oui" lancement de ma macro1
si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$P$51" Then Exit Sub
If UCase([p51]) = "OUI" Then ma macro1
End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement
Merci à vous tous ça marche Bon we "Jacky" a écrit dans le message de news:
Bonjour
Ceci peut-être pour l'une ou l'autre, et jamais les deux '--------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub If UCase([p51]) = "OUI" Then macro1 ElseIf UCase([p54]) = "OUI" Then macro2 End If End Sub '---------- Celle-ci pour l'une et l'autre si "oui" dans les deux '----------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" And Target.Address <> "$P$54" Then Exit Sub If UCase([p51]) = "OUI" Then macro1 If UCase([p54]) = "OUI" Then macro2 End Sub '--------- Salutations JJ "jmarc" a écrit dans le message de news:
Bonjour a tous,
Je souhaite lancer 2 macros automatiquement suivant la valeur des cellules
si la cellule p51="Oui" lancement de ma macro1 si la cellule p54="Oui" lancement de ma macro2
Pour la première macro j'ai mis le code suivant
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$P$51" Then Exit Sub If UCase([p51]) = "OUI" Then ma macro1 End Sub
Je cale pour intégrer la cellule p54 et la lancer automatiquement