Afficher des données dans un UserForm avec condition

Version imprimable

Bonjour,

Je bloque sur le code qui devrait me permettre d'afficher par un double clic les données sélectionnées dans un ListBox.

Mon code est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub UserForm_Initialize()
Dim I As Byte ', j As Byte
 
    With Worksheets("Données")
        ListDonnéesSaisies.ColumnCount = 4 'nombre de colonnes
        ListDonnéesSaisies.ColumnWidths = "80;80;100;70" 'largeur des colonnes
        DerLig = .Range("C" & Rows.Count).End(xlUp).Row
 
         For I = 2 To DerLig
 
        'Si la valeur en majuscule de la ligne I, colonne 77 (BY!) est egale à FAUX
        If UCase(Feuil2.Cells(I, 77).Value) = "FAUX" Then
 
            ListDonnéesSaisies.AddItem .Range("C" & I).Value
            ListDonnéesSaisies.List(ListDonnéesSaisies.ListCount - 1, 1) = Format(.Range("C" & I).Offset(0, 1), "hh:mm")
            ListDonnéesSaisies.List(ListDonnéesSaisies.ListCount - 1, 2) = .Range("C" & I).Offset(0, 2)
            ListDonnéesSaisies.List(ListDonnéesSaisies.ListCount - 1, 3) = .Range("C" & I).Offset(0, 3)
 
        End If
        Next I
    End With
End Sub

ListDonnéesSaisies est une ListBox.
Les données affichées à ce stade sont correctes.

En cliquant 2 fois sur la ligne sélectionnée, j'ouvre un UserForm mais les données affichées ne correspondent pas à ma sélection.

En revanche, si je supprime ma condition

Code:

If UCase(Feuil2.Cells(I, 77).Value) = "FAUX" Then

le résultat attendu est bon.

Quelqu'un peut m'aider ?
Merci de votre aide

13/01/2013, 10h50
Daniel.C

Bonjour,

Essaie avec :

Code:

If Feuil2.Cells(I, 77).Value = False Then

Note aussi que, pour la bonne règle, tu devrais écrire :

Code:

DerLig = .Range("C" & .Rows.Count).End(xlUp).Row

au lieu de :

Code:

DerLig = .Range("C" & Rows.Count).End(xlUp).Row

Ca n'aurait d'importance que si la feuille active était une feuille de graphique.

Bonjour Daniel,

et merci pour ta réponse.
En définitive, ce n'est pas dans ce code que j'ai un souci. il fonctionne parfaitement.

En revanche, je pense que ce la provient de celui-ci :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub ListDonnéesSaisies_DblClick(ByVal Cancel As MSForms.ReturnBoolean) With Worksheets("Données") If ListDonnéesSaisies.ListIndex = -1 Then Exit Sub ValidNomM = .Range("E" & ListDonnéesSaisies.ListIndex + 3) ValidComNais = .Range("H" & ListDonnéesSaisies.ListIndex + 3) End With UsfSelection.Hide UsfValidNais.Show End Sub
Il ne prend pas le numéro de la ligne de ma sélection mais ajoute des lignes au résultat de ListDonnéesSaisies (+ 3 ?).
Qu'en penses-tu ?

Comment faire pour qu'il prenne le numéro de la ligne ?
Cordialement

13/01/2013, 11h48
Daniel.C

Le numéro de position dans la listbox est donné par :

Code:

ListDonnéesSaisies.ListIndex + 1

La valeur de "ListIndex" est 0 pour la première ligne de la ListBox, 1 pour la deuxième, etc. Maintenant, si la première ligne de la listbox correspond à la ligne 3 de la feuille, il est normal de mettre "+3".
13/01/2013, 22h14
CmzxNene

1 pièce(s) jointe(s)
Bonjour Daniel,

Je suis d'accord sur ce fait mais si je mets ma condition sur les lignes dont la cellule "BY" est FALSE, le résultat retourné n'est pas celui attendu.

Un exemple sera plus compréhensif.
En PJ, une capture des données test.

Si je retire ma condition, ma ListBox affiche tous les "DATE - NOM - PRENOM" dans l'ordre de ma feuille. Si je double-clic sur une ligne au choix, mon UserForm s'ouvre avec les bonnes données.

En revanche, si je laisse ma condition, ma ListBox affiche les NOMS et PRENOMS dont la colonne "G" (pour ce test) est égale à FAUX, soit :
```
02/02/2013        BB        B
02/02/2013        AA        A
15/04/2013        BB        B
```
Si je clique sur la dernière ligne, le résultat envoyé correspond à l'enregistrement de la ligne 5 soit
```
02/02/2013        AA        A
```
alors qu'il aurait dû afficher les données de la ligne 8 :cry: :cry:

Merci pour les observations
Cdt
14/01/2013, 10h57
Daniel.C

Bonjour,

C'est normal, parce que tu n'as plus de correspondance entre le rang de la ligne dans la listbox et le numéro de ligne.
1. tu peux utiliser "ListDonnéesSaisies.Value" pour retrouver la ligne sur la feuille. C'est parfois impossible s'il y a des doublons.
2. tu ajoutes un champ masqué à ta listbox dans lequel tu mets le numéro de ligne. Au remplissage, tu ajoutes :

Code:

ListDonnéesSaisies.List(ListDonnéesSaisies.ListCount - 1, 4) = C.Row

Pour le traitement, tu ne sers plus de "ListIndex", mais de ce champ.
14/01/2013, 12h01
CmzxNene

Bonjour Daniel et merci pour ton aide.
Je vais tester cette manip demain, il se fait tard ici !

Petite question rapide avant d'aller faire dodo : comment ajouter un champ masqué à une ListBox ?
Je n'ai jamais réalisé cela.

Merci et à demain
Cdt
14/01/2013, 12h52
Daniel.C

C'est un champ normal, mais tu fixes sa largeur à 0.
15/01/2013, 08h45
CmzxNene

1 pièce(s) jointe(s)

Bonjour Daniel,

Je suis autodidacte et je ne te cache pas que là, ça devient coton.
Pour essayer d'avancer et comptant sur ton expérience, je joins un fichier test qui sera plus parlant que mes explications.

Plusieurs petits soucis :
1) Lorsque je laisse la condition sur le champ vrai ou faux, j'ai bien les bons enregistrements dans ma ListBox mais au double-clic, je n'ai pas le bon enregistrement dans mon userForm2.
Je ne vois pas comment mettre les paramètres de la Ligne comme tu me l'as décrit.

2) Mon bouton "modifier" ne fait pas tout à fait ce que j'attends de lui. il inscrit les données toujours sur la ligne 9 et ça je pense savoir pourquoi : il ne trouve pas les infos de ma variable LiA

J'espère que tu pourras prendre un peu de temps et me dire ce qui ne va pas.

Merci encore
Cordialement

Bonjour,

Remplace le code du userform1 par :

Code:

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
Private Sub UserForm_Initialize()
Dim I As Byte
 
    With Worksheets("Données")
        ListDonnéesSaisies.ColumnCount = 5 'nombre de colonnes la colonne 5 contient le numéro de ligne
        ListDonnéesSaisies.ColumnWidths = "80;80;100;70;0" 'largeur des colonnes
        DerLig = .Range("B" & .Rows.Count).End(xlUp).Row
 
         For I = 2 To DerLig
 
        'Si la valeur en majuscule de la ligne I, colonne 7 (G!) est egale à FAUX
        If UCase(Feuil1.Cells(I, 7).Value) = False Then
 
            ListDonnéesSaisies.AddItem .Range("B" & I).Value
            ListDonnéesSaisies.List(ListDonnéesSaisies.ListCount - 1, 1) = Format(.Range("B" & I).Offset(0, 1), "hh:mm")
            ListDonnéesSaisies.List(ListDonnéesSaisies.ListCount - 1, 2) = .Range("B" & I).Offset(0, 2)
            ListDonnéesSaisies.List(ListDonnéesSaisies.ListCount - 1, 3) = .Range("B" & I).Offset(0, 3)
            ListDonnéesSaisies.List(ListDonnéesSaisies.ListCount - 1, 4) = .Range("B" & I).Row
            LiA = I
        End If
        Next I
    End With
End Sub
 
Private Sub ListDonnéesSaisies_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim Sh As Worksheet
    Set Sh = Worksheets("Données")
    With ListDonnéesSaisies
        If ListDonnéesSaisies.ListIndex = -1 Then Exit Sub
 
        ValidDate = Sh.Range("b" & .List(.ListIndex, 4))
        ValidHeure = Sh.Range("c" & .List(.ListIndex, 4))
        ValidNom = Sh.Range("d" & .List(.ListIndex, 4))
        ValidPrenom = Sh.Range("e" & .List(.ListIndex, 4))
        ValidObs = Sh.Range("f" & .List(.ListIndex, 4))
        ValidVF = Sh.Range("g" & .List(.ListIndex, 4))
 
    End With
    UserForm1.Hide
    UserForm2.Show
End Sub

N'hésite pas à poser des questions si tu ne comprends pas.

1 pièce(s) jointe(s)

Bonjour Daniel,

et merci pour le code. Je n'étais pas loin !

Il me reste le problème sur le bouton "Modifier" de mon UserForm2.
Lorsque je fais une modif de l'enregistrement choisi et que je clique sur MODIFIER, il m'inscrit les éléments en dessous du dernier enregistrement de la feuille "Données".

Le problème vient à mon avis de ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub CommandButton1_Click() Dim i As Integer Dim Sh As Worksheet Set Sh = Sheets("Données") If Existe Then i = LiA2 Else: i = Sh.Range("B65536").End(xlUp).Row + 1 Sh.Range("B" & i) = TextBox1.Value Sh.Range("C" & i) = TextBox2.Value Sh.Range("D" & i) = TextBox3.Value Sh.Range("E" & i) = TextBox4.Value Sh.Range("F" & i) = TextBox5.Value Sh.Range("G" & i) = TextBox6.Value Unload Me End Sub
Le i en gras, après le Then, retourne systématiquement la valeur 0 alors que LiA2 retourne bien le nmr de ligne.
De ce fait, c'est la condition Else qui prend la main et qui m'inscrit les données à la première ligne vide.

D'où vient le HIC ? :calim2:
Merci de la suite de ton aide.
Je mets mon fichier corrigé en PJ.

Bien à toi

16/01/2013, 12h35
Daniel.C

Bonjour,

La variable "Existe" n'est pas renseignée, d'où l'écriture en ajout sous les données existantes.
17/01/2013, 02h42
CmzxNene
Bonjour Daniel,

effectivement, je n'avais pas déclaré ma variable :oops:

Code:

Public Existe As Boolean

et mis la valeur retournée si je trouvais unenregistrement :oops:
Code:

1 2 If ListDonnéesSaisies.ListIndex = -1 Then Exit Sub Existe = True
Maintenant, cela fonctionne correctement et il ne me reste plus qu'à trouver la solution pour imprimer une feuil paramétrée dans laquelle je copierai les données de mon UserForm2.

Merci de ton aide et de ta disponibilité.
Cordiales salutations :ccool: