Discussion :

[eric4459]

Bonjour,
Je cherche à compter le nombre de cellules ayant des valeurs prédéfinies dans plusieurs colonnes.
Lorsque j'écris :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For i = 0 To Nbcol
    For j = 1 To 24
        If RgPl.Offset(j, -i) > Ref.Offset(3, 0) Then
            For k = 1 To 4
                With Pl
                Etape = Application.WorksheetFunction.CountIf(Columns(2), k)
                End With
            Next k
        End If
    Next j
Next i

Ma variable Etape prend bien la valeur correspondante au nombre de cellule ayant comme critère "k" dans ma colonne B.
Or je cherche à balayer les colonnes de A, B, C, D etc...

J'ai donc écris ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For i = 0 To Nbcol
    For j = 1 To 24
        If RgPl.Offset(j, -i) > Ref.Offset(3, 0) Then
            For k = 1 To 4
                With Pl
                Etape = Application.WorksheetFunction.CountIf(Columns(i), k)
                End With
            Next k
        End If
    Next j
Next i

Avec ce code j'ai un message d'erreur :

Erreur définie par l'application ou par l'objet

J'ai cherché sur le forum une réponse mais n'ai rien trouvé de satisfaisant pour mon cas.

Ma question est donc : Comment définir une colonne en utilisant une variable?
Est-ce une question de syntaxe? de déclaration?
Merci pour votre aide et vos conseils
Eric

[antonysansh]

Bonjour Eric,

Une piste :

Code :

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

1
2
3
4
5
For i = 0 To Nbcol
'----
                Etape = Application.WorksheetFunction.CountIf(Columns(i), k)
'----
Next i

La colonne 0 n'existe pas.
Sinon Columns(i) est une syntaxe correct à ma connaissance.

[eric4459]

Quel Âne !!!!!
Bien sur, la première colonne est

Code :

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

Columns(1)

donc quand j'écris

Code :

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

1
2
For i = 0 To Nbcol
Etape = Application.WorksheetFunction.CountIf(Columns(i), k)

i étant égal à 0 , cela provoque mon erreur
Désolé pour ce post ...
Eric