effacer un bouton apres execution de la macro

[raym1313]

bonjour

je suis sur window7 et excel 7

dans une feuille je clic sur un bouton

j ai affecté une macro a ce bouton

cette macro copie ( le format et la formule ) de la cellule A1
en A2 - A3 -A4 -A5 - A6 .......

Lorsque la macro est terminé
je souhaiterai que tout en conservant la macro
le bouton qui lui se trouve sur ma feuil1! soit effacer

merci pour votre aide

je pense pas que ce soit bien difficile
j ai essaye de me debrouiller tout seul
mais quand j'efface mon bouton ca supprime ma macro ?????

 

[JCGL]

Re : effacer un bouton apres execution de la macro

Bonjour à tous,
Salut Raymond 🙂,

Il faudrait que tu communiques le nom de la "forme" : Picture, CommandButton....

Ton fichier serait un plus...

A++
A+ à tous

 

[phlaurent55]

Re : effacer un bouton apres execution de la macro

Bonjour Raym,

voir fichier joint

à+
Philippe

Edit: Bonjour Jean-Claude

 

[JCGL]

Re : effacer un bouton apres execution de la macro

Bonjour à tous,
Salut Philippe 🙂,

Quand notre ami Raymond parle de XL 7, il voulait dire XL12 (XL 2007)... Comme tu l'as bien compris.

Un code plus "généraliste" (toutes les formes sont effacées...🙁) :

Option Explicit

Sub Del_Objets()
    ActiveSheet.DrawingObjects.Delete
End Sub

A++ 🙂
A+ à tous

 

[Paritec]

Re : effacer un bouton apres execution de la macro

Bonjour Philippe, JC Raym1313,
une précision, oui je pense que tu as mis la macro dans la commande click du bouton.
Recopie ta macro dans un module, et là lorsque tu supprimeras ton bouton tu auras toujours ta macro dans le module.
a+
Papou 🙂

'là c'est le code du bouton
Private Sub CommandButton1_Click()
Call recopie
CommandButton1.visible = false  ' ajout de Philippe
End Sub
'dans un module tu mets le ci-dessous
Sub recopie()

 "ton code"
 
End Sub

 

[Paritec]

Re : effacer un bouton apres execution de la macro

Re bonjour JC,
oui ok pour supprimer tout, mais si son code est dans le bouton, il va le supprimer aussi, et apparemment il veut le conserver, enfin si j'ai bien compris sa demande
bonnes Fêtes de Pâques
a+
papou 🙂

 

[Papou-net]

Re : effacer un bouton apres execution de la macro

Bonsoir raym1313, les participants,

Une autre solution consiste à masquer le bouton en mettant en dernière ligne la propriété Visible à faux.

Sub CommandButton1_Click
...
...
...
CommandButton1.Visible = False
End Sub

Espérant avoir été utile.

Cordialement.

 

[Paritec]

Re : effacer un bouton apres execution de la macro

bonjour à tous
oui comme c'est noté dans le post 5
a+
papou 🙂

 

[JCGL]

Re : effacer un bouton apres execution de la macro

Bonjour à tous,

Re bonjour JC,
oui ok pour supprimer tout, mais si son code est dans le bouton, il va le supprimer aussi, et apparemment il veut le conserver, enfin si j'ai bien compris sa demande
bonnes Fêtes de Pâques
a+
papou 🙂

Pas d'accord, mon code ne fait qu'effacer les formes

A+ à tous

 

[JCGL]

Re : effacer un bouton apres execution de la macro

Bonjour à tous,

Une autre solution consiste à masquer le bouton en mettant en dernière ligne la propriété Visible à faux.

Sub CommandButton1_Click
...
...
...
CommandButton1.Visible = False
End Sub

Et si ce n'est pas un CommandButton...

A+ à tous

 

[Papou-net]

Re : effacer un bouton apres execution de la macro

Re Paritec : désolé, j'ai survolé ta réponse un peu hâtivement ("Vu, j'avais pas vu").

Re JCGL : dans sa demande initiale, raym1313 parle d'une macro lancée par un bouton. Mais peu importe s'il s'agit d'un autre contrôle, la propriété visible s'applique à tous les contrôles, enfin je pense ,car je n'utilise jamais les contrôles de la barre d'outils Formulaire.

Bien cordialement à tous.

 

[raym1313]

Re : effacer un bouton apres execution de la macro

Re Paritec : désolé, j'ai survolé ta réponse un peu hâtivement ("Vu, j'avais pas vu").

Re JCGL : dans sa demande initiale, raym1313 parle d'une macro lancée par un bouton. Mais peu importe s'il s'agit d'un autre contrôle, la propriété visible s'applique à tous les contrôles, enfin je pense ,car je n'utilise jamais les contrôles de la barre d'outils Formulaire.

Bien cordialement à tous.

merci pour toutes vos reponses

je vous joins un petit fichier
vous me comprendrai je pense mieux

merci encore

 

[JCGL]

Re : effacer un bouton apres execution de la macro

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Repartir()
    Sheets("Feuil2").Range("B6").Copy Sheets("Feuil1").Range("B5")
    Sheets("Feuil2").Range("B7").Copy Sheets("Feuil1").Range("B11")
    Sheets("Feuil2").Range("B8").Copy Sheets("Feuil1").Range("B17")
    Sheets("Feuil2").Range("B9").Copy Sheets("Feuil1").Range("B8")
    Sheets("Feuil2").Range("B10").Copy Sheets("Feuil1").Range("B14")
    Sheets("Feuil2").Range("B11").Copy Sheets("Feuil1").Range("B12")
    Sheets("Feuil2").Range("B12").Copy Sheets("Feuil1").Range("B18")
    Sheets("Feuil2").Range("B13").Copy Sheets("Feuil1").Range("B9")
    Sheets("Feuil2").Range("B14").Copy Sheets("Feuil1").Range("B6")
    Sheets("Feuil2").Range("B15").Copy Sheets("Feuil1").Range("B15")
    ActiveSheet.DrawingObjects.Delete
End Sub

A+ à tous

Édition : Salut Kjin 🙂

 

[kjin]

Re : effacer un bouton apres execution de la macro

Bonjour,

je vous joins un petit fichier...vous me comprendrai je pense mieux

Dès le premier message c'est mieux
Pourquoi n'utilises tu pas l'enregistreur de macro ?

Edit : bonjour JC 🙂

A+
kjin

 

[raym1313]

Re : effacer un bouton apres execution de la macro

merci pour toutes vos reponses

je vous joins un petit fichier
vous me comprendrai je pense mieux

merci encore

je suis vraiment desole mais je crois que vous ne pouvez pas lire
mon fichier

en fait depuis que ma nouvelle version 2007 et surtout windows 7 que je ne maitrise encore pas bien je n arrive plus a vous envoyer les fichiers
de plus je souhaiterai savoir comment on fait lorsqu un fichier fait
par exemple 180 ko pour l envoyer


ne pouvant pas vous envoyer le fichier - je vais essayer d etre le plus precis possible ( et de repondre egalement a JCGL )

en feuil 2 j ai une liste de nom
cette liste est tres variable elle varie de 20 a 80

en feuil 1
j ai des cellules formates quadrilles avec a l interieur de chaque cellule
une petite formule allant chercher les données en feuil!2

maintenant je vais vous expliquer comment je procede quand je fais une macro ( je suis debutant 😱 soyez indulgent 😱 )
je vais dans enregister une macro je lui donne un nom puis je commence ma macro je selectionne la feuille 2 j execute un tri aleatoire des noms se trouvant en feuille 2 je retourne en feuil1 et j arrette ma macro )

ensuite je vais en feuil!1 dans inserer une forme j ai pris un rectangle je positionne avec la souris le rectangle a l emplacement souhaité et j affecte la macro

quand je clic sur le rectangle c'est partiquement immediat la macro fait le tri aleatoir de la liste de noms en feuil!2 reviens en feuil1
et les cellules m affiche les noms

si par erreur on rappuie sur le rectangle une nouvelle liste apparait
ce que je veux eviter
je veux donc que le bouton disparaisse automatiquement apres execution mais sans supprimer la macro


voila

j espere avoir ete plus clair

amicalement
raymond