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
Eric KERGRESSE
Bonjour,
En mode construction de ta boite à outil, tu "double-cliques" sur ton contrôle, tu accèdes alors à la partie "module" de la page en cours, dans laquelle Excel a préparé la procédure
Private Sub Checkbox1_Click()
End sub
Il ne te reste plus qu'à mettre tes macro dans la procédure et de mettre tes conditions
If Checkbox1.Value = True then call macro1 else call macro2 End if
A vérifier car non testé.
Cordialement.
"David T." <direction-ternoise@(enlever)wanadoo.fr> a écrit dans le message de news:
Bonjour
J'ai mis une case à cocher sur une feuille (outils, formulaires)
Comment faire pour lui attribuer une macro
Si cocher>>>macro 1
Si décocher>>>macro2
Merci de votre aide Salutations
-- direction-ternoise@(supprimerceci)wanadoo.fr
Bonjour,
En mode construction de ta boite à outil, tu "double-cliques" sur ton
contrôle,
tu accèdes alors à la partie "module" de la page en cours, dans laquelle
Excel
a préparé la procédure
Private Sub Checkbox1_Click()
End sub
Il ne te reste plus qu'à mettre tes macro dans la procédure
et de mettre tes conditions
If Checkbox1.Value = True then
call macro1
else
call macro2
End if
A vérifier car non testé.
Cordialement.
"David T." <direction-ternoise@(enlever)wanadoo.fr> a écrit dans le message
de news: e4wtax1AEHA.3184@TK2MSFTNGP09.phx.gbl...
Bonjour
J'ai mis une case à cocher sur une feuille (outils, formulaires)
En mode construction de ta boite à outil, tu "double-cliques" sur ton contrôle, tu accèdes alors à la partie "module" de la page en cours, dans laquelle Excel a préparé la procédure
Private Sub Checkbox1_Click()
End sub
Il ne te reste plus qu'à mettre tes macro dans la procédure et de mettre tes conditions
If Checkbox1.Value = True then call macro1 else call macro2 End if
A vérifier car non testé.
Cordialement.
"David T." <direction-ternoise@(enlever)wanadoo.fr> a écrit dans le message de news:
Bonjour
J'ai mis une case à cocher sur une feuille (outils, formulaires)
Comment faire pour lui attribuer une macro
Si cocher>>>macro 1
Si décocher>>>macro2
Merci de votre aide Salutations
-- direction-ternoise@(supprimerceci)wanadoo.fr
Jean-François Aubert
Salut David, Avec une case à cocher de la barre formulaire, je ne sais pas.
-mets une case à cocher de la Boîte à outils Contrôles -assure-toi que le bouton <mode création> ( une equerre et un crayon) est enfoncé -clic droit --> visualiser le code
Private Sub CheckBox1_Click() If CheckBox1 = True Then macro1 Else macro2 End If End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"David T." <direction-ternoise@(enlever)wanadoo.fr> a écrit dans le message de news:
Bonjour
J'ai mis une case à cocher sur une feuille (outils, formulaires)
Comment faire pour lui attribuer une macro
Si cocher>>>macro 1
Si décocher>>>macro2
Merci de votre aide Salutations
-- direction-ternoise@(supprimerceci)wanadoo.fr
Salut David,
Avec une case à cocher de la barre formulaire, je ne sais pas.
-mets une case à cocher de la Boîte à outils Contrôles
-assure-toi que le bouton <mode création> ( une equerre et un crayon) est enfoncé
-clic droit --> visualiser le code
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
macro1
Else
macro2
End If
End Sub
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"David T." <direction-ternoise@(enlever)wanadoo.fr> a écrit dans le message de
news:e4wtax1AEHA.3184@TK2MSFTNGP09.phx.gbl...
Bonjour
J'ai mis une case à cocher sur une feuille (outils, formulaires)
Salut David, Avec une case à cocher de la barre formulaire, je ne sais pas.
-mets une case à cocher de la Boîte à outils Contrôles -assure-toi que le bouton <mode création> ( une equerre et un crayon) est enfoncé -clic droit --> visualiser le code
Private Sub CheckBox1_Click() If CheckBox1 = True Then macro1 Else macro2 End If End Sub
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"David T." <direction-ternoise@(enlever)wanadoo.fr> a écrit dans le message de news:
Bonjour
J'ai mis une case à cocher sur une feuille (outils, formulaires)
Comment faire pour lui attribuer une macro
Si cocher>>>macro 1
Si décocher>>>macro2
Merci de votre aide Salutations
-- direction-ternoise@(supprimerceci)wanadoo.fr
AV
A adapter Avec ta case à cocher . - nommée "Coch1" (clic droit sur la case à cocher et saisir le nom dans la barre des noms) - située sur la feuille "Feuil1"
Clic droit dessus --> affecter une macro --> "zz_CasCoch" Dans un module ordinaire :
Sub zz_CasCoch() With Sheets("Feuil1") If .CheckBoxes("Coch1").Value = xlOn Then maMacro1 Else: maMacro2 End If End With End Sub
Sub maMacro1() MsgBox "Je suis la macro 1 !" End Sub
Sub maMacro2() MsgBox "Je suis la macro 2 !" End Sub
AV
"David T." <direction-ternoise@(enlever)wanadoo.fr> a écrit dans le message news:
Bonjour
J'ai mis une case à cocher sur une feuille (outils, formulaires)
Comment faire pour lui attribuer une macro
Si cocher>>>macro 1
Si décocher>>>macro2
Merci de votre aide Salutations
-- direction-ternoise@(supprimerceci)wanadoo.fr
A adapter
Avec ta case à cocher .
- nommée "Coch1" (clic droit sur la case à cocher et saisir le nom dans la
barre des noms)
- située sur la feuille "Feuil1"
Clic droit dessus --> affecter une macro --> "zz_CasCoch"
Dans un module ordinaire :
Sub zz_CasCoch()
With Sheets("Feuil1")
If .CheckBoxes("Coch1").Value = xlOn Then
maMacro1
Else: maMacro2
End If
End With
End Sub
Sub maMacro1()
MsgBox "Je suis la macro 1 !"
End Sub
Sub maMacro2()
MsgBox "Je suis la macro 2 !"
End Sub
AV
"David T." <direction-ternoise@(enlever)wanadoo.fr> a écrit dans le message
news: e4wtax1AEHA.3184@TK2MSFTNGP09.phx.gbl...
Bonjour
J'ai mis une case à cocher sur une feuille (outils, formulaires)
A adapter Avec ta case à cocher . - nommée "Coch1" (clic droit sur la case à cocher et saisir le nom dans la barre des noms) - située sur la feuille "Feuil1"
Clic droit dessus --> affecter une macro --> "zz_CasCoch" Dans un module ordinaire :
Sub zz_CasCoch() With Sheets("Feuil1") If .CheckBoxes("Coch1").Value = xlOn Then maMacro1 Else: maMacro2 End If End With End Sub
Sub maMacro1() MsgBox "Je suis la macro 1 !" End Sub
Sub maMacro2() MsgBox "Je suis la macro 2 !" End Sub
AV
"David T." <direction-ternoise@(enlever)wanadoo.fr> a écrit dans le message news:
Bonjour
J'ai mis une case à cocher sur une feuille (outils, formulaires)
Comment faire pour lui attribuer une macro
Si cocher>>>macro 1
Si décocher>>>macro2
Merci de votre aide Salutations
-- direction-ternoise@(supprimerceci)wanadoo.fr
David T.
Bonsoir à tous
merci
Je retiens celle de Alain
Salutations David
"David T." <direction-ternoise@(enlever)wanadoo.fr> a écrit dans le message de news:
Bonjour
J'ai mis une case à cocher sur une feuille (outils, formulaires)
Comment faire pour lui attribuer une macro
Si cocher>>>macro 1
Si décocher>>>macro2
Merci de votre aide Salutations
-- direction-ternoise@(supprimerceci)wanadoo.fr
Bonsoir à tous
merci
Je retiens celle de Alain
Salutations
David
"David T." <direction-ternoise@(enlever)wanadoo.fr> a écrit dans le message
de news:e4wtax1AEHA.3184@TK2MSFTNGP09.phx.gbl...
Bonjour
J'ai mis une case à cocher sur une feuille (outils, formulaires)