Discussion :

[nicovbs]

Salut,

je sollicite votre aide aux (oooooohhh) grands maitres VBAsiens
je voudrais appliquer une mise en forme avec plus de 3 conditions.
par exemple dans le fichier joint http://www.cijoint.fr/cjlink.php?fil...cijwvYW1nI.xls
lorsque j'ai dans la 1ère colonne "+pts" et en face une valeur différente de 0 alors je met un fond rose sur la valeur
lorsque j'ai "+rem" et une valeur différente de 0 je met un fond bleu sur la valeur
etc ... avec autant de conditions que j'ai de libellé

je suis rouillé en VBA, j'ai déjà essayé des choses mais sans succès, help svp ?

[youn1096]

bonjour,
essayes avec ce genre de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
for each cell in range(ta plage)
select case cell.value
case >1 'exemple
cell.interior.colorindex=3  'rouge
 
'
'
' et ainsi de suite
end select
next

[nicovbs]

je l'ai adapté pour mon fichier,
ca ne marche pas il ne se passe rien

[casavba]

Bonjour,

les valeurs de la colonnes A sont connues par avance ou pas ?

("+pts", "+rem",...etc)

[nicovbs]

en fait cela serait a appliquer à un TCD les emplacements de libellé peuvent changer

casavba à quoi pensais tu ?

[zazaraignée]

Personnellement, je n'ouvrirai pas un fichier joint... et je pense ne pas être la seule à user de cette précaution.

Mets nous le bout de code et les détails importants permettant de mieux comprendre la situation comme, par exemple, le fait que ton code s'applique à un tableau croisé dynamique (ce qu'on n'aurait pu deviner sans ouvrir le fichier).

[nicovbs]

je n'ai pas de bout de code car je ne sais pas par quel bout le prendre (ce code)

peu importe le TCD ou pas si ca marche sur simple feuille déjà ça m'aiderai beaucoup

ceci dit beaucoup de monde réclame un fichier joint pour etre mieux compris !


je souhaiterais en fait une mise en forme condi avec plus de 3 conditions et sur plus d'une cellule (impossible dans les menus standars d'excel)

si mon libellé et A et en face j'ai une valeur différente de 0 alors je met un fond coloré sur cette valeur et j'applique au reste du tableau

[helios77]

et bien tu fais un truc dans le genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
'Balayage de toutes tes lignes (suppose que toutes tes colonnes 1 soient 'remplies)
i=1
while Trim(cells(i,1).value) <>""
  if cells(i,1).value = "+pt" and cells(i,2)="rmq" and cells (i,3).value= "toto" and cells (i,4).value="titi" then 
         Cells(i,5).select
         Selection.interiorColor=3
end if
'Tu répètse ce if avec toute les combinaisons qui t'arrangent... c'est un peu 'lourd comme colution mais je ne vois pas tellement d'autres solutions
   i=i+1
wend

Voici eventuellement une solution plus souple car paramétrable mais sans doute plus longue en temps de traitement

Voici l'algo...
Sur une feuille "Paramétrage", tu devrais créer 4 colonnes avec les différentes valeurs dans chacune des colonnes
Au final, tu auras chacune des tes combinaisons sur une ligne avec le code couleur correspondant à chacune des combinaison

Pour tafeuille principale, tu recherches à chaque fois dans la feuille parametrage, la ligne correspondant à tse critères afin de récupérer le code couleur pour pouvoir l'affecter