Discussion :

[j0joo]

Bonjour,

Lorsque j'exécute cette macro il m'indique une erreur au niveau de la ligne 3 et plus précisément sur ".Rows". L'erreur dit "Référence incorrecte ou non qualifiée".

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim n As Integer
Dim resultat As Integer
For n = 2 To .Range("X" & .Rows.Count).End(xlUp).Row
    If Range("X" & n) = "1" Then
    resultat = resultat + 1
    End If
Next n
MsgBox resultat
End Sub

Ma colonne X comporte bien des données.

Quelqu'un sait d'où cela peut venir ?

Merci.r

[bboy-eazy]

bonjour,

Remplace par ceci:
si je te dis pas de betises, ca dev

Code :

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

.Cells(Rows.Count, "X").End(xlUp).Row

et remplace aussi:

If Range("X" & n) = "1" Then
par:

Code :

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

if worksheet("test").cells(n,"X").value = 1 then

[Invité]

Code :

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

1
2
3
With ActiveCell.Font
        .Color = -16776961
End With

[j0joo]

Merci pour vos réponses.

Cela fonctionne avec les deux méthodes et j y vois plus clair.

Bonne journée.