Mise en forme conditionnelle

Bonjour a tous,

une question simple pour vous j'en suis sur!

comment colorer automatiquement ma ligne entre les colonnes A et H en vert quand en H je note ok?

vous voyez le truc?

merci d'avance!

Salut Hanif,

Alors tu selectionnes ta première ligne où tu veux appliquer ta MFC

Ensuite tu vas dans FORMAT/MFC

Là tu choisis la formule est et tu tapes =$H1="Ok"

Tu fais OK.

Ensuite avec le petit pinceau, tu cliques sur ta ligne et tu appliques à toutes les autres lignes où tu souhaites cette MFC....

C bon ?

A te lire,

Souri84

Merci ca marche du tonnerre!

sinon une de mes questions reste sans reponse

sujet collecte d'infos et synthese sur nouvelle feuille...

"une de mes questions n'a pas été résolue... concernant la collecte de données sur plusieurs feuilles et l'ecriture sur une feuille synthese...

je m'explique:

les lignes 33 a 42 de mes feuilles comportent colonne E un code d'identification et en colonne F le nombre d'articles correspondants

les codes n'etant pas les memes d'une feuille a l'autre, j'aimerai pour le bilan du mois pouvoir avoir la liste complete des codes utilises ainsi que la somme des articles vendus...

je mets un fichier en exemple...

merci d'avance

https://www.excel-pratique.com/~files/doc/3n3WFtest.xls"

souri84 a écrit :

Salut Hanif,

Alors tu selectionnes ta première ligne où tu veux appliquer ta MFC

Ensuite tu vas dans FORMAT/MFC

Là tu choisis la formule est et tu tapes =$H1="Ok"

Tu fais OK.

Ensuite avec le petit pinceau, tu cliques sur ta ligne et tu appliques à toutes les autres lignes où tu souhaites cette MFC....

C bon ?

A te lire,

Souri84

Bonjour,

Juste pour signaler que si on connait la plage à l'avance, il suffit de la sélectionner (exemple de A1 à H50) et de mettre la formule donnée ci-dessus. Plus besoin du pinceau ; la recopie se fait automatiquement.

Amicalement

Nad

Bonjour

Facile de dire que tu n'as pas eu de réponse...

Je t'invite à regarder le lien suivant

https://www.excel-pratique.com/forum/viewtopic.php?p=34634&highlight=#34634

Cordialement

Salut Nad, Salut Amadeus,

Pour répondreà Nad: Tu as raison, c'est juste que quand j'ai essayé tout à l'heure, ça ne marchait pas... donc j'ai contourné mon propre problème.....

sinon, n'étant pas un pro des formules comme Amadeus, je t'ai fait un petit fichier pour répondre à ta question (même si cela était déjà fait à priori...)

FICHIER

Cliques sur le bouton et voilà....

A+

Souri84

Desole Amadeus,

j'avais pas vu la reponse, pourtant je suis allé voir regulierement!

en tous cas, merci, ca m'aide bien, j'essaye cela et reviens vers toi

tks

Souris,

comment modifier ta macro si mes codes sont sur les lignes 33 a 42 de mes feuilles précédentes: colonne E un code d'identification et en colonne F le nombre d'articles correspondants?

sinon si j'ai bien compris, cela marche quelquesoit le nombre de feuilles avant la synthèse?

merci

Re,

Je ne sais pas si j'ai bien compris,

essaies avec ce code:

Sub Macro1()

'variables

Dim dernierecelluleremplie

Dim feuille As Range

'on nettoie la page total avant de commencer le traitement des données

Sheets("TOTAL").Select

Cells.Clear

Range("A1").Value = "code"

Range("B1").Value = "nombre"

'pour chaque page sauf la total qui doit être placée en dernier, on copie les données en A:A et B:B

For i = 1 To ActiveWorkbook.Sheets.Count - 1 Step 1

Sheets(i).Select

Range("E33:F42").Select 'plus suppression de la variable dernierecelluleremplie juste au dessus

Selection.Copy

Sheets("TOTAL").Select

Range("A65000").End(xlUp).Select

ActiveCell.Offset(1, 0).Select

ActiveSheet.Paste

Application.CutCopyMode = False

Next i

'on reselectionne TOTAL, on fait un tri sans doublons

Sheets("TOTAL").Select

Range("D1").Select

ActiveCell.FormulaR1C1 = "code"

dernierecelluleremplie = Columns("A:A").Find("*", Range("A1"), , , xlByRows, xlPrevious).Row

Range("A1:B" & dernierecelluleremplie).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _

"D1"), Unique:=True

'on fait une somme.si pour avoir la somme par code

Range("E1").Value = "nombre"

Range("E2").Select

ActiveCell.FormulaR1C1 = "=SUMIF(C[-4],RC[-1],C[-3])"

'on étale la formule jusqu'en bas

Selection.AutoFill Destination:=Range("E2:E" & Range("D65000").End(xlUp).Row)

'on colle les données en valeur

Columns("D:E").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

'on supprime les colonnes A et C puisque inutiles....

Columns("A:C").Select

Selection.Delete Shift:=xlToLeft

End Sub

Souri84

ok j'ai essayé...

y a un probleme avec la derniere cellule remplie... comment je fais?

erreur d'execution: '91'

desole j'avais pas enleve derniere cellule!

il est defini plus bas ca n'engage a rien??

sinon concernant la selection des feuilles, quand j'en rajoute leurs numeros s'incrementent on est ok? donc mon total ne prendra pas en compte toutes les feuilles... non? si?

merci de votre aide!!

je viens de réessayer chez moi, elle fonctionne.

de quel "dernierecelluleremplie" tu parles ?

mets la macro ainsi que la ligne de code défaillante....

Souri84