Bonjour,

J'ai un petit soucis,

Dans une macro, je veux compter le nombre de cellules ayant une valeur différente de 20 dans une plage. Pour se faire, j'ai réalisé la macro suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Dim Nbr As Integer
 
Nbr = 0
 
For Each cell In ThisWorkbook.Sheets("Feuil1").Range(Cells(25, 4), Cells(27, 4))
If cell.Value <> 20 Then Nbr = Nbr + 1
Next
Le compilateur m'affiche l'erreur suivante : "Erreur d'exécution '1004'. Erreur définie par l'application ou par l'objet".
Cette erreur semble être due à "For Each cell In ThisWorkbook.Sheets("Feuil1").Range(Cells(25, 4), Cells(27, 4))".
La macro fonctionne lorsque je l'exécute en me trouvant sur la feuille où s'effectue le comtpage, mais ne marche pas quand je l'exécute alors que je me trouve sur une autre feuille du classeur.

Merci d'avance pour votre aide.