Sujet Précédent Sujet Suivant

Création macro

Résolu/Fermé
arsene - 18 juil. 2018 à 14:20
arsene2222 Messages postés 5 Date d'inscription mercredi 18 juillet 2018 Statut Membre Dernière intervention 19 juillet 2018 - 18 juil. 2018 à 20:34
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

Réponse 1 / 1
Hutg Messages postés 8 Date d'inscription mercredi 11 juillet 2018 Statut Membre Dernière intervention 20 juillet 2018
18 juil. 2018 à 14:38
Bonjour,

Ce code devrait mieux fonctionner. Il te suffit de regarder la dernière ligne de tes données et de remplacer la valeur de "Dernierecellule" (Dans l'exemple j'ai pris 20000) et la macro réalisera la vérification. 

Sub regle()

Dernierecellule = 20000 'Entrer la dernière ligne de données exemple 20000

Set zone = Range(Cells(1, 1), Cells(Dernierecellule, 1))

For Each c In zone
    If c.Value = "304035" Then
        c.Value = "bon environnement"
    ElseIf c.Value = "305678" Then
        c.Value = "mauvais environnement"
    End If
Next c
End Sub


Bonne chance
0
arsene2222 Messages postés 5 Date d'inscription mercredi 18 juillet 2018 Statut Membre Dernière intervention 19 juillet 2018
18 juil. 2018 à 20:34
Merci cette solution fonctionne aussi!
En rajoutant ".cell" : For each cell in columns("A").cell ça marche
0