Sélection de cellule avec varible [débutant]

Question

J'ai un tout petit problème, j'aimerai utiliser la fonction " Formula1:="=ESTVIDE(....) " mais je n'arrive pas à définir corectement les bornes. j'aimerai que la formule s'applique de la cellule A1 à la cellule i avec i variable déja définie avant Soit quelque chose comme : Formula1:="=ESTVIDE(A1:"H & i & ")" mais ce n'est apparement pas la bonne formulation j'ai essayé aussi avec Formula1:="=ESTVIDE(Cells(1, 1), Cells(1, i)) ça ne semble pas marcher non plus, quelqu'un saurait il la bonne formulation ? Merci d'avance...

MFerrand · Accepted Answer

J'ai recopié une version où la première formule n'était pas rectifiée ! Décidément ! Tu peux la rectifier, tu retrouveras le rouge ! Bonne continuation...

Raja · Answer

Il me semble que tu ne peux pas tester une plage avec cette formule mais une cellule. Si tu expliquais bien ton besoin, on pourra te conseiller de façon efficace...

MFerrand · Answer

Si tu opères en VBA, Formula1 est un argument d'une méthode, et il serait bon que tu précises laquelle ! La façon de faire peut varier selon, mais dans tous les cas ta syntaxe est bancale... Et comme l'a déjà dit Raja &#91;Salut !&#93; ESTVIDE s'applique à une cellule. Appliqué à une plage ça te renverra systématiquement Faux. Cordialement. edit: je n'avais pas vu ta réponse. Il te faut ajouter une condition dans ta formule MFC : &lt;&gt;"", toutes les conditions étant dans un ET, et s'appliquant à la cellule supérieure gauche de la plage d'application. Mais tu n'as pas à utiliser de variable : mets ton fichier ou ton code ou les deux ...

MFerrand · Answer

Re,

Question 1 : Pourquoi utiliser VBA ?

Question 2 : La seule raison d'utiliser VBA pour une MFC est que celle-ci peut être altérée par certaines manip et qu'il est bon de la reconstruire régulièrement, par exemple à l'ouverture du fichier.

Selection dénote toujours est code mal défini, pas assez précis... (du mauvais VBA issu d'enregistrement !) donc l'écrire mieux et plus correctement, en remplaçant Selection par la plage d'application, sans la sélectionner, laquelle peut être définie de façon variable...

Dans un tel cas, on supprime toujours avec de recréer...

Et pour ce qui est de la mise en forme, la définition de la couleur par RGB est suffisante. Tu peux aussi éliminer les paramètres optionnels sauf StopIfTrue.

Ton code devra avoir l'allure suivante :

    With plage.FormatConditions
        .Delete
        With .Add(xlExpression, formule)
            .Interior.Color = RGB(r, g, b)
            .StopIfTrue = False
        End With
        With .Add(xlExpression, formule)
            .Interior.Color = RGB(r, g, b)
            .StopIfTrue = False
        End With
    End With

plage correspond à ta plage d'application, elle peut être ciblée directement, ou définie préalablement dans une variable.

formule est la formule à mettre, que je n'ai pas indiquée car tu n'as pas fourni tous les éléments pour la construire.

Si tu as deux couleurs, ça fait 2 mises en forme... J'ai remplacé les paramètres de RGB par r g b qu'il faut indiquer.

Par ailleurs en VBA tu travailles avec des Propriétés et Méthodes d'objets. La Méthode était la méthode Add de l'objet FormatConditions, et Formula1 un argument (ou paramètre) de la méthode, que tu n'es pas obligé de nommer en le passant par position...

Il y a deux problèmes en fait !

Le code VBA pour mettre une MFC d'une part,

La formule conditionnelle de cette MFC, qui au cas particulier est la même que tu mettrais manuellement.

Apparemment ta formule serait donc :

=ET(A1<>"";A1>$F$17;A1<$G$17)

à confirmer

et : =A1="" ou =ESTVIDE(A1) [ce n'est pas tout à fait la même chose !] pour affichage en gris.

MFerrand · Answer

En fonction des indications de ton dernier post :

    With ActiveSheet.Range("A1").Resize(, i).FormatConditions
        .Delete
        With .Add(xlExpression, "=ET(A1<>"";A1>$F$17;A1<$G$17)")
            .Interior.Color = RGB(255, 199, 206)
            .Font.Color = RGB(156, 0, 6)
        End With
        With .Add(xlExpression, formule)
            .Interior.Color = RGB(128, 128, 128)
        End With
    End With

NB-Les 2 conditions étant alternatives, on peut négliger la propriété StopIfTrue...

MFerrand · Answer

Au temps pour moi, il manque une virgule dans chaque MFC ! Et j'avais omis la seconde formule ! Et des guillemets manquants dans les formules !

    With ActiveSheet.Range("A1").Resize(, i).FormatConditions
        .Delete
        With .Add(xlExpression,,"=ET(A1<>"""";A1>$F$17;A1<$G$17)")
            .Interior.Color = RGB(255, 199, 206)
            .Font.Color = RGB(156, 0, 6)
        End With
        With .Add(xlExpression,,"=A1=""""")
            .Interior.Color = RGB(128, 128, 128)
        End With
    End With

Mais c'est la première virgule qui déclenchait l'erreur, mal qualifiée par ailleurs car ces arguments sont facultatifs (mais cela arrive fréquemment en la matière).

Désolé et bonne suite. Cela devrait marcher maintenant.

MFerrand · Answer

Le code se contente de mettre en place les MFC...

Tu dis que la couleur est blanc quand la condition est réuniie ! Oups !

Ta condition initiale est un OU et non ET !!!

Substitue la formule : "=ET(A1<>"""";OU(A1>$F$17;A1<$G$17))" à la précédente.

Secondes excuses !! J'espère les dernières.

MFerrand · Answer

Ah ! ça normal !

Tu as dit : rouge si plus grand que F17 ou plus petit que G17

gris si vide

et c'est tout !

Donc si compris entre les deux valeurs (ou égal à elles) rien ne change. Si tu veux que ça change, il faut une 3e MFC pour ce cas.

Cordialement.

MFerrand · Answer

Tu rajoutes une MFC : With ActiveSheet.Range("A1").Resize(, i).FormatConditions .Delete With .Add(xlExpression, , "=ET(A1&lt;&gt;"""";A1&gt;$F$17;A1&lt;$G$17)") .Interior.Color = RGB(255, 199, 206) .Font.Color = RGB(156, 0, 6) End With With .Add(xlExpression, , "=ET(A1&lt;=$F$17;A1&gt;=$G$17)") .Interior.Color = RGB(224, 224, 224) End With With .Add(xlExpression, , "=A1=""""") .Interior.Color = RGB(128, 128, 128) End With End With Tu vois le mécanisme ...