Bonjour à tous,
J'ai un blem avec un le formulaire suivant:

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
Dim i As String
 
'Listes avec plusieurs colonnes
Private Sub UserForm_Initialize()
    Sheets("feuil2").Select
    resultat.ListBox2.ColumnCount = 3 'affiche les 3 premières colonne
    resultat.ListBox2.ColumnWidths = "80,80" 'espacement
    resultat.ListBox2.RowSource = "A2:C" & [B65000].End(xlUp).Row 'lignes sources
End Sub
 
Private Sub ListBox2_Click()
 
End Sub
 
Private Sub CommandButton1_Click()
Range("a2").Select
i = ListBox2.Value
Do While ActiveCell <> ""
          If i = ActiveCell Then
          If reçu.Value = True Then
                        ActiveCell.Offset(0, 4) = "O"
                    Else
                        ActiveCell.Offset(0, 4) = "N"
            End If
 
            If echec.Value = True Then
                        ActiveCell.Offset(0, 5) = "O"
                    Else
                        ActiveCell.Offset(0, 5) = "N"
            End If
 
 
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
End Sub
Dans la selection de mon listbox j'ai le nom, le prenom et la date de naissance d'individus dans cette ordre. Quand je selectionne un individu, le programme ne prend en compte que le nom pour faire la suite du programme alors que je souhaiterai qu'il prenne en compte aussi le prenom et la date de naissance. Par exemple si j'ai plusieurs DUPONT, il éxécute les instructions pour tout les DUPONT.
Quels changements dois je faire pour que ça marche.