[vba et excel] Compter avec condition

Type incompatible sur cette ligne

If ws.Range("O" & i).Value = Cel.Value Then

:o)

Les valeurs se trouvent entre la ligne 125 et 140 de la colonne O.

Sub CommandButton7_Click() 
Dim ws As Worksheet    'Objet feuille 
Dim ligne As Long 
Dim plage As Range 
Dim Cel 
Dim i As Integer 
Dim suivante As Integer 

Set ws = Worksheets("final_par_NNO") 
Set plage = ws.Range("C2:C1037")  

ligne = 140 

For i = 125 To ligne 
suivante = i + 1 
   For Each cel In plage 
        If ws.Range("O" & i).Value = cel.Value Then 
             ws.Cells(i, 1).Interior.ColorIndex = 6 
             ws.Cells(suivante, 1).Interior.ColorIndex = 6 
        End If 
   Next cel 
Next i 

End Sub

;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau

Non lol

Une valeur en O que je recherche dans la colonne C

Tu veux comparer 2 cellules de la même ligne, l'une en colonne C et l'autre en colonne O.

C'est bien ça ?

Parce que à la base le sujet c'est : Je cherche en vba a compter avec condition ...

Je pense que ce n'est pas très loin du résultat que j'attends sauf que là, j'crois qu'on c'est pas compris lol

If cel.Value = "O" & suivant Then cpt = cpt + 1

Ou je ne comprend pas.

Voici avec un exemple, ca sera peut etre plus simple
Dans la plage c2:c1037, j'ai la valeur en c50 -> 123456789

Maintenant, en O133, j'ai également cette valeur 123456789

Je voudrais, grâce à la fonction qu'on est en train d'établir, faire en sorte que la cellule O133 ressorte avec un fond jaune car elle existe dans la plage c2:c1037

Et donc, il faut que je fasse ca pour chaque ligne de la colonne O.

Je pense que c'est plus clair ;)

Merci

Pas tout à fait, car il faut que ca cherche dans toute la colonne C pas forcement sur la meme ligne et c'est la que je bloque !! :s

Merci de votre aide

Sub CommandButton7_Click()

dim i as integer

    For i = 2 To 1037
        If  cells(3, i) = cells(15 , i) Then
            Cells(1, i).Interior.ColorIndex = 6 
        End If
    Next i

End Sub

Est-ce ceci ce que tu souhaites ?

Oui, :D

la réponse pour l'erreur, c'est le countif qui est surligné avec le message :
Erreur de compilation
Sub ou function non défini

Merci

Ton code Polux31 ne permet pas ce que je veux ou je ne le comprend pas :s

Je veux voir si dans la plage c2:c1037, il y a la valeur contenu dans O + la ligne

Je pense que c'est countif qui posse problème, j'ai toujours le message d'erreur

Erreur de compilation
Sub ou function non défini

Merci

Bonjour,

1) ligne = 140 et non ligne = "140"

2) Sheets("final_par_NNO").Select et Range("O130").Select ne servent à rien.
Il est préférable de faire

Dim ws As Worksheet

Set ws = Worksheets("final_par_NNO")

Et ensuite :

ws.Range("C2:C1037")
ws.Cells(i, 1).Interior.ColorIndex = 6
'etc ...

3) Sur quelle ligne apparait le message d'erreur ?

;o)

Et en déclarant tes variables ça marche ?

dim ligne as integer
dim suivante as integer

Et ta boucle s'étends sur quelle plage de cellule ?
Je n'arrive pas à voir.

Erreur de copier coller de code source ;)

Voici ce que j'ai mais qui fait le même résultat

Sub CommandButton7_Click()
    Sheets("final_par_NNO").Select
    Range("O130").Select
    ligne = "140"
    For i = 125 To ligne
        suivante = i + 1
        If (CountIf("C2:C1037", "O" & suivante) > 0) Then
            'Cells(i, 1).Interior.ColorIndex = 6
            'Cells(suivante, 1).Interior.ColorIndex = 6
        End If
    Next i
End Sub

Ton End if est mis en commentaire et il faut mettre Next i