Discussion :

[cheepow]

Bonjour,

J'ai une petite problématique. Je précise je suis débutant en vba.

J'éxécute un code qui affiche l'UF suivant :



Lorsque l'on rentre le nom ET le prénom, le code va chercher si le client existe dans une base de donnée et s'il existe il doit afficher l'userform suivant prérempli avec les informations de la base de données sur ce client :



Mon code fonctionne jusqu'à la partie userform5 ...

Voici mon code :

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
Private Sub CommandButton1_Click()
 
Dim FindString As String
Dim FindString2 As String
Dim Rng As Range
'Dim Rng2 As Range
 
Worksheets("Clients").Activate
FindString = TextBox1.Value
FindString2 = TextBox2.Value
If Trim(FindString) <> "" And Trim(FindString2) <> "" Then
With Worksheets("Clients").Range("A:A")
Set Rng = .Find(FindString)
If Not Rng Is Nothing And Rng.Offset(0, 1).Value = FindString2 Then
'MsgBox ("OK")
 
UserForm5.TextBox1 = Rng.Value
UserForm5.TextBox2 = Rng.Offset(0, 1).Value
UserForm5.TextBox3 = Rng.Offset(0, 2).Value
UserForm5.TextBox4 = Rng.Offset(0, 3).Value
UserForm5.TextBox5 = Rng.Offset(0, 4).Value
UserForm5.TextBox6 = Rng.Offset(0, 5).Value
UserForm5.TextBox7 = Rng.Offset(0, 6).Value
UserForm5.TextBox8 = Rng.Offset(0, 7).Value
 
Userform5.Show
 
 
Else: MsgBox ("Le client n'existe pas, vérifier que le nom et le prénom soient correctement orthographiés")
 
End If
End With
Else: MsgBox ("Veuillez entrer le nom ET le prénom")
End If
End Sub

[Thautheme]

Bonjour Cheepow, bonjour le forum,

À priori je ne vois pas d'anomalie dans ton code à moins que l'Userform en question ne se nomme pas UserForm5...
Toutefois, peut-être comme ça :

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
Private Sub CommandButton1_Click()
Dim FindString As String
Dim FindString2 As String
Dim Rng As Range
 
Worksheets("Clients").Activate
FindString = TextBox1.Value
FindString2 = TextBox2.Value
If Trim(FindString) <> "" And Trim(FindString2) <> "" Then
    With Worksheets("Clients").Range("A:A")
        Set Rng = .Find(FindString)
    End With
    If Not Rng Is Nothing And Rng.Offset(0, 1).Value = FindString2 Then
        'MsgBox ("OK")
        With UserForm5
            .TextBox1.Value = Rng.Value
            .TextBox2.Value = Rng.Offset(0, 1).Value
            .TextBox3.Value = Rng.Offset(0, 2).Value
            .TextBox4.Value = Rng.Offset(0, 3).Value
            .TextBox5.Value = Rng.Offset(0, 4).Value
            .TextBox6.Value = Rng.Offset(0, 5).Value
            .TextBox7.Value = Rng.Offset(0, 6).Value
            .TextBox8.Value = Rng.Offset(0, 7).Value
            .Show
        End With
        Unload Me
        Exit Sub
    Else
        MsgBox ("Le client n'existe pas, vérifier que le nom et le prénom soient correctement orthographiés")
    End If
Else
    MsgBox ("Veuillez entrer le nom ET le prénom")
End If
End Sub

[cheepow]

Bonjour Tautheme,

Je ne vois pas d'anomalie non plus
J'ai modifié le code avec ce que tu m'as signalé, j'ai toujours la même erreur, la voici :



Sur l'image j'ai oublié le End with, mais je l'ai mis après avoir fais le sreen et toujours l'erreur.

[Thautheme]

Re,

Alors c'est certainement que tu as renommé la textbox de l'UserForm5 autrement que TextBox1...

[Édition]
Bonjour Transitoire, nos posts se sont croisés...

[cheepow]

Re,

Alors c'est certainement que tu as renommé la textbox de l'UserForm5 autrement que TextBox1...

[Édition]
Bonjour Transitoire, nos posts se sont croisés...

Mon textbox1 n'existe pas, le premier textbox était textbox2 désolé !!!
Du coup ça marche

Merci beaucoup.

[patricktoulon]

re
bonjour
ho!! que si!!! il y en a une belle d'anomalie

imagine que
ton findstring ="toto" et ton finstring2="titi"

et que en colonne A tu a x fois "toto " mais que "titi" n'est pas l'offset(0,1) du premier "toto"

et bien ta macro elle s'arrete au 1er "toto" et comme le test offset(0,1) n'est pas egale a findstring2 c'est walouh walouh !!!!

pour info!!

find cherche la premiere occurence
find next recherche la suivante a operer dans une boucle jusqu'a revenir a la 1 ere occurence

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
Sub test0()
    FindString = "toto"
    FindString2 = "titi"
    If (FindString) <> "" And (FindString2) <> "" Then
        With Sheets(1).Range("A:A")
            Set c = .Find(FindString, LookIn:=xlValues)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    If c.Offset(0, 1).Value = FindString2 Then
                        With UserForm5
                            .Show 0
                            .TextBox1 = c.Value
                            .TextBox2 = c.Offset(0, 1).Value
                            .TextBox3 = c.Offset(0, 2).Value
                            .TextBox4 = c.Offset(0, 3).Value
                            .TextBox5 = c.Offset(0, 4).Value
                            .TextBox6 = c.Offset(0, 5).Value
                            .TextBox7 = c.Offset(0, 6).Value
                            .TextBox8 = c.Offset(0, 7).Value
                        End With
                    End If
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
        End With
    Else
        MsgBox "non"
    End If
End Sub

[Transitoire]

Bonsoir, juste pour information, pour éviter les erreurs d'orthographes etc , j'ai choisi de présenter une listbox avec l'intégralité des clients nom et prénom. dessous un textbox qui a le focus, me permettant de taper par exemple "Z" et aussitôt la ListBox, modifie sa liste n'affichant plus que les clients dont le nom commence par Z (pour le cas d'une liste trop longue de clients). Puis lorsque j'ai trouvé le client, je clique dessus et les coordonnées s'affichent dans des Labels sur le coté du UF donnant les renseignements par Label.Caption.
Enfin moi ce que j'en dit!!! Ca vous éviterais deux UF séparés.
Cordialement

[cheepow]

Bonsoir, juste pour information, pour éviter les erreurs d'orthographes etc , j'ai choisi de présenter une listbox avec l'intégralité des clients nom et prénom. dessous un textbox qui a le focus, me permettant de taper par exemple "Z" et aussitôt la ListBox, modifie sa liste n'affichant plus que les clients dont le nom commence par Z (pour le cas d'une liste trop longue de clients). Puis lorsque j'ai trouvé le client, je clique dessus et les coordonnées s'affichent dans des Labels sur le coté du UF donnant les renseignements par Label.Caption.
Enfin moi ce que j'en dit!!! Ca vous éviterais deux UF séparés.
Cordialement

Bonjour Transitoire,

Pas mal je retiens l'idée qui me parait beaucoup plus fonctionnelle