Boucle sur commandbutton

Paf

XLDnaute Barbatruc

• 21 Février 2015

• #2

Re : Boucle sur commandbutton

Bonjour

Private Sub CommandButton_click() n'est pas déclenché au clic de n'importe quel CommandButton.

Ce genre de sub n'existe que si l'objet (en l'occurrence un CommandButton) existe. Il faudrait effectivement une classe pour définir un action déclencher quelque soit le bouton 'cliqué'.

Sinon, si vous n'avez que 4 CommandButton, on pourrait, pour chaque CommandButton, appeler une sub d'affichage avec le N° du CommandButton

Code:

Private Sub CommandButton1_Click()
 AfficheTextBox 1
End Sub

Private Sub CommandButton2_Click()
 AfficheTextBox 2
End Sub

Private Sub CommandButton3_Click()
 AfficheTextBox 3
End Sub

Private Sub CommandButton4_Click()
 AfficheTextBox 4
End Sub

Sub AfficheTextBox(Num)
 TextBox1.Value = Cells(Num + 1, 1).Value
 TextBox2.Value = Cells(Num + 1, 2).Value
 TextBox3.Value = Cells(Num + 1, 3).Value
 TextBox4.Value = Cells(Num + 1, 4).Value
End Sub

A+

 

Vote positif 0 Vote négatif

A

alf43

XLDnaute Junior

• 21 Février 2015

• #3

Re : Boucle sur commandbutton

en effet, merci pour ta réponse Paf ! j'ai contruit cet enchainement dans mon fichier en construction avec une dizaine de boutons pour alimenter textbox, combo ou checkbox. mais je voulais la simplifier et la rendre plus " jolie " ! 😀
A+

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 21 Février 2015

• #4

Re : Boucle sur commandbutton

bonjour alf43 ,Paf🙂🙂
une version classe

le code est brut sur bouton non renommé
on peut utiliser la propriéte Tag egalement pour simplifier & optimiser

 

Pièces jointes

• claas.xlsm

  27.3 KB · Affichages: 71

Vote positif 0 Vote négatif

A

alf43

XLDnaute Junior

• 21 Février 2015

• #5

Re : Boucle sur commandbutton

Ci laetitia90, mais code erreur 32809. je suis tout de même en train de décortiquer ton module de classe pour l'appliquer.
Salutation😱

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 21 Février 2015

• #6

Re : Boucle sur commandbutton

re tous

bizarre j'ai pas ce pb...

essai de supprimer la feuil1 & la recrée & remettre tes données
j'utilise le code_name de la feuille vu la new feuille son code_name sera normalement feuil1 egalement

 

Vote positif 0 Vote négatif

A

alf43

XLDnaute Junior

• 21 Février 2015

• #7

Re : Boucle sur commandbutton

ouais , le fichier bug sur mon pc ! excel coupe dés que je veux sup la feuille
b izarre
lol

 

Vote positif 0 Vote négatif

A

alf43

XLDnaute Junior

• 21 Février 2015

• #8

Re : Boucle sur commandbutton

je viens de finir ma sub effectué par commandbutton. je dois donc la recopier 16 boutons. j'espère qu'il est possible de boucler sur ces boutons.
voici le code bouton :
Private Sub CommandButton3_Click()
i = 2 ' controls("CommandButton" & i + 1.caption)

Sheets("Rapport en cours").Select

ComboBox1.Value = Cells(i, 3).Value & " " & Cells(i, 7).Value & " " & Cells(i, 8).Value
Sheets("Rapport en cours").Select

ComboBox3.Value = Cells(i, 12).Value
TextBox4.Value = Cells(i, 5).Value
TextBox6.Value = Cells(i, 9).Value
TextBox7.Value = Cells(i, 10).Value
TextBox8.Value = Cells(i, 13).Value

If Cells(i, 4).Value = "essai" Then CheckBox1.Value = True Else CheckBox1.Value = False

If Cells(i, 14).Value = "oui" Then CheckBox1.Value = True Else CheckBox1.Value = False


ComboBox2.Value = Cells(i, 6).Value
Sheets("Rapport en cours").Select
TextBox9.Value = Cells(i, 15).Value

Range("A" & i & ":O" & i).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub

A+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 22 Février 2015

• #9

Re : Boucle sur commandbutton

bonjour Alf,Laetitia,Paf,le forum
un autre exemple avec le module de classe de Laetitia
et ton code du poste #8 arrangé autrement, mis en commentaires

 

Pièces jointes

• boucle sur clicAlf.xlsm

  18.9 KB · Affichages: 55

Vote positif 0 Vote négatif

A

alf43

XLDnaute Junior

• 22 Février 2015

• #10

[Resolu] : Boucle sur commandbutton

Bonjour Bebere, j'ai réussi à utiliser le module de classe. Cela me simplifie la vie . merci à toi et au forum pour ces aides qui permettent d'apprendre.
Cordialement
😉

 

Dernière édition: 22 Février 2015

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 22 Février 2015

• #11

Re : Boucle sur commandbutton

salut

laetitia90 à dit:

une version classe

Cliquez pour agrandir...

elles sont toujours "classes" tes versions 😉

Une simple liste en Multiselect ne ferait pas l'affaire ?

 

Pièces jointes

• boucle_sur_clic.xlsm

  16.8 KB · Affichages: 59

Vote positif 0 Vote négatif