Bonjour,

Voici mon problème de macro.

Mon premier combobox du nom: "CboxWBS" contient les noms de la colonne B, et le comboBox du nom: "CboxNetwork" contient les prenoms qui va avec le nom, et ces prenoms sont dans la colonne C.

Alors si je choisit un nom "CboxWBS" et un prenom "CboxNetwork", selon les 2 valeurs des 2 combobox, il me donne la valeur de la colonne F (Téléphone) de la même ligne dans mon TextBox1, ensuite la valeur de la colonne I (Cellulaire) de la même ligne dans le textbox2 ainsi que la valeur de la colonne J (Courriel 1) dans le TextBox3.


Voici mon script jusqu'à maintenant:
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
Dim i As Long, DerL As Long, r As Long, Opid1 As String, Opid2 As String
 
DerL = Sheets("Base de donnée").Cells(Rows.Count, 1).End(xlUp).Row
 
For i = 2 To DerL
Opid1 = CboxWBS.Text
Opid2 = CboxNetwork.Text
    Set c = Sheets("Base de donnée").Range("b:b").Find(What:=Opid1, LookAt:=xlWhole)
    Set d = Sheets("Base de donnée").Range("c:c").Find(What:=Opid2, LookAt:=xlWhole)
        If Not c Is Nothing Then
        On Error Resume Next
            r = c.Row
            s = d.Row
            CboxCPM = Sheets("Base de donnée").Cells(r & s, 1)
            TextBox1 = Sheets("Base de donnée").Cells(r & s, 6)
            TextBox2 = Sheets("Base de donnée").Cells(r & s, 9)
            TextBox3 = Sheets("Base de donnée").Cells(r & s, 10)
            TextBox4 = Sheets("Base de donnée").Cells(r & s, 13)
            DTPicker2 = Sheets("Base de donnée").Cells(r & s, 12).Value
            'Label19 = DateDiff(Date - Sheets("Base de donnée").Cells(r, 12) + 365))
            p = Sheets("Base de donnée").Cells(r, 12).Value + 365
 
           Label19 = DateDiff("d", Date, p)
            Label20 = "jour(s) restant avant expiration"
           If Label19 > "365" Then
           Label19 = "Expiré"
           Label20 = "Vous devez renouvler l'antivirus"
       Else
 
        If Sheets("Base de donnée").Cells(r, 12).Value = vbNullString Then
         DTPicker2.Enabled = False
          Label19 = ""
           Label20 = "Aucun antivirus n'a été installé sur cette ordinateur"
        Else
 
        End If
        End If
        End If
Next i
J'ai même essayé avec un autre code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim RECHERCHE As Range, Ligne As Long
 
    Set RECHERCHE = Columns("B:B").Find(CboxWBS)And Columns("C:C").Find(CboxNetwork)
 
    If Not RECHERCHE Is Nothing Then
 
       Ligne = RECHERCHE.Row
      TextBox1 = Range("G" & Ligne)
       TextBox2 = Range("J" & Ligne)
          TextBox3 = Range("K" & Ligne)
       End If
ça fonctionne toujours pas.

comment faire s.v.p?

Merci pour votre aide.