Cekankonvaou
XLDnaute Junior
Bonjour à tous,
Afin de rendre un bout de code plus facile à écrire et modifier si besoin , je souhaite faire évoluer le nom d'une variable dans une boucle.
J'ai essayé ça :
mais ça me renvoie une incompatibilité de type.
En fait, je voudrais que "colflan" devienne à chaque boucle "col_f1_gamme","col_f2_gamme","col_f3_gamme"...etc qui est une variable correspondant à une colonne (variable définie dans un autre module).
Existe il un moyen simple de s'en sortir???
Merci d'avance.
Bertrand
Afin de rendre un bout de code plus facile à écrire et modifier si besoin , je souhaite faire évoluer le nom d'une variable dans une boucle.
J'ai essayé ça :
Code:
Private Sub crea_gamme()
....
Dim colflan, colpas, collg As String
....
For i = 1 To 4
For k = 1 To 3
colflan = Controls("col_f" & i & "_gamme")
colpas = Controls("col_f" & i & "mat" & k & "pas_gamme")
collg = Controls("col_f" & i & "mat" & k & "lg_gamme")
If Me.Controls(labelmat).Visible = True Then
Sheets("GAMMES").Cells(ligne_flan, colflan) = Me.Controls(labelmat).Caption
Sheets("GAMMES").Cells(ligne_flan, colpas) = CDbl(Me.Controls(tbpas))
Sheets("GAMMES").Cells(ligne_flan, collg) = CDbl(Me.Controls(tblg))
End If
mais ça me renvoie une incompatibilité de type.
En fait, je voudrais que "colflan" devienne à chaque boucle "col_f1_gamme","col_f2_gamme","col_f3_gamme"...etc qui est une variable correspondant à une colonne (variable définie dans un autre module).
Existe il un moyen simple de s'en sortir???
Merci d'avance.
Bertrand