Comment incrementer une suppression de bouton
Résolu/Fermé
kit24be
Messages postés
46
Date d'inscription
samedi 12 janvier 2013
Statut
Membre
Dernière intervention
22 octobre 2017
-
31 mai 2014 à 20:29
f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 - 3 juin 2014 à 12:01
f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 - 3 juin 2014 à 12:01
A voir également:
- Comment incrementer une suppression de bouton
- Forcer suppression fichier - Guide
- Suppression page word - Guide
- Suppression compte instagram - Guide
- Réinitialiser chromecast sans bouton - Guide
- Suppression cookies - Guide
5 réponses
f894009
Messages postés
17190
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 mai 2024
1 705
1 juin 2014 à 11:58
1 juin 2014 à 11:58
Bonjour,
Sub ClicSurBouton()
' si cinq boutons
For x = 1 To 5
ActiveSheet.Shapes("Btn " & x).Delete
Next x
End Sub
kit24be
Messages postés
46
Date d'inscription
samedi 12 janvier 2013
Statut
Membre
Dernière intervention
22 octobre 2017
1
1 juin 2014 à 18:58
1 juin 2014 à 18:58
Bonjour,
merci de m' avoir répondu, le code fonctionne pour supprimer plusieurs boutons en une fois. Mon problème, je veux supprimer le premier bouton qui en même temps lance une macro. Puis je recommence avec le bouton 2 et ainsi de suite.
Merci et bon dimanche.
merci de m' avoir répondu, le code fonctionne pour supprimer plusieurs boutons en une fois. Mon problème, je veux supprimer le premier bouton qui en même temps lance une macro. Puis je recommence avec le bouton 2 et ainsi de suite.
Merci et bon dimanche.
f894009
Messages postés
17190
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 mai 2024
1 705
3 juin 2014 à 08:34
3 juin 2014 à 08:34
Bonjour,
le premier bouton qui en même temps lance une macro. !!!!!! un peu plus d'explication svp
le premier bouton qui en même temps lance une macro. !!!!!! un peu plus d'explication svp
kit24be
Messages postés
46
Date d'inscription
samedi 12 janvier 2013
Statut
Membre
Dernière intervention
22 octobre 2017
1
3 juin 2014 à 09:13
3 juin 2014 à 09:13
Bonjour,
Au départ, je lance une macro qui me crée plusieurs boutons( le nombre varie suivant le travail à effectuer). Lorsque je clique sur un des boutons, je voudrais récupérer le texte du bouton, le transférer dans une cellule pour pouvoir faire une recherche dans une autre feuille excel et utiliser ces données dans un userform et après, ou supprimer le bouton, lui faire changer de couleur ou supprimer le texte du bouton. je n' utilise pas nécessairement l' ordre des boutons établis.
Je sais que ma demande est un peu complexe, c'est pour cela que je vous remercie pour le temps que vous passer à m'aider.
Ps: voici le code de la macro qui sera lancée avec le bouton
Sub APPEL_DU_CODE()
Range("O3").Select 'copie le texte du bouton dans la cellule O3
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TC").Select
Range("B47").Select
Selection.End(xlUp).Offset(1, 0).Value = Sheets("MENU").Range("O3").Value
Range("B47").Select
Selection.End(xlUp).Offset(0, 0).Select
ActiveCell.Offset(0, 2).Select
With RC' ouvre l' userform en show modal false
.StartUpPosition = 0
.Left = Application.UsableWidth - .Width
.Show
End With
End Sub
Au départ, je lance une macro qui me crée plusieurs boutons( le nombre varie suivant le travail à effectuer). Lorsque je clique sur un des boutons, je voudrais récupérer le texte du bouton, le transférer dans une cellule pour pouvoir faire une recherche dans une autre feuille excel et utiliser ces données dans un userform et après, ou supprimer le bouton, lui faire changer de couleur ou supprimer le texte du bouton. je n' utilise pas nécessairement l' ordre des boutons établis.
Je sais que ma demande est un peu complexe, c'est pour cela que je vous remercie pour le temps que vous passer à m'aider.
Ps: voici le code de la macro qui sera lancée avec le bouton
Sub APPEL_DU_CODE()
Range("O3").Select 'copie le texte du bouton dans la cellule O3
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TC").Select
Range("B47").Select
Selection.End(xlUp).Offset(1, 0).Value = Sheets("MENU").Range("O3").Value
Range("B47").Select
Selection.End(xlUp).Offset(0, 0).Select
ActiveCell.Offset(0, 2).Select
With RC' ouvre l' userform en show modal false
.StartUpPosition = 0
.Left = Application.UsableWidth - .Width
.Show
End With
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
f894009
Messages postés
17190
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 mai 2024
1 705
Modifié par f894009 le 3/06/2014 à 12:02
Modifié par f894009 le 3/06/2014 à 12:02
Re,
Je sais que ma demande est un peu complexe ----> Faudrait voir si n'y a pas plus simple que de creer des boutons pour avoir un texte que vous allez effacer ou supprimer le bouton !!!!!!
Je sais que ma demande est un peu complexe ----> Faudrait voir si n'y a pas plus simple que de creer des boutons pour avoir un texte que vous allez effacer ou supprimer le bouton !!!!!!