probleme coloration

[fridrou]

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

 

[PascalXLD]

Re : probleme coloration

Bonjour

Un petit essai avec une MFC

Peut-être plus simple à faire

 

[cbea]

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

 

[PascalXLD]

Re : probleme coloration

Re

Euh Cbea au bout d'un moment cela fait 7 blanches et 5 bleues 🙄

 

[fridrou]

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

 

[Jocelyn]

Re : probleme coloration

Bonjour le Forum,
Bonjour fridrou,

Un test en fichier joint par MFC

Jocelyn

Oup's Bonjour cbea, Pascal désolé pour la collision

 

[PascalXLD]

Re : probleme coloration

Bonjour

essaies ainsi

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

 

[PascalXLD]

Re : probleme coloration

Oup's Bonjour cbea, Pascal désolé pour la collision

Pas de problème en plus 2 formules différentes

Bonne journée à toi

 

[fridrou]

Re : probleme coloration

probleme résolu sur toute la ligne merci infiniment

 

[fanfan38]

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

 

[PascalXLD]

Re : probleme coloration

Bonjour
La macro ci dessous est un exemple en VBA...

A+ François

re

Je ne vois pas de "macro ci dessous" tu as du oublier de la joindre 😉