Problème CheckList avec condition et nombre de ligne

Version imprimable

09/12/2019, 10h20
Jeremy.fuego

1 pièce(s) jointe(s)

Problème CheckList avec condition et nombre de ligne

Bonjour à tous ,

Me revoilà avec de nouveaux problèmes :roll: . Grace à différent post du forum j'ai réussi à compiler plusieurs codes pour obtenir mon programme composé de 2 userform.
Cependant j'ai un problème avec mon deuxième Userform nommé "UserformR" dans le fichier ci-joint. J'ai inséré une Listbox qui devrait interroger la base de donnée de la colonne AB de la feuillle DATA et afficher dans la listbox uniquement les lignes dont les cellules interrogées sont vide. Je n'ai pas réussi à mettre en place cette condition. De plus, maintenant mon compteur de ligne de la listbox m'affiche une valeur qui ne correspond pas aux lignes réelles de la listbox.

Si quelqu'un aurait une solution ou des conseils pour ce petit projet , merci d'avance.

ci-joint le fichier avec les userforms.

Ps: je suis débutant dans le VBA.

Bien cordialement.
09/12/2019, 17h00
Jeremy.fuego

Bonsoir,

Peut être que mon problème n'est pas expliqué correctement.
N'hésitez pas à me faire des retours :/.

Merci d'avance.

Salut

Une proposition et quelques conseils à la fin

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
   '--- valeurs initiales dans ListBox
    Dim lRow As ListRow, iCol As Integer '(à placer en début de code)
 
    'On initialise des valeurs
    ColVisu = Array(3, 5, 6, 28)     ' colonnes à visualiser
 
    'On pointe sur le tableau structuré
    With Feuil2.ListObjects("Tableau1")
        'On boucle sur les ligne de ce tableau
        For Each lRow In .ListRows
            'On vérifie que la colonne Valid_R est vide
            If lRow.Range(1, .ListColumns("VALID_R").Index) = "" Then
                'On ajoute une ligne contenant la valeur de la 1ère colonne
                ListBox1.AddItem lRow.Range(1, 1)
                'On boucle sur les autres colonnes pour complèter la ligne du listbox
                For iCol = 0 To UBound(ColVisu)
                    'On ajouter la valeur à la colonne icol
                    ListBox1.List(ListBox1.ListCount - 1, iCol + 1) = lRow.Range(1, ColVisu(iCol))
                Next
            End If
        Next
    End With
 
    'Conseils :
    'Renommer les contrôles et les tableaux structurés pour que leur role soient compréhensibles dans le code
    'Placer les déclaration de variable en début de procédure
    'Travailler avec le tableau structuré plutôt qu'avec les plages de cellule Excel
    'Aérer et commenter le code pour une meilleur lisibilité et compréhension du code
    'Accorder du soin au indentation, surtout avant de demander de l'aide. Plusieurs des balises étaient fermé sans avoir d'ouverture (Next, End With qui trainent)
    '

Je ne peux que fortement t'inciter à reprendre ton code en faisant une utilisation plus importante du tableau structuré.

Un autre conseil, regarde comment faire les déclarations d'API pour quelles soient compatible 32 ET 64bit, rien de plus pénible à l'ouverture d'un fichier d'avoir des blocages partout à cause de ça, c'est à mon avis ce qui a dû rebuter les éventuels donneurs d'aide habituels. fait des recherche sur le mot clé VBA PtrSafe

Code:

1
2
3
4
5
#If VBA7 then
'... déclaration 64bit
#Else
'.... déclaration 32bit
#End IF

++
Qwaz