Probleme VBA et mise en forme conditionnelle

Question

Bonjour,
J'ai un petit souci j'aimerais passer une variable dans une MFC mais je n'y arrive pas.
Pour tenter d'etre plus clair voici mon code :


For Nol = 2 To 26
        Cells(Nol, 9).Select
    
    Range(Cells(Nol, 9), Cells(Nol, 42)).Select
    selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=B9=GRANDE.VALEUR($B:$B;2)"

Next

C'est la variable B9 (que j'ai mis en gras au dessus) que j'aimerais modifier par la cellule active.

Si quelqu'un peut m'eclairer :)

wilfried_42 · Answer

Bonjour

"=B9=GRANDE.VALEUR($B:$B;2)" devient : "=" & activecell.address & "=GRANDE.VALEUR($B:$B;2)"

sinon, plus rapide sans boucle ni select (en fonction de ce que j'ai compris
with Range(cells(2,9),cells(26,42)).formatconditions.add
       .type = xlexpression
       .formula1 = "=$B2=Grande.valeur($B:$B;2)"
       .Interior.ColorIndex = 3
end with
--
Cordialement
Wilfried

ps: n'oubliez pas de mettre votre fil sur résolu quand vous obtenez ce que vous cherchez. Merci

wilfried_42 · Answer

re:

il faut eviter de confondre colonne et ligne : cells(ligne,colonne)
j'avais compris par ligne et non par colonne

with Range(cells(9,2),cells(42,26)).formatconditions.add
       .type = xlexpression
       .formula1 = "=B2=Grande.valeur(B:B;1)"
       .Interior.ColorIndex = 3
end with
with Range(cells(9,2),cells(42,26)).formatconditions.add
       .type = xlexpression
       .formula1 = "=B2=Grande.valeur(B:B;2)"
       .Interior.ColorIndex = 6
end with
with Range(cells(9,2),cells(42,26)).formatconditions.add
       .type = xlexpression
       .formula1 = "=B2=Grande.valeur(B:B;3)"
       .Interior.ColorIndex = 9
end with

par contre, j'ajouterais en debut de macro une procedure de suppression de MFC
Dim Fc as FormatCondition
For each Fc in range(cells(9,2),cells(42,26))
      fc.delete
next

michel_m · Answer

Bonjour taltema,  cher Wilfried (ca va?),

A mon avis, il y a une petite faute de frappe dans la proposition de Wilfied:
au lieu de:
with Range(cells(9,2),cells(42,26)).formatconditions.add
       .type = xlexpression
saisir
with Range(cells(9,2),cells(42,26)).formatconditions
       .add type = xlexpression

Taltema · Answer

Ca ne fonctionne pas plus malheureusement. Si cela peut vous aiguiller, j'ai Sub ma_macro() surlignée en jaune lors de l'affichage de l'erreur.

Avec ce code-ci, ca fonctionne presque. En fait la premiere colonne est traitée correctement, c'est a dire que les 3 plus grands chiffres sont identifiés et correctement colorisés mais ensuite toutes les autres colonnes sont coloriées au meme niveau que les chiffres de la 1ere colonne.

voici mon code :

    For Nol = 2 To 26
        
                
    Range(Cells(9, Nol), Cells(42, Nol)).Select
    'Cells(9, Nol).Activate
    selection.FormatConditions.Delete
    selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
              "=B9=GRANDE.VALEUR($B:$B;2)"
    selection.FormatConditions(1).Interior.ColorIndex = 3
    selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
              "=B9=GRANDE.VALEUR($B:$B;3)"
    selection.FormatConditions(2).Interior.ColorIndex = 46
    selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
              "=B9=GRANDE.VALEUR($B:$B;4)"
    selection.FormatConditions(3).Interior.ColorIndex = 27
        
    Next
      

Merci d'avance

wilfried_42 · Answer

re:, salut michel ça fait plaisir de te croiser

je n'ai pas pu faire autrement, bizarre
Sub essai()
    Range(Cells(9, 2), Cells(42, 26)).Select
    With Selection.FormatConditions.Add(Type:=xlExpression, Formula1:="=B9=Grande.valeur(B:B;1)")
       .Interior.ColorIndex = 3
    End With
End Sub
pourtant, j'ai horreur des select

Probleme VBA et mise en forme conditionnelle

5 réponses

Discussions similaires

Newsletters