formule modifiée par valeur combobox [RESOLU]

[goldfinger13]

re bonsoir à tous

le code ci dessous fonctionne

With Sheets("base").Range("AS2:AS" & [A65000].End(xlDown).Row)
   .FormulaR1C1 = _
        "=IF(AND(RC[-9]>= 50,RC[-9]<= 100),""A vérifier en priorité"",""  "")"

je voudrais remplacer les valeurs 50 et 100 par deux valeurs issues de deux Combobox
pour permettre à l'utilisateur de choisir les valeurs à analyser

j'ai déclaré deux variables mini et maxi
pour remplacer mes valeurs fixes (50 et 100)

Dim mini As String
Dim maxi As String
mini = UserForm1.ComboBox1.Value
maxi = UserForm1.ComboBox2.Value

Sheets("base").Range("AS1").Value = "analyse "

With Sheets("base").Range("AS2:AS" & [A65000].End(xlDown).Row)
   .FormulaR1C1 = _
        "=IF(AND(RC[-9]>= mini ,RC[-9]<= maxi),""A vérifier en priorité"",""  "")"
.Value = .Value
End With

et là j'ai une erreur #NOM qui apparait

pourriez vous me dire pourquoi? surement un probleme de syntaxe mais je ne trouve pas

merci

 

[KenDev]

Re : formule modifiée par valeur combobox

Bonsoir Goldfinger,

Essaye en remplaçant dans l'expression formulaR1C1

mini

par

" & mini & "

. Je te laisse deviner pour maxi. 🙂

Cordialement

KD

 

[goldfinger13]

Re : formule modifiée par valeur combobox

merci KenDev j'ai même réussi à trouver la solution pour maxi lol!