Affichage d'un textbox

Bonjour,

Le code ci-dessous indique que si une personne saisie une date dans le TextBox 13, un MessageBox apparaît pour demander de donner des explications supplémentaires. Celles-ci devront être saisies dans le TextBox 12, c'est pour cette raison que le curseur va automatiquement clignoter dans le TextBox 12.

Private Sub TextBox13_Change()
If Len(TextBox13.Value) = 10 And IsDate(TextBox13.Value) Then
With TextBox12.Activate
MsgBox "Vous avez clôturé l'action, veuillez détailler en quelques mots si le résultat final correspond aux objectifs", vbInformation, "Veuillez saisir"
End With
End If
End Sub

Est-il possible de faire apparaître la ligne ou plutôt la zone où se trouve le TextBox 12 ? Car pour l'instant le curseur clignote bien dans ce TextBox mais les personnes sont obligées de faire défiler les lignes pour aller à l'emplacement de ce TextBox. Petite précision, le TextBox 12 se trouve au niveau des lignes 88 à 100.

Merci.

Bonsoir,

J'en conclus que ton TextBox est dans un onglet, et non dans un UserForm....

Dans ce cas, si ton TxtBx12 est dans la ligne 88, avant de l'activer, tu peux rajouter une commande du style :

Application.Goto Range("A88"), True

Je te laisse découvrir les joies du Goto, via la touche magique "F1"

Bonjour et merci Cousinhub,

Cela fonctionne.

Je sais pour l'aide en faisant F1 mais sur le pc du boulot ça fonctionne pas. Vas t'en savoir pourquoi.

Problème résolu.