Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

formule modifiée par valeur combobox [RESOLU]

goldfinger13

XLDnaute Occasionnel
re bonsoir à tous

le code ci dessous fonctionne

Code:
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)

Code:
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
 
Dernière édition:

KenDev

XLDnaute Impliqué
Re : formule modifiée par valeur combobox

Bonsoir Goldfinger,

Essaye en remplaçant dans l'expression formulaR1C1
Code:
mini
par
Code:
" & mini & "
. Je te laisse deviner pour maxi.

Cordialement

KD
 

Discussions similaires

Réponses
7
Affichages
423
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…