syntaxe coloration dans plage de cellule

mutzik

XLDnaute Barbatruc

• 5 Mars 2009

• #2

Re : syntaxe coloration dans plage de cellule

bonjour mumu,

1. j'aurais utilisé une mise en forme conditionnelle
2. sinon, enleve le .row
3. sinon (bis) si tu veux toute la ligne, essaie val.entirerow. ...

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 5 Mars 2009

• #3

Re : syntaxe coloration dans plage de cellule

Salut Mutzik,

Merci de me donner un coup de main.
Pour ce qui concerne la mise en forme conditionnelle, je ne sais pas trop comment ça marche mais je dois absolument l'écrire dans une macro.
Ensuite le EntireRow ne me convient pas car je voudrais vraiment ne colorier que les lignes dans la plage de cellule.

Je vais continuer à chercher.....

@ +

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 5 Mars 2009

• #4

Re : syntaxe coloration dans plage de cellule

Si c'est le cas, il te faut utiliser l' offset ...
mais dans la mesure où tu visites toutes les cellules tu vas repeindre chaque ligne autant de fois que sur cette ligne ta condition sera remplie ...
pas très efficace ...

A+

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 5 Mars 2009

• #5

Re : syntaxe coloration dans plage de cellule

Mumu,

Voilà une macro point de départ ... à tester ...

Code:

Sub TestMumu()
Dim val As Range
Dim i As Integer ' Ligne 40 à 120
Dim j As Integer ' Colonne 59 à 67
For i = 40 To 120
    For j = 59 To 67
    If Cells(i, j).Value >= 1 Then
        Range(Cells(i, 59), Cells(i, 67)).Interior.ColorIndex = 40
    End If
    Next j
Next i
End Sub

A+

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 5 Mars 2009

• #6

Re : syntaxe coloration dans plage de cellule

Finalement, j'ai suivi un peu ta piste James007 et j'ai écrit en rajoutant une colonne total à la fin de mon tableau :

Code:

Range("BP40").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value >= 1 Then Range(ActiveCell.Offset(0, -1), ActiveCell.Offset(0, -8)).Interior.ColorIndex = 39
ActiveCell.Offset(1, 0).Activate
Loop

Ce qui répond à mon pb.

Merci à vous et @ +

Mumu

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 5 Mars 2009

• #7

Re : syntaxe coloration dans plage de cellule

Nous avons posté en même temps....

Je viens de tester ta proposition et elle marche également !!! C'est super !
Je te remercie beaucoup !

@ +

Mumu

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 5 Mars 2009

• #8

Re : syntaxe coloration dans plage de cellule

mumu à dit:

Nous avons posté en même temps....
Je viens de tester ta proposition et elle marche également !!! C'est super !
Je te remercie beaucoup !
@ +
Mumu

Cliquez pour agrandir...

De rien ... tout le monde sur le forum tient à ce que tu conserves ta superbe chevelure ... ce qui nous pousse à en faire un max ...

A+

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 5 Mars 2009

• #9

Re : syntaxe coloration dans plage de cellule

Ah ben ça c'est trop gentil !

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 5 Mars 2009

• #10

Re : syntaxe coloration dans plage de cellule

mumu à dit:

Ah ben ça c'est trop gentil !

Cliquez pour agrandir...

... d'autant plus ... qu'avec un sujet sur la coloration ... il aurait été difficile de ne pas souvenir de cet objectif primordial ....

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 5 Mars 2009

• #11

Re : syntaxe coloration dans plage de cellule

Tu as bien raison !!

 

Vote positif 0 Vote négatif