Le Bouton pour effacer le contenu des cellules

bonjour JPB,

as tu mit la propriété du bouton, TakeFocusOnClick à false ?

isabelle

Bonjour,

J'ai fait un bouton pour effacer le contenu des cellules A2, B6, D3 et G2
(="Maplage")

Puis j'ai Fait
Private Sub CommandButton1_Click()
Range("Maplage").ClearContents
End Sub

Sauf que quand je veux affecter cette macro au bouton elle n'apparait pas.
Et si je fait une Macro en SUB : elle bug
Comprend Rien du Tout
Merci
JPB

bonjour JPB

ceci :marche très bien :

Sub test()
Range("MaPlage").ClearContents
End Sub

et ceci marche aussi très bien :

Private Sub CommandButton1_Click()
Call test
End Sub

même avec la propriété du bouton TakeFocusOnClick à True (coucou mon ange!)

jps

"Jean Pierre Belfort" <JeanPierreBelfort@discussions.microsoft.com> a écrit
dans le message de news:
1EADA66B-C758-4B77-8DC3-BEC109F8B11E@microsoft.com...

Bonjour,

J'ai fait un bouton pour effacer le contenu des cellules A2, B6, D3 et G2
(="Maplage")

Puis j'ai Fait
Private Sub CommandButton1_Click()
Range("Maplage").ClearContents
End Sub

Sauf que quand je veux affecter cette macro au bouton elle n'apparait pas.
Et si je fait une Macro en SUB : elle bug
Comprend Rien du Tout
Merci
JPB

Bonjour,

Ne pas oublier de sortir du mode création après la construction du bouton.
Exemple ici:
http://cjoint.com/?iliG4qaG5z
Salutations
JJ

"Jean Pierre Belfort" <JeanPierreBelfort@discussions.microsoft.com> a écrit
dans le message de
news:1EADA66B-C758-4B77-8DC3-BEC109F8B11E@microsoft.com...

Bonjour,

J'ai fait un bouton pour effacer le contenu des cellules A2, B6, D3 et G2
(="Maplage")

Puis j'ai Fait
Private Sub CommandButton1_Click()
Range("Maplage").ClearContents
End Sub

Sauf que quand je veux affecter cette macro au bouton elle n'apparait pas.
Et si je fait une Macro en SUB : elle bug
Comprend Rien du Tout
Merci
JPB

Bonjour,
S'il s'agissait d'un bouton de la BO formulaires il faudrait utiliser
Affecter une macro...
Sub toto()
Range("Maplage").ClearContents'
End Sub

Mais puisque tu évoques Private Sub CommandButton1_Click()

Lorsque tu as disposé ton bouton (pris donc dans les contrôles de la BO
Vbasic et non pas formulaires,)
tu fais un double-clic dessus ,
le module de code apparaît et tu insère ta commande:

Private Sub CommandButton1_Click()
Range("Maplage").ClearContents'
End Sub

Sauf que quand je veux affecter cette macro au bouton ...

Il n'y a plus besoin d'affecter puisque c'est déjà fait!!!

......... cette macro au bouton [elle n'apparait pas....<<normal c'est une
private sub .

Plus qu'à fermer la fenêtre du module et comme dit Jacky ne pas oublier
l'équerre bleue (sortir du mode création)
Ton bouton est opérationnel!

Cordialement

lSteph

"Jean Pierre Belfort" <JeanPierreBelfort@discussions.microsoft.com> a écrit
dans le message de news:
1EADA66B-C758-4B77-8DC3-BEC109F8B11E@microsoft.com...

Bonjour,

J'ai fait un bouton pour effacer le contenu des cellules A2, B6, D3 et G2
(="Maplage")

Puis j'ai Fait
Private Sub CommandButton1_Click()
Range("Maplage").ClearContents
End Sub

Sauf que quand je veux affecter cette macro au bouton elle n'apparait pas.
Et si je fait une Macro en SUB : elle bug
Comprend Rien du Tout
Merci
JPB

Ok, Merci à tous pour vos réponses,

Mais ca bug encore parceque y dit : "impossible avec cellule fusionnées"

??

Vous voyez quelque chose à faire?
JPB

Bonjour,

a priori, pour bien travailler avec excel commencer par ne pas utiliser ces
saletés de fusions!
sinon,

With Range("Maplage")
.UnMerge
.ClearContents
End With

'lSteph
"Jean Pierre Belfort" <JeanPierreBelfort@discussions.microsoft.com> a écrit
dans le message de news:
E11B3080-B477-47DE-9A0D-0512AE688B0D@microsoft.com...

Ok, Merci à tous pour vos réponses,

Mais ca bug encore parceque y dit : "impossible avec cellule fusionnées"

??

Vous voyez quelque chose à faire?
JPB

a priori, pour bien travailler avec excel commencer par ne pas utiliser ces
saletés de fusions!

Merci "lSteph", je vais tacher de m'en souvenir.
JPB