Curseur dans première textebox autorisée en écriture

Bonjour,

voici les conditions d'écriture dans mes textbox :

Private Sub OptionButton1_Click()

For i = 3 To 8

If Cells(3, i) = "" Then

Controls("Textbox" & i + 4).Enabled = False

Else

Controls("Textbox" & i + 4).Enabled = True

End If

Next i

Je souhaiterais que mon curseur se place sur la première textbox qui est à "true" à chaque fois que je clique sur mon OptionButton.

J'ai essayé Focus mais forcement, j'ai une erreur si l'écriture est interdite. En fait il faudrait que ça passe à la textbox suivante jusqu'à ce que ça trouve la première sur "true".

Quelqu'un peut-il m'aider siouplais?

Bonjour

Pas commode sans fichier.

Essaie tout de même d'ajouter ce code :

Private Sub OptionButton1_Click()
    For i = 3 To 8
     If Cells(3, i) = "" Then
        Controls("Textbox" & i + 4).Enabled = False
     Else
        Controls("Textbox" & i + 4).Enabled = True
     End If
    Next i

For i = 3 To 8
        If Controls("Textbox" & i + 4).Enabled = True Then
            Controls("Textbox" & i + 4).SetFocus
            Exit For
        End If
Next i

Que donne-t-il ?

Bye !

Bonjour gmb,

je viens de tester et surtout d'avoir très honte.

Comme quoi c'est vraiment un métier...

C'était exactement ce que je cherchais.

Merci beaucoup!!!

Dart974 a écrit :

Comme quoi c'est vraiment un métier...

Tu te trompes !

Ce n'est pas mon métier, mais alors pas du tout !

C'est beaucoup mieux : ma passion !

Bye !

Rechercher des sujets similaires à "curseur premiere textebox autorisee ecriture"