accéder à ne textbox suivant critère dans userform

[zesuila]

Bonjour à tous
Aujourd'hui voilà mon petit soucis :
J'ai dans un userform , une textbox qui peut etre remplie par 3 possibilités : BL - BE - OR

Lorsque l'utilisateur clic sur le bouton OK de cet userform, j'aimerai que, selon le choix de la textbox ci dessus, cela ouvre un autre userform (le même quelquesoit la réponse) et que le curseur vienne se placer à un endroit précis selon le choix Bl, BE ou OR
soit par exemple textbox1 si c'est BL, ou BE, soit textbox2 si c'est OR

D'avance merci
Et bon courage à André qui doit peut être bosser sur une autre de mes questions du jour !!

[PascalXLD]

Bonjour

sur ton bouton ok tu peux ajouter le code suivant

if textbox1value ='OR' then
userform2.textbox2.setfocus
else
uerform2.textbox1.setfocus
endif

Bon courage

[zesuila]

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 ?

[PascalXLD]

Re

Oui c'est normal car tu ecris

REPRISE.Show
If TextBox25.Value = 'OR' Then

Mais ton textbox25 c'est celui de l'autre userform

il faut donc le préciser avant le nom du textbox

REPRISE.Show
If Userform1.TextBox25.Value = 'OR' Then

[zesuila]

non non c'est dans ce même userform.
En fait dans mon dernier post j'avais rebidouillé mon code pour faire plus simple.

Je vais essayer d'être clair

dans un userform 'saisie', l'utilisateur clique sur le bouton ok
Cela ouvre un nouveau userform nommé 'reprise'.
Dans cet usf, il y a plusieurs textbox, dont un nommé textbox25, ou il ya ces fameux BL BE BD et OR.(avant effectivement ils étaient dans l'userform saisie)
donc ce que je voudrais, c'est que lorsque à l'ouverture du usf 'reprise' et si dans le texbox25 il y a BL ou BD ou BE le curseur va en textbox1 et si c'est OR alors il va en textbox13

Je sais je suis un peu brouillon quelquefois dans mes explications alors si en plus je change les codes entre chaque post .... :whistle: :whistle:
Désolé Pascal
mais merci de ton aide

[PascalXLD]

ok

mais à l'initialisation ton textbox25 il est vide ou tu lui mets quelque chose dedans ?? si oui comment

[zesuila]

il est plein
Soit par BL ou BE ou BD ou OR
et il est remplie automatiquement par un controle source

[PascalXLD]

OK

Mais ton code il est sur le click de ton bouton de otnautre Userform

IL faut donc préciser devantle nom de tes textbox le nom de ton UF

essaies

REPRISE.Show
If REPRISE.TextBox25.Value = 'OR' Then
REPRISE.TextBox13.SetFocus
Else
REPRISE.TextBox1.SetFocus
End If

[zesuila]

non plus maintenant
maintenant lorsque l'on est dans le userform saisie. On clic seulement sur ok pour accéder à l'autre userform 'reprise' et c'est dans cet userform qu'il y a le textbox 25 avec dedans OR BL etc..

[PascalXLD]

re

excuse moi zesuila mais ton code est bien sur le click d'un bouton de ton autre UF ou alors je comprends vraiment plus rien

[zesuila]

je te dirais que je commence à me mélanger les pinceaux !!! :woohoo:

Je vais tenter de tout reprendre :

Ca , c'est le code du usf SAISIE que j'ai simplifié depuis mon 1er post

'bouton OK du USF saisie
Private Sub CommandButton1_Click()

Worksheets('BON').Activate
Range('RAZBON').ClearContents
Range('B29').Activate
Unload SAISIE
REPRISE.Show

End Sub

Donc il m'ouvre l'usf REPRISE
dans cet usf il y a donc un textbox25 qui est renseigné 'automatiquement' par un control source
Si ce textbox25 est egale à BD ou BE ou BL, le curseur à l'ouverture de CE usf REPRISE va en textbox1
Si il y a OR dans ce textbox25, le curseur ira plutôt en textbox13

Voilà ! je suis désolé PAscal de te faire perdre ton temps avec mes explications de pacotilles

[PascalXLD]

Re

Mets ce code dans l'initialisation de ton userform REPRISE

PrivateSub UserForm_Initialize()
If Me.TextBox25 = 'OR' Then
* * Me.TextBox13.SetFocus
Else
* * Me.TextBox1.SetFocus
EndIf
EndSub

[zesuila]

j'ai essayé mais cela ne marche toujours pas
il manque un ptit quelquechose car le curseur ne clignote pas dans le textbox concerné mais si je fais une tabulation le curseur apparait dans le textbox suivant. Donc j'ai l'impression qu'il est bien placé mais pas 'activé'. Et cela même si je tape quelque chose, rien ne se passe

On va y arriver, j'en suis sûr (euh d'ailleurs je dirais même plus TU vas y arriver) :lol:

[PascalXLD]

re

Bon j'ai fait un test et pas de souci

je t'envoie mon classeur de test [file name=Classeur2_20051129103618.zip size=8215]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20051129103618.zip[/file]

[zesuila]

j'ai essayé ! et cela me fait la même chose
Si je tape BL j'ai bien BL qui apparait ds l'usf mais le curseur lui ne clignote pas, il faut faire une tabulation pour le voir apparaitre dans le textbox suivant !!!
Je ne comprends plus rien.