bonjour,

j'ai un souci, je ne vois pas où se trouve le problème, je n'arrive pas à faire marcher mes boutons VALIDER.

C'est un formulaire de Contacts, en Multipage (2 pages) 1 CONTACTS, l'autre SOCIETE. La base de recherche est sur Excel 2003. J'en ai fait un autre qui marche très bien, je ne comprends pas pourquoi celui-ci ne marche pas pourtant c'est le même code que l'autre ?

Pouvez-vous m'aider SVP

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
Option Explicit
 
Private Sub CB2_efface_Click()
'efface la sélection des textboxs
tbx_adresse_1.Text = ""
tbx_adresse_2.Text = ""
tbx_cp.Text = ""
tbx_ville.Text = ""
tbx_pays.Text = ""
tbxtelstandard.Text = ""
tbx_fax.Text = ""
tbx_site_web.Text = ""
ComboBox2.Text = ""
 
End Sub
 
Private Sub CommandButton1_Click()
Dim i As Integer
 
'feuille contenant la valeur à chercher
With Sheets("CONTACTS")
'de la ligne 2 à la dernière ligne utilisée de la colonne C
For i = 2 To .cells(Rows.Count, 3).End(xlUp).Row
'recherche de la ligne en colonne C qui correspond à la sélection du combobox1
If .cells(i, 3).Text = Me.ComboBox1 Then
'si oui ComboBox1 = colonne suivante même ligne
tbxsociete = .cells(i, 2).Text
tbx_prenom = .cells(i, 4).Text
tbxtitre = .cells(i, 5).Text
tbxfax = .cells(i, 7).Text
tbxteldirect = .cells(i, 8).Text
tbxportable = .cells(i, 9).Text
tbxportable2 = .cells(i, 10).Text
tbxemail = .cells(i, 11).Text
 
Exit For
End If
Next
End With
 
End Sub
 
Private Sub efface_Click()
'efface la sélection des textboxs
tbx_prenom.Text = ""
tbxsociete.Text = ""
tbxtitre.Text = ""
tbxemail.Text = ""
tbxteldirect.Text = ""
tbxfax.Text = ""
tbxportable.Text = ""
tbxportable2.Text = ""
ComboBox1.Text = ""
 
End Sub
 
Private Sub MultiPage1_Change()
 
End Sub
 
Private Sub Quitte_Click()
'pour quitter
Me.Hide
End Sub
 
Private Sub Sortir_Click()
'pour quitter
Me.Hide
End Sub
 
Private Sub UserForm_Initialize()
'pour que la première page soit sélectionner à l'ouverture
Me.MultiPage1.Value = 1
 
End Sub
 
Private Sub VALIDER_Click()
Dim i As Integer
 
'feuille contenant la valeur à chercher
With Sheets("SOCIETE")
'de la ligne 2 à la dernière ligne utilisée de la colonne B
For i = 2 To .cells(Rows.Count, 2).End(xlUp).Row
'recherche de la ligne en colonne B qui correspond à la sélection du ComboBox2
If .cells(i, 2).Text = Me.ComboBox2 Then
'si oui textbox1 = colonne suivante même ligne
tbx_adresse_1 = .cells(i, 3).Text
tbx_adresse_2 = .cells(i, 4).Text
tbx_cp = .cells(i, 5).Text
tbxtelstandard = .cells(i, 8).Text
tbx_fax = .cells(i, 9).Text
tbx_site_web = .cells(i, 10).Text
 
Exit For
End If
Next
End With
 
End Sub
Je vous envoie mon projet.

Merci pour votre aide.