Discussion :

[Mas_Carpone]

Me revoilà!

Le challenge ce coup-ci consiste à définir un nombre min et max de "digits" pour une entrée de TextBox (ce nombre doit faire 8 en fait).

J'aimerai aussi m'assurer au moment de la saisie que ce nombre n'existe pas déjà dans la colonne ou il sera stocké.

Côté validation sous excel j'ai une petite idée mais pas sûr que ce soit transférable sous VBA?

Quelqu'un a-t-il déjà eu affaire à ce genre de problème?

[Gorfael]

Salut Mas_Carpone et le forum

Le challenge ce coup-ci consiste à définir un nombre min et max de "digits" pour une entrée de TextBox (ce nombre doit faire 8 en fait).

Essaies avec Len(). Ou expliques le problème comme si on ne connaissait rien de ce que tu veux faire.

J'aimerai aussi m'assurer au moment de la saisie que ce nombre n'existe pas déjà dans la colonne ou il sera stocké.

Pense à transformer le texte en nombre (Clong(), Cdble() ou autre) et recherche avec .Find()

Rappel : on ne sait que ce que nous donne les postes. Plus la question est moins précise, moins on peut plus t'aider.
A+

[Mas_Carpone]

Merci Gorfael!

L'utilisateur doit rentrer un code (d'établissement) dans un Textbox.

Ce code comporte obligatoirement 8 caractères. Donc je crois que Len() devrait fonctionner, avec quelque chose du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Len(TextBox_MDCode.Value) <> 8 Then
Mess = "Le CODE doit comporter 8 caractères"
Else
End If

En ajoutant un message "d'erreur" pour signaler le problème à l'utilisateur.

La deuxième vérification que j'aimerai effectuer est la présence de cette valeur (de l'établissement donc) dans la base de données. Si la valeur est présente, soit l'utilisateur s'est trompé de code, soit il devra trouver et éditer les données déjà existantes de cet établissement.

Je suis en train d'éplucher le fonctionnement de .Find qui a première vue à l'air tout à fait adapté!

Merci pour ces premiers éléments en espérant avoir été plus clair! :-)

[laetitia]

bonjour Mas_Carpone Gorfael le forum un exemple avec un bouton dans ton user recherche sur la colonne A adapte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
  Dim c As Variant
   If Len(TextBox_MDCode) <> 8 Then
     MsgBox "attention 8 caracteres mini"
     TextBox_MDCode.SetFocus
     Exit Sub
  End If
 Set c = Range("a1", Cells(Rows.Count, "a").End(xlUp)).Find(TextBox_MDCode, LookIn:=xlValues, LookAt:=xlWhole)
  If Not c Is Nothing Then
   MsgBox "present dans la liste" 'ton code
   Else
  MsgBox "pas present dans la liste" 'ton code
  End If
End Sub

dans proprietees de ta textbox MaxLength a 8 "caracteres maxi" evite deja de taper trop de caracteres

facultatif cidessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub TextBox_MDCode_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'force a taper que des chiffres utile si ton code comporte que des chiffres autrement supprimer
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

[Mas_Carpone]

L, A, E dans l'A, TI, TI A!

Ça marche nickel! Un grand merci à tous les deux pour votre aide!

[Mas_Carpone]

Je me permet de re-upper pour complément d'information / aide.

J'ai parfois plusieurs milliers d'entrées dans la base et j'aimerai, si la valeur existe déjà dans la base l'indiquer à mon utilisateur.

Comment puis-je capturer le nombre de la ligne à laquelle la valeur a été rencontrée par .find pour le réutiliser plus tard?

[Mas_Carpone]

Je reviens. Après avoir bidouillé le code en partant de l'example de Laetitia, je me retrouve avec une série de Bugs (sur les End If manquants, ou en trop, etc.

Vous voyez quelque chose d'anormal ici?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub TextBox_MDCode_AfterUpdate()
 
'Value entered necessarilly has 6 digits'
 
Dim c As Variant
 
If Len(TextBox_MDCode.Value) <> 6 And Len(TextBox_MDCode.Value) <> 0 Then
    Select Case MsgBox("Le code doit comporter 6 caractères", vbOKOnly)
    Case vbOK
    TextBox_MDCode.Value = ""
    TextBox_MDCode.SetFocus
 
Exit Sub
 
'Verify whether the code entered already exists and where'
 
    Set c = Range("MDCode_Field").Find(TextBox_MDCode, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
 
    Select Case MsgBox("Vérifiez le code et assurez vous que ce Centre ne soit pas déjà enregistré", vbOKOnly, "Code Existant")
 
    Case vbOK
 
    TextBox_MDCode.Value = ""
    TextBox_MDCode.SetFocus
 
   End Select
 
End If
 
End Sub

Ceci est une des nombreuses versions que j'ai essayées...

[Mas_Carpone]

J'ai coupé le code en 2 et corrigé chaque bout indépendamment.

Voila quelque chose qui marche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub TextBox_MDCode_AfterUpdate()
 
'Value entered necessarilly has 6 digits'
 
Dim c As Variant
 
If Len(TextBox_MDCode.Value) <> 6 And Len(TextBox_MDCode.Value) <> 0 Then
    Select Case MsgBox("Le code doit comporter 6 caractères", vbOKOnly)
    Case vbOK
    TextBox_MDCode.Value = ""
    TextBox_MDCode.SetFocus
 
    End Select
 
Else: Range("MDCode_Field")(TextBox_Prev_Next.Text).Value = TextBox_MDCode.Value
 
End If
 
'Verify whether the code entered already exists and where'
 
    Set c = Range("MDCode_Field").Find(TextBox_MDCode, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
 
    Select Case MsgBox("Vérifiez le code et assurez vous que ce Centre ne soit pas déjà enregistré", vbOKOnly, "Code Existant")
    Case vbOK
    TextBox_MDCode.Value = ""
    Range("MDCode_Field")(TextBox_Prev_Next.Text).Value = ""
    TextBox_MDCode.SetFocus
 
    End Select
 
Else: Range("MDCode_Field")(TextBox_Prev_Next.Text).Value = TextBox_MDCode.Value
 
End If
 
End Sub