Bjr Jacky Données Validation Liste Oui;Non a+ Phil "Jacky" a écrit dans le message de news:
Bonjour,
Comment est renseigné la cellule I48 ??
Salutations JJ
"jmarc" a écrit dans le message de news:
Bonjour a tous,
Est-il posssible de lancer une macro de ma feuille de calcul si la cellule I48 ="oui' ? Merci de votre aide Philippe
Jacky
Re... Ceci peut-être... Dans le module de la feuille en question(Clique droit sur la feuille>>Visualiser le code et coller ceci) '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$I$48" Then Exit Sub If UCase([i48]) = "OUI" Then 'NomDeLaMacroSiOUI ElseIf UCase([i48]) = "NON" Then 'NomDeLaMacroSiNON End If End Sub '--------------- Salutations JJ
"jmarc" a écrit dans le message de news: %
Bjr Jacky Données Validation Liste Oui;Non a+ Phil "Jacky" a écrit dans le message de news:
Bonjour,
Comment est renseigné la cellule I48 ??
Salutations JJ
"jmarc" a écrit dans le message de news:
Bonjour a tous,
Est-il posssible de lancer une macro de ma feuille de calcul si la cellule I48 ="oui' ? Merci de votre aide Philippe
Re...
Ceci peut-être...
Dans le module de la feuille en question(Clique droit sur la
feuille>>Visualiser le code et coller ceci)
'------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$48" Then Exit Sub
If UCase([i48]) = "OUI" Then
'NomDeLaMacroSiOUI
ElseIf UCase([i48]) = "NON" Then
'NomDeLaMacroSiNON
End If
End Sub
'---------------
Salutations
JJ
"jmarc" <philippelaporte@free.fr> a écrit dans le message de news:
%23BAt1gdGGHA.3036@tk2msftngp13.phx.gbl...
Bjr Jacky
Données Validation Liste Oui;Non
a+
Phil
"Jacky" <non@wo.fr> a écrit dans le message de news:
OLUIZ5cGGHA.2652@tk2msftngp13.phx.gbl...
Bonjour,
Comment est renseigné la cellule I48 ??
Salutations
JJ
"jmarc" <philippelaporte@free.fr> a écrit dans le message de news:
OE5EhNcGGHA.2064@TK2MSFTNGP09.phx.gbl...
Bonjour a tous,
Est-il posssible de lancer une macro de ma feuille de calcul si la
cellule I48 ="oui' ?
Merci de votre aide
Philippe
Re... Ceci peut-être... Dans le module de la feuille en question(Clique droit sur la feuille>>Visualiser le code et coller ceci) '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$I$48" Then Exit Sub If UCase([i48]) = "OUI" Then 'NomDeLaMacroSiOUI ElseIf UCase([i48]) = "NON" Then 'NomDeLaMacroSiNON End If End Sub '--------------- Salutations JJ
"jmarc" a écrit dans le message de news: %
Bjr Jacky Données Validation Liste Oui;Non a+ Phil "Jacky" a écrit dans le message de news:
Bonjour,
Comment est renseigné la cellule I48 ??
Salutations JJ
"jmarc" a écrit dans le message de news:
Bonjour a tous,
Est-il posssible de lancer une macro de ma feuille de calcul si la cellule I48 ="oui' ? Merci de votre aide Philippe
Rai
Bonjour a tous,
Est-il posssible de lancer une macro de ma feuille de calcul si la cellule I48 ="oui' ? Merci de votre aide Philippe
Bonjour,
Oui c'est possible. Admettons que tu veuilles exécuter la macro 'MaMacro' définie plus tôt
2 solutions (entre autres)
1. Solutin pour 1 feuille déterminée Ouvre l'éditeur VBE (ALT+F11) Double-clique sur la feuille concernée Colle le code suivant: Private Sub Worksheet_Change(ByVal Target As Range) If Range("I48") = "oui" Then MaMacro End Sub (n'oublie pas de créer la macro MaMacro)
2. Solution qui fonctionne pour toutes les feuilles du classeur Ouvre l'éditeur VBE (ALT+F11) Double-Clique sur ThisWorkBook Colle le code suivant: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Range("I48") = "oui" Then MaMacro End Sub Pour la deuxième solutio tu peux récupérer le nom de la feuille et agir en conséquence NomFeuil = Sh.Name If NomFeuil="totoc" then Msgox "Entrez" end if
Bonne chance
Rai
Bonjour a tous,
Est-il posssible de lancer une macro de ma feuille de calcul si la cellule
I48 ="oui' ?
Merci de votre aide
Philippe
Bonjour,
Oui c'est possible.
Admettons que tu veuilles exécuter la macro 'MaMacro' définie plus tôt
2 solutions (entre autres)
1. Solutin pour 1 feuille déterminée
Ouvre l'éditeur VBE (ALT+F11)
Double-clique sur la feuille concernée
Colle le code suivant:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("I48") = "oui" Then MaMacro
End Sub
(n'oublie pas de créer la macro MaMacro)
2. Solution qui fonctionne pour toutes les feuilles du classeur
Ouvre l'éditeur VBE (ALT+F11)
Double-Clique sur ThisWorkBook
Colle le code suivant:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("I48") = "oui" Then MaMacro
End Sub
Pour la deuxième solutio tu peux récupérer le nom de la feuille et agir
en conséquence
NomFeuil = Sh.Name
If NomFeuil="totoc" then
Msgox "Entrez"
end if
Est-il posssible de lancer une macro de ma feuille de calcul si la cellule I48 ="oui' ? Merci de votre aide Philippe
Bonjour,
Oui c'est possible. Admettons que tu veuilles exécuter la macro 'MaMacro' définie plus tôt
2 solutions (entre autres)
1. Solutin pour 1 feuille déterminée Ouvre l'éditeur VBE (ALT+F11) Double-clique sur la feuille concernée Colle le code suivant: Private Sub Worksheet_Change(ByVal Target As Range) If Range("I48") = "oui" Then MaMacro End Sub (n'oublie pas de créer la macro MaMacro)
2. Solution qui fonctionne pour toutes les feuilles du classeur Ouvre l'éditeur VBE (ALT+F11) Double-Clique sur ThisWorkBook Colle le code suivant: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Range("I48") = "oui" Then MaMacro End Sub Pour la deuxième solutio tu peux récupérer le nom de la feuille et agir en conséquence NomFeuil = Sh.Name If NomFeuil="totoc" then Msgox "Entrez" end if
