[XL-2007] Compter des lignes incomplètes [Résolu]

[apt]

Bonjour à tous,

Dans un tableau (A1:F21), j'aimerais compter tous les lignes incomplètes en y trouvant au moins une cellule vide.

J'ai utilisé le code suivant, mais il me donne un faux résultat.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
AjoutPos = 2: NbrCode = 19
Set Plage = Range("B" & AjoutPos + 1 & ":F" & AjoutPos + NbrCode)
 
        NbrIncomplet = 0
        For Each ligne In Plage.Rows
            If Application.WorksheetFunction.CountBlank(ligne) > 0 Then
            NbrIncomplet = NbrIncomplet + 1
            MsgBox "ligne row = " & ligne.Row & ", videaddress = " & ligne.Address
            End If
        Next ligne
        Range("I2").Value = NbrIncomplet
End Sub

Ou est l'erreur ?

Merci d'avance.

[jfontaine]

Bonjour,

J'ai utilisé le code suivant, mais il me donne un faux résultat.

Qu'attends de ton code, car sur mon poste il me retourne bien les lignes qui ont une cellule vide entre les colonnes B et F

[apt]

Bonsoir jFontaine,

En PJ, tu pourras regarder dans la feuille "Recap", le nombre des lignes incomplètes dans le tableau en jaune, parfois juste pour les deux premiers tableaux orange et parfois faux pour les deux derniers tableaux.

[BlueMonkey]

Bonsoir,

Une piste :
Dans la sélection de plage a tester, le Range s'arrête à la colonne E,
alors qu'il y a des infos "à tester" (service) en colonne F.

Voir macro du Module1

Code :

1
2
3
4
5
Sub Copie_Modele(AjoutPos As Integer)
        '...
        Set Plage = Range("B" & AjoutPos + 1 & ":E" & AjoutPos + NbrCode)
        '...
End Sub

Autre petite erreur dans Copie_Modele sans conséquence,
Déclaration d'un NbrCelibataire, puis utilisation d'un NbrCelibat non déclaré.
=>Conseil : Ajouter Option Explicit en début de Module1 (comme c'est fait dans les feuilles

[apt]

Bonsoir Blue

Effectivement, le compte ne se faisait pas sur la derniere colonne F.

Merci bien