Userform i.Caption

Bonjour,

Je m'adresse à vous car je désespère de trouver pourquoi mon code ne fonctionne pas, il n'est pourtant pas compliqué!

J'ai un userform avec une trentaine de checkbox que j'ai mis dans le même cadre Et je voudrais juste masquer la colonne quand la checkbox n'est pas cochée...

Les noms dans ma ligne 2 et les caption des checkbox correspondent tous bien!

Pourtant dès la première checkbox ça plante parce que la variable va jusqu'au bout de la feuille et s'arrête à 257...

Private Sub CommandButton_look_Click()

For Each i In Frame_choix.Controls

If i = False Then
Dim f As Integer
f = 2
While Cells(2, f) <> i.Caption
f = f + 1
Wend
Cells(2, f).EntireColumn.Hidden = True

ElseIf i = True Then
Dim t As Integer
t = 2
While Cells(2, t) <> i.Caption
t = t + 1
Wend
Cells(2, t).EntireColumn.Hidden = False

End If

Next i

Je vous remercie d'avance!!

Bye

Bonjour,

Le code semble correct.

A priori, si la boucle While...Wend amène jusqu’à la dernière colonne, c’est que la légende du contrôle n’a pas été trouvée sur la ligne 2. Il s’agit peut-être d’un autre contrôle qui se trouve dans le cadre.

A+