Supprimer couleur des cellules

Fermé
Iamwalid Messages postés 3 Date d'inscription vendredi 24 avril 2020 Statut Membre Dernière intervention 27 avril 2020 - 24 avril 2020 à 15:21
Iamwalid Messages postés 3 Date d'inscription vendredi 24 avril 2020 Statut Membre Dernière intervention 27 avril 2020 - 27 avril 2020 à 13:48
Bonjour à tous,

Je n'arrive pas à supprimer les couleurs de mes cellules ci dessus:



Sub Afficher_par_pays()


For feuille = 1 To Sheets.Count

Sheets(feuille).Activate

Finligne = ActiveSheet.UsedRange.Rows.Count + 1

Numeroligne = 2

While Numeroligne < Finligne

If Range("A" & Numeroligne).Value = "USA" Then Range("A" & Numeroligne, "F" & Numeroligne).Interior.Color = 255
If Range("A" & Numeroligne).Value = "Suisse" Then Range("A" & Numeroligne, "F" & Numeroligne).Interior.Color = 45768
If Range("A" & Numeroligne).Value = "Maroc" Then Range("A" & Numeroligne, "F" & Numeroligne).Interior.Color = 65535
If Range("A" & Numeroligne).Value = "France" Then Range("A" & Numeroligne, "F" & Numeroligne).Interior.Color = 15773696

Numeroligne = Numeroligne + 1

Wend
Next feuille
End Sub




Merci pour votre aide

3 réponses

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 644
24 avril 2020 à 16:18
Bonjour,

Il faut écrire :

Finligne = Range("A65536").End(xlUp).Row + 1

1
ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
24 avril 2020 à 16:44
Bonjour

Que vaut FinLigne ? Tu exécutes la procedure en pas à pas et tu passes le curseur sur FinLigne
sinon je mettrai plutôt
DerLig = ActiveSheet.Cells.Find("*", , , , xlByRows, xlPrevious).Row

Cdlmnt
1
Iamwalid Messages postés 3 Date d'inscription vendredi 24 avril 2020 Statut Membre Dernière intervention 27 avril 2020
27 avril 2020 à 13:48
FinLigne est une variable pour ligne
0