Boucle sur commandbutton

[alf43]

Bonjour le forum,
j'aurai besoin de votre aide svp au sujet des boucles sur commandbutton.
je vous joins un fichier test.
La boucle ne fonctionne pas, je pense que ma construction est trop simple. Les modules de classe, je ne lesi comprends pas trop.
merci de votre si possible

 

[Paf]

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

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+

 

[alf43]

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+

 

[laetitia90]

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

 

[alf43]

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

 

[laetitia90]

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

 

[alf43]

Re : Boucle sur commandbutton

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

 

[alf43]

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+

 

[Bebere]

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

 

[alf43]

[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

 

[Si...]

Re : Boucle sur commandbutton

salut

une version classe

elles sont toujours "classes" tes versions

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