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