Créer un userform5 à partir des données d'une boucle de l'userform4

Version imprimable

2 pièce(s) jointe(s)

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 :

Pièce jointe 415410

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 :

Pièce jointe 415421

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

Voici mon code :
Code:

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

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:

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

27/09/2018, 16h55
cheepow

1 pièce(s) jointe(s)

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 :

Pièce jointe 415441

Sur l'image j'ai oublié le End with, mais je l'ai mis après avoir fais le sreen et toujours l'erreur.
27/09/2018, 17h01
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...
27/09/2018, 17h01
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 8-)
27/09/2018, 17h16
cheepow

Citation:

Envoyé par 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...

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

Merci beaucoup.
27/09/2018, 17h17
cheepow

Citation:

Envoyé par 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 8-)

Bonjour Transitoire,

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

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:

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

;)