recuperer la value de plusieurs commandbutton

mariobross · 18 Mai 2008

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 · 18 Mai 2008

Re : recuperer la value de plusieurs commandbutton

bonjour mariobross

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

BOISGONTIER · 18 Mai 2008

Re : recuperer la value de plusieurs commandbutton

Bonsoir,

Il y a discontinuité dans la numérotation.

Code:

  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 · 18 Mai 2008

Re : recuperer la value de plusieurs commandbutton

ok merci .

recuperer la value de plusieurs commandbutton

mariobross

XLDnaute Occasionnel

Pièces jointes

wilfried_42

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

mariobross

XLDnaute Occasionnel

Discussions similaires