Discussion :

[AMO05]

Salut j'ai un problème avec ce programme

boite1

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
ligne = Sheets("feuil2").[a65000].End(xlUp).Row + 1
Sheets("feuil2").Cells(ligne, 1) = UCase(toto.nom)
Sheets("feuil2").Cells(ligne, 2) = UCase(toto.prenom)
Sheets("feuil2").Cells(ligne, 3) = toto.datere
Sheets("feuil2").Cells(ligne, 4) = Application.Proper(toto.sexe)
End Sub

boite2

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
    Sheets("feuil2").Select
    resultat.ListBox2.ColumnCount = 3 
    resultat.ListBox2.ColumnWidths = "80,80" 
    resultat.ListBox2.RowSource = "A2:C" & [B65000].End(xlUp).Row
End Sub

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
Private Sub ListBox2_Click()
 
End Sub
 
Private Sub CommandButton1_Click()
 
    If reçu.Value = True Then
       Cells(ligne, 5) = "O"
    Else
        Cells(ligne, 5) = "N"
    End If
    If echec.Value = True Then
       Cells(ligne, 6) = "O"
    Else
        Cells(ligne, 6) = "N"
    End If
End Sub

Quels instructions manquent afin que je puisse faire un lien entre les différentes instructions.

Merci

[AlainTech]

C'est quoi une boîte?

[AlainTech]

Reçu par MP:

Au fait je voulais parlez des USEFORM.
Le blem c'est que je n'arrive pas à trouver les bonnes instructions pour le deuxième Useform afin que dans la feuille excel, une cellule quelconque soit selectionné mais corresponde au nom dans la listbox choisi.

[AMO05]

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