Discussion :

[klash384]

Bonjour à tous, et meilleurs voeux !

Avant de venir poster j'ai essayé de trouver par moi même une solution. Vous vous doutez si j'en ai trouvé une de fait

Je viens vers vous car j'essaye de mettre en place la fonction countif pendant que j'exécute une boucle.

Du coup, je voudrais que ma plage de cellules qui est une partie d'une ligne de mon tableau, (le boucle s'exécute de ligne en ligne+1) puisse changer automatiquement sont range au fur et à mesure que ma boucle continue.

J'ai essayé divers choses, dont ceci en dernier lieu, mais en lançant le résultat dans une Msgbox le résultat est toujours égal à 0. Et je pense que ce doit être mon Range qui n'est pas bon.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub reretest()
Dim Ligne, MaPlage
Dim CompteMoi As Long
Ligne = 3
    Do While Cells(Ligne, 1) <> ""
        Set MaPlage = Range(Cells(Ligne, 64), Cells(Ligne, 77))
        CompteMoi = WorksheetFunction.CountIf(MaPlage, "CDD6-")
        Reponse = MsgBox(CompteMoi, vbOKOnly)
    Ligne = Ligne + 1
    Loop
End Sub

Pourriez vous m'aider à comprendre mon erreur ?

Cordialement

[klash384]

Bon, je mets le sujet en résolu, j'ai finalement trouvé le problème : moi-même ! je m'étais planté dans la notation du critère ! Du coup il cherchait un critère qui n'existait pas (ou du moins qui n'était pas écrit pareil, d'où le retour systématique d'une valeur nulle !