Discussion :

[AMO05]

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.

[laetitia]

bonjour AMO05 le forum essai comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
Dim t As Variant
Private Sub CommandButton1_Click()
If reçu = True Then Cells(ListBox2.ListIndex + 2, 4) = "O" Else Cells(ListBox2.ListIndex + 2, 4) = "N"
If echec = True Then Cells(ListBox2.ListIndex + 2, 5) = "O" Else Cells(ListBox2.ListIndex + 2, 5) = "N"
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
Sheets("Feuil2").Select
t = Range("a2:c" & Range("a65536").End(xlUp).Row): ListBox2.List = t
With ListBox2: .ColumnCount = 3: .ColumnWidths = "80;80;80": End With
End Sub

j ai suppose que recu & echec sont des CheckBox

[AMO05]

Merci Laetitita,
C'est ce qu'il me fallait.

[laetitia]

re, pour simplifier tu peus aussi utiliser la fonction IIf attention quand même a l' utilisation de cette fonction les 2 conditions sont testées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
Cells(ListBox2.ListIndex + 2, 4) = IIf(reçu = True, "O", "N")
Cells(ListBox2.ListIndex + 2, 5) = IIf(echec = True, "O", "N")
End Sub

[AMO05]

Merci pour le conseil.