D
DAVIDRUN
Guest
Bonsoir le forum,
Je n'arrive pas à m'en sortir; une structure For each et For ...Next
imbriquée (peut-être pas indispensable)...
En fait, je veux donner à mes différents commandButtons ( 8 au total) les Noms (propriété caption) contenus dans une plage de cellules (B2:B8).
Voici ma procédure de misère:
Dim C As Object
Set F1 = Me.Frame1
For Each C In F1.Controls
Dim lig As Integer
For lig = 1 To Feuil2.Range("B2:B8")
If C.Caption <> Feuil2.Range("B" & lig).Value Then
C.Caption = Feuil2.Range("B" & lig).Value
lig = lig + 1
End If
Next lig
Next C
>>>> Thanks for your help
à++
Je n'arrive pas à m'en sortir; une structure For each et For ...Next
imbriquée (peut-être pas indispensable)...
En fait, je veux donner à mes différents commandButtons ( 8 au total) les Noms (propriété caption) contenus dans une plage de cellules (B2:B8).
Voici ma procédure de misère:
Dim C As Object
Set F1 = Me.Frame1
For Each C In F1.Controls
Dim lig As Integer
For lig = 1 To Feuil2.Range("B2:B8")
If C.Caption <> Feuil2.Range("B" & lig).Value Then
C.Caption = Feuil2.Range("B" & lig).Value
lig = lig + 1
End If
Next lig
Next C
>>>> Thanks for your help
à++