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 :
Le compilateur m'affiche l'erreur suivante : "Erreur d'exécution '1004'. Erreur définie par l'application ou par l'objet".
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
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.
Partager