Structure For each...Next

[DAVIDRUN]

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

à++

 

[Zon]

Salut,

Je crois que tu as une boucle de trop je supprime le test car il me semble pas utile dans le cas présent(je me trompe ???) , peut être que le résultat que tu veux tu pourras l'obtenir comme ceci si tu n'as que des commandbuttons.

Dim C As Object
Dim lig As Integer
Lig=2
Set F1 = Me.Frame1

For Each C In F1.Controls
C.Caption = Feuil2.Range("B" & lig).Value
lig = lig + 1
Next C

Rajouter le test suivant, si tu as d'autres controles
If typeof C is msforms.commandbutton then
C.caption= Feuil2.Range("B" & lig).Value
lig = lig + 1
end if
next c

A+++

 

[DAVIDRUN]

Salut à toi Zon,

Je te remercie pour ton aide, c'est ce qu'il me fallait.

Bonne journée, et bonne fêtes de fin d'année...

Bye

DAVIDRUN