• Initiateur de la discussion Initiateur de la discussion fileofish
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fileofish

XLDnaute Occasionnel
Qu'est ce que je ferais sans vous....pas grand chose

J'espere au moins que d'ici qques mois je pourrais en aider aussi 😀 (je suis nouveau)

Dans le fichier joint g une petite macro....mais comme d'hab y a tjs un pb 🙁

1/Tout marche sauf qu'il me colorie egalement la cellule selectionnée pq?
(au fait je sais pas vous mais moi sur la ligne 9 mon pc craque pendant 2secondes ... il affiche les couleurs de l arc en ciel 🙂
Ne vous inquitez pas .... 😉

Merci encore
Fil
 

Pièces jointes

Re : macro couleur

Bonsoir,
remplace ton code par :

Code:
Sub Couleur()
Dim i As Integer
For i = 3 To [COLOR="Red"][B65000].End(xlUp).Row[/COLOR]
If Feuil1.Cells(i, 5) <> "" Then Feuil1.Range(Cells(i, 2), Cells(i, 9)).Interior.ColorIndex = 3
If Feuil1.Cells(i, 6) <> "" Then Feuil1.Range(Cells(i, 2), Cells(i, 9)).Interior.ColorIndex = 4
If Feuil1.Cells(i, 7) <> "" Then Feuil1.Range(Cells(i, 2), Cells(i, 9)).Interior.ColorIndex = 5
If Feuil1.Cells(i, 8) <> "" Then Feuil1.Range(Cells(i, 2), Cells(i, 9)).Interior.ColorIndex = 6
Next i
End Sub

Auparavant, quelque soit les conditions, tu changeais la couleur de la cellule sélectionnée..
De plus, pas besoin d'aller jusqu'à 300, la dernière cellule non vide de la colonne B devrait suffire (en rouge dans le code)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour