Défaaut d'interpretation d'une variable

[noe]

Bonjour, je galère sur une petite macro, je souhaite appliquer une mise en forme conditionnel, sur plusieurs colonnes simultanément.
Le tout par rapport a une variable ( cl ) mais lorsque je l'active, ma mise en forme se fait par rapport à 'G1' au lieu de G1.

Sub mamacro()
Dim cl
cl = 'G'
Columns('D:F').Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _Formula1:=cl & 1 ' je recherche ici a avoir la valeur G1 sans guillemet. :S
Selection.FormatConditions(1).Interior.ColorIndex = 44
End Sub
Je crois qu'il y a une histoire de type de variable mais je ne trouve pas.
Merci de votre aide !!!
A+

 

[Hervé]

Bonjour noe, re le forum

essaye comme ceci :

Formula1:='=' & cl & '1 '

pense à déclarer string ta variable : dim cl as string

salut

 

[noe]

BRAVO, merci beaucoup, cela faisait 3 heures que j'étais dessus. ouf..:lol:

Tand que jy suis, je voudrais activer cette macros sur toutes les feuilles de mon fichiers, aurais tu une idée ??
Merci

 

[Hervé]

re

comme ceci :

Sub mamacro()
Dim cl As String
Dim i As Byte

For i = 1 To Sheets.Count
    cl = 'G'
    With Sheets(i).Columns('D:F')
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:='=' & cl & '1' ' je recherche ici a avoir la valeur G1 sans guillemet.
        .FormatConditions(1).Interior.ColorIndex = 44
    End With
Next i
End Sub

Sheets.count te renvoi le nombre de feuille dans ton classeur.

Tu n'es pas obligé de sélectionner une plage pour travailler dessus.

Salut

 

[noe]

re merci beaucoup Hervé, je vais retravaillé tout cela demain,
bonne soirée