recuperer la value de plusieurs commandbutton

[mariobross]

Bonsoir le forum.
je voudrai récuperer dans des cellules les valeurs de 90 commandbutton , pour cela j'ai pensé à une boucle , mais je butte sur la mise en place :

le code est le suivant :

Private Sub Workbook_Open()
Dim i As Byte
For i = 1 To 90
Feuil4.Range("B" & i).Value = UserForm2.CommandButton & i .Caption
Next i
UserForm2.Show
End Sub

Si je remplace "CommandButton & i" par "CommandButton1" cela fonctionne.
je joins le fichier.

 

[wilfried_42]

Re : recuperer la value de plusieurs commandbutton

bonjour mariobross

UserForm2.Controls("CommandButton" & i).Caption

 

[BOISGONTIER]

Re : recuperer la value de plusieurs commandbutton

Bonsoir,

Il y a discontinuité dans la numérotation.

  i = 1
  For Each c In UserForm2.Controls
    If TypeName(c) = "CommandButton" Then
      Feuil4.Range("B" & i).Value = c.Caption
      i = i + 1
    End If
  Next c

JB
Formation Excel VBA JB

 

[mariobross]

Re : recuperer la value de plusieurs commandbutton

ok merci .