ERREUR 13 : incompatibilité / VBA [Résolu/Fermé]

Signaler
Messages postés
5
Date d'inscription
mercredi 18 juillet 2018
Statut
Membre
Dernière intervention
19 juillet 2018
-
Messages postés
11807
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 août 2020
-
Bonjour,

je suis nouveau sur le forum, et novice dans vba.

J'essaie de mettre en place une macro le but est de vérfier les données de la colonne A et de les remplacer par : Bon environnement / Mauvais environnement :

Sub regle()

Dim cell as range

For each cell in columns("A")

If cell.value="304035" Then
cell.value="bon environnement"

Elseif cell.value="305678" Then
Cell.value="mauvais environnement"

End if
End if
Next

End sub

Mais j'ai un message d'erreur : erreur d'exécution 13 : Incompatibilité type

Merci infiniment pour votre aide et conseil.

1 réponse

Messages postés
1400
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
16 avril 2020
139
Arf !...

For each cell in Columns("A").Cells 

Messages postés
5
Date d'inscription
mercredi 18 juillet 2018
Statut
Membre
Dernière intervention
19 juillet 2018

Je vous remercie! ça marche
Messages postés
11807
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 août 2020
674 >
Messages postés
5
Date d'inscription
mercredi 18 juillet 2018
Statut
Membre
Dernière intervention
19 juillet 2018

parfait! peux-tu alors marquer ceci comme résolu, via la roue dentée à droite du titre?