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
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
A voir également:
- Création macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Creation compte gmail - Guide
- Création compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Création site web - Guide
1 réponse
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
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.
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
18 juil. 2018 à 20:34
En rajoutant ".cell" : For each cell in columns("A").cell ça marche