Eglantine63000
Nouveau membre
Bonjour,
Je réalise un second tableau à partir d'un premier grâce à une macro.
Une des choses à effectuer est de donner une couleur spécifique pour chaque pays dans l'ensemble du tableau.
Tout se déroule parfaitement SAUF que le code ne colore JAMAIS la dernière ligne du tableau.
Voici mon code de la boucle :
D'avance merci pour votre aide !!!
Je réalise un second tableau à partir d'un premier grâce à une macro.
Une des choses à effectuer est de donner une couleur spécifique pour chaque pays dans l'ensemble du tableau.
Tout se déroule parfaitement SAUF que le code ne colore JAMAIS la dernière ligne du tableau.
Voici mon code de la boucle :
Code:
Sheets("FINAL").Select 'Pour mettre en couleur les Pays présents dans le Tableau
FinLigne = ActiveSheet.UsedRange.Rows.Count
NumeroLigne = 2
While NumeroLigne < FinLigne
If Range("A" & NumeroLigne).Value = "France" Then Range("A" & NumeroLigne, "D" & NumeroLigne).Interior.Color = 65535
If Range("A" & NumeroLigne).Value = "Belgique" Then Range("A" & NumeroLigne, "D" & NumeroLigne).Interior.Color = 5296274
If Range("A" & NumeroLigne).Value = "Maroc" Then Range("A" & NumeroLigne, "D" & NumeroLigne).Interior.Color = 255
If Range("A" & NumeroLigne).Value = "Suisse" Then Range("A" & NumeroLigne, "D" & NumeroLigne).Interior.Color = 15773696
NumeroLigne = NumeroLigne + 1
Wend
Range("A1").Select
End Sub
D'avance merci pour votre aide !!!