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
Michel Pierron
Bonjour Daniel; 1) Si tes boutons sont issus de la barre d'outils Formulaire: ' Initialise la même macro pour le OnAction de chaque bouton Sub CmdBtnInit() Dim i% With Worksheets(1) For i = 1 To .Buttons.Count .Buttons(i).OnAction = "Test" Next i End With End Sub
Sub Test() ' Retourne le nom du bouton Select Case Application.Caller Case "Bouton 1"
Case "Bouton 3"
'.... End Select End Sub
2) Cells(10, 1).EntireRow.Delete Shift:=xlUp ou Range("A10").EntireRow.Delete Shift:=xlUp
MP
"Daniel" <*j'enlève ceci* a écrit dans le message de news:41f39cb5$0$22265$
Bonjour,
J'ai trente Commandbutton numéroté de CommandButton1 à CommandButton30
Un autre bouton se utilise les caption de ces CommandButton.
Comme puis-je faire pour ne être obligé d'écrire 30 macros où seul le numéro
CommandButton change ?
J'imagine qu'il y a moyen d'en faire une variable, mais étant débutant, je coince.
J'aimerais aussi connaître syntaxe de la commande qui permet de supprimer une ligne.
Merci d'avance pour votre aide.
Daniel S.
Bonjour Daniel;
1) Si tes boutons sont issus de la barre d'outils Formulaire:
' Initialise la même macro pour le OnAction de chaque bouton
Sub CmdBtnInit()
Dim i%
With Worksheets(1)
For i = 1 To .Buttons.Count
.Buttons(i).OnAction = "Test"
Next i
End With
End Sub
Sub Test()
' Retourne le nom du bouton
Select Case Application.Caller
Case "Bouton 1"
Case "Bouton 3"
'....
End Select
End Sub
2) Cells(10, 1).EntireRow.Delete Shift:=xlUp
ou
Range("A10").EntireRow.Delete Shift:=xlUp
MP
"Daniel" <*j'enlève ceci*daniel.schils@advalvas.be> a écrit dans le message
de news:41f39cb5$0$22265$ba620e4c@news.skynet.be...
Bonjour,
J'ai trente Commandbutton numéroté de CommandButton1 à CommandButton30
Un autre bouton se utilise les caption de ces CommandButton.
Comme puis-je faire pour ne être obligé d'écrire 30 macros où seul le
numéro
CommandButton change ?
J'imagine qu'il y a moyen d'en faire une variable, mais étant débutant, je
coince.
J'aimerais aussi connaître syntaxe de la commande qui permet de supprimer
une ligne.
Bonjour Daniel; 1) Si tes boutons sont issus de la barre d'outils Formulaire: ' Initialise la même macro pour le OnAction de chaque bouton Sub CmdBtnInit() Dim i% With Worksheets(1) For i = 1 To .Buttons.Count .Buttons(i).OnAction = "Test" Next i End With End Sub
Sub Test() ' Retourne le nom du bouton Select Case Application.Caller Case "Bouton 1"
Case "Bouton 3"
'.... End Select End Sub
2) Cells(10, 1).EntireRow.Delete Shift:=xlUp ou Range("A10").EntireRow.Delete Shift:=xlUp
MP
"Daniel" <*j'enlève ceci* a écrit dans le message de news:41f39cb5$0$22265$
Bonjour,
J'ai trente Commandbutton numéroté de CommandButton1 à CommandButton30
Un autre bouton se utilise les caption de ces CommandButton.
Comme puis-je faire pour ne être obligé d'écrire 30 macros où seul le numéro
CommandButton change ?
J'imagine qu'il y a moyen d'en faire une variable, mais étant débutant, je coince.
J'aimerais aussi connaître syntaxe de la commande qui permet de supprimer une ligne.
