• Initiateur de la discussion Initiateur de la discussion fridrou
  • 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 !

fridrou

XLDnaute Nouveau
bonjour,

je souhaiterais, a partir de la deuxieme ligne de mon tableau, colorier de deux couleurs distinctes, les lignes par paquets de 5.

c'est à dire Lignes 2 à 6 en blanc (pas de couleur)
lignes 7 à 11 en bleu ciel.
etc.

comment puis-je procéder?

d'avance merci
 
Re : probleme coloration

Bonjour Fridrou,

Je te propose d'utiliser une mise en forme conditionnelle de la manière suivante :

- Sélectionner les lignes (par exemple les lignes 2 à 15)
- Utiliser le menu : Format/Mise en forme conditionnelle...
une fenêtre apparaît
- Dans la liste de Condition 1, choisir "La formule est"
- Mettre la formule =MOD(LIGNE()/6;2)>1 dans la zone
- Cliquer sur le bouton "Format" et choisir le motif voulu + cliquer sur OK
- Cliquer sur OK

PS : Bonjour PascalXLD
 
Re : probleme coloration

merci, ca fonctionne parfaitement,

serait-ce abuser si je vous demandais, si la meme application était possible en vba et, si oui, si vous pouviez m'aider à la mettre en pratique.

je suis pour l'instant bloqué au point suivant:

Sub Macro3()

For i = 2 To 561
Rows(" & i & : & i+4 &").Select
Range("Ki").Activate
Selection.Interior.ColorIndex = xlNone
Rows("& i + 5: & i + 9").Select
Range("Ki+5").Activate
With Selection.Interior
.ColorIndex = 34
.Pattern = xlSolid
End With
Next i
End Sub
.

avec cette macro, j'ai un probleme de définition de variable et de perpetuation du processus. pourriez vous m'aider s'il vous plait
 
Dernière édition:
Re : probleme coloration

Bonjour

essaies ainsi

Code:
Sub Macro3()
Dim macouleur As Variant
macouleur = 34
For i = 2 To 561 Step 5
macouleur = IIf(macouleur = 34, xlNone, 34)
Rows(i & ":" & i + 4).Interior.ColorIndex = macouleur
Next i
End Sub
 
Re : probleme coloration

Bonjour
La macro ci dessous est un exemple en VBA...
Sub couleur()
coul1 = 0
For i = 2 To 32 Step 5
If coul1 = 1 Then
Range(Cells(i, 1), Cells(i + 4, 1)).Interior.ColorIndex = xlNone
coul1 = 0
Else
Range(Cells(i, 1), Cells(i + 4, 1)).Interior.ColorIndex = 31
coul1 = 1
End If
Next
End Sub

Mais je vois qu'il est trop tard...

A+ François
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Réponses
7
Affichages
701
Réponses
0
Affichages
271
Réponses
0
Affichages
614
Réponses
11
Affichages
456
Retour