ERREUR 13 : incompatibilité / VBA

Résolu
arsene2222 Messages postés 5 Statut Membre -  
yg_be Messages postés 23437 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.

1 réponse

  1. ThauTheme Messages postés 1564 Statut Membre 160
     
    Arf !...

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

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