Alternance de coloriage

soenda

XLDnaute Accro

• 26 Septembre 2010

• #2

Re : Alternance de coloriage

Bnjour le fil, malarbe

Un exemple à adapter

VB:

 Dim Cel As Range
Dim couleur As Double
 
With Feuil1
 
For Each Cel In .Range("A2", .[A65536].End(xlUp))
 
  If Cel.Value = "Maison" Then
    couleur = IIf(couleur = vbYellow, vbGreen, vbYellow) 
  ElseIf IsNumeric(Cel.Value) And Cel.Value <> "" Then
    Cel.Interior.Color = couleur 
  End If
 
Next
 
End With

A plus

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 26 Septembre 2010

• #3

Re : Alternance de coloriage

Bonjour,
Hello Soenda🙂

Sélectionner les cellule A3 à Gn (n= dernière ligne)
Format/Mise en forme conditionnelle
Condition1= La formule est
En face mettre =EstNum($A3)
Bouton format pour choisir la couleur de fond
Valider

A+

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 26 Septembre 2010

• #4

Re : Alternance de coloriage

Re,
Bonjour Hasco 🙂

Les MFC ..., tu as parfaitement raison !

Je me console en pensant qu'il y a peut-être d'autres types de données...

A plus

PS : par contre, pour l'alternance de couleur ...

 

Dernière édition: 26 Septembre 2010

Vote positif 0 Vote négatif

G

Guest

Guest

• 26 Septembre 2010

• #5

Re : Alternance de coloriage

RE,

Soenda, ok avec ton Post scriptum mais sans plus de précision (fichier exemple)..?

Attendons la suite....

Bonne soirée à toi.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Septembre 2010

• #6

Re : Alternance de coloriage

Bonsoir


Pour l'alternance, votez MFC et MOD avec COLONNE() 😉

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 26 Septembre 2010

• #7

Re : Alternance de coloriage

Bonjour,

Format – Mise en forme conditionnelle

Condition 1
=MOD(COLONNE();2)*(ESTNUM($A1))

Condition 2
=(MOD(COLONNE();2)=0)*(ESTNUM($A1))

 

Pièces jointes

• MefcMalabarbe.xls

  15.5 KB · Affichages: 86

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 26 Septembre 2010

• #8

Re : Alternance de coloriage

Bonsoie à tous,

Pour soenda :
Le script fonctionne en partie

Les lignes a colorisées sont bien sélectionnées

Mais, cela n'agit que sur la col A et non sur 8 col
la colotisation est identique partout et en noir.

Le vert / jaune n'est pas pris en compte.

Je suis déjà content du code car au moins, il
sélectionne les bonnes lignes.

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 26 Septembre 2010

• #9

Re : Alternance de coloriage

Bonjour le fil,
Bonjour à toutes et à tous

@malarbe:
Il y a donc 2 lignes à modifier

Code:

Dim couleur As[COLOR=red] [B]Long[/B][/COLOR]
[B][COLOR=#0000ff]. . .[/COLOR][/B]
ElseIf IsNumeric(Cel.Value) And Cel.Value <> "" Then
       Cel.[B][COLOR=red]Resize(, 8).[/COLOR][/B]Interior.Color = couleur

A plus 🙂

 

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 26 Septembre 2010

• #10

Re : Alternance de coloriage

Ok,

La modif a seulement colorisé les lignes jusqu'a la col 8
mais pas de vert ni de jaune, tout est noir !

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 27 Septembre 2010

• #11

Re : Alternance de coloriage

Re

Voir PJ

A plus

 

Pièces jointes

• malarbe.xls

  38 KB · Affichages: 76

Vote positif 0 Vote négatif

M

malabarbe

XLDnaute Occasionnel

• 27 Septembre 2010

• #12

Re : Alternance de coloriage

Bonjour soenda,

Ok, cela tourne a merveille !

J'ai trouvé le coupable, c'est que Maison étais au pluriel.

Un grand Merci pour votre aide

Bonne journée à tous

@ +

 

Vote positif 0 Vote négatif