Discussion :

[TruffExcel]

Bonjour,

je vous fais faire un petit exercice car j'aimerais obtenir un résultat pour terminer un fichier vendredi et je n'aurais pas le temps d'y réfléchir d'ici là.

L'idée est de colorier des cases selon 2 conditions.

Tout est indiqué dans le fichier joint, cela ne doit pas être compliqué.

Je voudrais une macro car d'une part c'est plus facile et plus graphique pour choisir la couleur et de plus, avec les MFC, je me retrouve toujours avec pleins de conditions utilisant la même formule mais sur des plages différentes au bout de quelques utilisations (ajout de lignes principalement).

Merci.

[mfoxy]

Bonsoir,

Bonjour,
je vous fais faire un petit exercice car.. je n'aurais pas le temps d'y réfléchir...

Ça a le mérite d'être clair 🙄, il y a une section devis sur le forum ?

Bonne réflexion,
MFoxy

[TruffExcel]

Oui mfoxy, c'est un peu ça

Je m'y met maintenant mais il y a des chances que j'ai une réponse avant d'arriver à un résultat fonctionnel, allez j'essaie!

EDIT : Après 2h30 de réflexion! Voici le début, je ne suis pas sûr de bien partir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Sub colorier()
 
Dim cell As Range
Dim tableau As Range 'plage nommée(B1:H9), la zone à mettre en couleur
Dim params As Range 'plage nommée(A16:A24), le choix du code couleur qui sera appliqué
Dim pick As Integer 'la valeur trouvée dans la zone params
 
Range("tableau").Select
For Each cell In Selection
 
    If cell.Value <> "" Then
        'Faire ici une sauvegarde de l'emplacement de la cellule lue
        pick = WorksheetFunction.VLookup(Range("A1"), Range("params"), 1, False) 'A1 à remplacer par la 1ère colonne du tableau de la ligne en cours de lecture offset(0,-1)
        'a continuer à partir d'ici, comment selectionner pick pour en faire un copier/coller du format ?
        cell.Interior.Color = 65535 ' à remplacer par la couleur copiée
    Else
        cell.Interior.Color = xlNone
    End If
 
Next cell
 
End Sub

Je continuerais ce soir.

[BENNASR]

bonjour
à tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Sub colorier()
Dim cell As Range
Dim C
Dim Col
Dim L As Integer
Dim params As Range
Range("B1:H9").Interior.Pattern = xlNone
 For L = 1 To 9
Set C = Range("params").Find(Cells(L, "A"), LookIn:=xlValues, lookat:=xlWhole)
     If Not C Is Nothing Then
     For Col = 2 To 8
     If Cells(L, Col) <> "" Then Cells(L, Col).Interior.Color = Cells(C.Row, "A").Interior.Color
     Next Col
 
 End If
Next L
End Sub

[TruffExcel]

Bonjour et merci BENNASR,

Ca fait exactement ce que je veux.