Afficher un message
Vieux 29/11/2005, 09h48   #3 (permalink)
zesuila
XLDnaute Occasionel
 
Avatar de zesuila
 
Date d'inscription: mars 2005
Localisation: Albi
Version Excel : Excel 2003 (PC)
Messages: 197
Par défaut Re:accéder à ne textbox suivant critère dans userf

Bonjour Pascal, le forum

En fait j'ai revu ma question et pour faire plus simple, il faut lire maintenant ceci :
Lorsque l'utilisateur clique sur le bouton ok, cela ouvre l'userform 'reprise' et si dans le textbox25 de cet userform, il y a BL ou BE ou BD, le curseur se positionne dans le textbox 13 de ce même userform et
si dans le textbox25 il y a OR alors il se positionne dans le textbox1

J'ai donc essayé ton code mais il me donne une erreur 'erreur 424
objet requis'
voici le code que j'avais mis :

Private Sub CommandButton1_Click()
'Worksheets('BON').Activate
'Range('RAZBON').ClearContents
REPRISE.Show
If TextBox25.Value = 'OR' Then
TextBox13.SetFocus
Else
TextBox1.SetFocus
End If

'If TextBox8.Value = 'BL' Then
'Range('B29').Select
'Unload SAISIE
'REPRISE.Show
'Else

'If TextBox8.Value = 'BD' Then
'Worksheets('BON').Activate
'Range('RAZBON').ClearContents
'Range('B29').Select
'Unload SAISIE
'REPRISE.Show
'Else

'If TextBox8.Value = 'OR' Then
'Worksheets('BON').Activate
'Range('RAZBON').ClearContents
'Range('B39').Activate
'Unload SAISIE
'REPRISE.Show
'TextBox1.SetFocus
'Else

'If TextBox8.Value = 'BE' Then
'Worksheets('BON').Activate
'Range('RAZBON').ClearContents
'Range('B29').Activate
'Unload SAISIE
'REPRISE.Show
'TextBox13.SetFocus


'End If
'End If
'End If
'End If

End Sub


mais je le sens pas bien mon code qu'en penses tu ?
__________________
Zesuila
"Un homme n'est vieux que quand les regrets ont pris chez lui la place des rêves"
J. Barrymore
zesuila est déconnecté   Réponse avec citation