Mise en forme conditionnelle avec inputbox - VBA

Question

Bonjour les rois d'Excel !

Ma cheffe connait très peu d'Excel. Je lui ai fait un fichier avec pas mal de Macro mais je bloque sur une petite chose...

Voilà ce que je recherche à faire :

Permettre à l'utilisateur de choisir la couleur de fond uniquement d'une mise en forme conditionnelle. Je m'explique. Jusqu'ici, j'arrive à créer ma mise en forme conditionnelle dans des nuances de gris grâce à ".tintandshade = 0 " (le 0 étant un fond noir)

J'aimerais que l'utilisateur puisse choisir la couleur de fond grâce à un assistant (boite de dialogue, etc.)

Voici mon code actuel (mon poblème intervient à partir de "TEST De la mise en forme conditionnelle (en cours)") :

Sub Add_client()

' test2 Macro

'Ajouter une ligne dans le tableau client + respecter la mise en forme

Range("A3:B3").Select

Selection.ListObject.ListRows.Add (1)

Range("A4:B4").Copy

Range("A3:B3").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

'On demande au user d'indiquer le nom du client + civilité du client en deux boites de dialogues distinctes

Nomclient = InputBox("Quelle est le nom du client")

Civilité = InputBox("Quelle est la civilité du client? Madame, Monsieur, etc.")

'On inscris les données dans la première ligne du tableau

Range("A3").Select

ActiveCell.FormulaR1C1 = Nomclient

Range("B3").Select

ActiveCell.FormulaR1C1 = Civilité

'TEST De la mise en forme conditionnelle (en cours)

Range("A3:A100000").Select

Selection.FormatConditions.Add Type:=xlTextString, String:=Nomclient, _

TextOperator:=xlContains

Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

With Selection.FormatConditions(1).Interior

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorAccent6

.TintAndShade = 1 'le 1 représente blanc. le 0 représente noir. entre deux ce sont des nuances de gris

End With

Selection.FormatConditions(1).StopIfTrue = False

End Sub

J’espère que vous pourrez m'aider !! Je vous remercie d'avance !

LouReeD · Answer

Pouvez vous ajoutez des "packs" à votre Excel ? Si oui il y a ceci qui fait partie intégrante du pack "Fonctions complémentaires" utiles (81). A vous de voir @ bientôt LouReeD...