Création macro
Résolu
arsene
-
arsene2222 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
arsene2222 Messages postés 5 Date d'inscription Statut Membre 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.
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:
- Création macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Creation compte gmail - Guide
- Création site web - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Création compte google - Guide
1 réponse
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.
Bonne chance
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
En rajoutant ".cell" : For each cell in columns("A").cell ça marche