Saisi dans un Textbox sous condition

[karinette]

Bonsoir à tous,

Je me demande comment pouvoir obliger une saisie dans un Textbox.
J'ai un UserForm avec un Textbox et un bouton de commande qui copie les valeur du textbox dans une feuille "CLIENTS"

Mon soucis est que je doit mettre dans le textbox des valeurs qui sont dans la colonne A1 à A500 de la feuille "BASE CLIENTS" ...

L'idéal serait que si on saisit dans le texbox un nom different que ceux de la colonne de "base clients", il y ai un message du genre "client inconnu" ....

Je sais que je pourrais mettre une listbox, mais c'est très ennuyeux de chercher les noms, sachant que je saisis souvent les même et que je gagne du temps en évitant de selectionner dans une listbox ....

Si quelqu'un à une solution .....
😱

 

[Temjeh]

Re : Saisi dans un Textbox sous condition

Bonjour

Sans avoir ton fichier.
Voici l'essence du code a toi de l'adapter mais il y a aussi possibilité de faire une liste dans le Combobox:

For i = 1 To 500
If Sheets("BASE CLIENTS").Range("A" & i) = ComboBox1.Text Then
ok = 1
End If
Next i


If ok = "" Then MsgBox "Pas de client"

[color=red]EDIT[/color]
'Ou
If ok = 1 then
ton code de copy ici
else
MsgBox "Pas de client"
End if

A++
Ce lien n'existe plus

 

[karinette]

Re : Saisi dans un Textbox sous condition

Je met le classeur en exemple ...
Le bouton "NOUVEAU" lance le UserForm ....

 

[Temjeh]

Re : Saisi dans un Textbox sous condition

Rebonsoir

Code retié voir plus bas ...merci


A++
Ce lien n'existe plus

 

[karinette]

Re : Saisi dans un Textbox sous condition

Le code fonctionne ..... Mais ....
Je dois taper le nom tel qu'il est ... majuscule ou minuscule ...
Si on pouvais faire en sorte qu'il ne differencie pas les lettres .... C'est peut être faisable ....

 

[Temjeh]

Re : Saisi dans un Textbox sous condition

Désolé mais le premier ne fonctionnais pas ...j'ai testé prend celui ci::

TextBox1.Value = UCase(TextBox1.Value)
If TextBox1 = "" Then MsgBox "Mettre le nom du client": Exit Sub
For i = 1 To Sheets("BASE CLIENTS").Range("A65000").End(xlUp).Row
   If Sheets("BASE CLIENTS").Range("A" & i) = TextBox1 Then
     ok = 1
   End If
Next i
If ok = 1 Then
   ActiveSheet.Range("D3") = TextBox1.Value
   ActiveSheet.Range("D9") = TextBox2.Value
   ActiveSheet.Range("D7") = ListBox1.Value
   Range("D5").Select
   ActiveCell.FormulaR1C1 = "=NOW()"
   
   UserForm1.Hide
Else
   MsgBox "Pas de client"
End If

EDIT:

C'est OK il met tes minuscules en majuscules avant le transfert

A+

 

[karinette]

Re : Saisi dans un Textbox sous condition

Merci bien !!!