ERREUR 13 : incompatibilité / VBA

Résolu
arsene2222 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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.
A voir également:

1 réponse

ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Arf !...

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

0
arsene2222 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Je vous remercie! ça marche
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > arsene2222 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
parfait! peux-tu alors marquer ceci comme résolu, via la roue dentée à droite du titre?
0