msgbox + variable

[fred]

Bonjour a tous

je voudrais faire des modif dans ma macro, c'est a dire pouvoir proposer a l'utilisateur de choisir une valeur qu'il desire rentrer.

voici une partie de mon code :

Range("L5").Select
ActiveCell.FormulaR1C1 = "=COUNTIF((C[-8]),""<45"")" 'compte le nbr de valeurs inférieures à 45
Range("L6").Select
ActiveCell.FormulaR1C1 = "=COUNTIF((C[-8]),""<75"")-COUNTIF((C[-8]),""<45"")" 'même chose mais sur un intervalle de valeurs
Range("L7").Select
ActiveCell.FormulaR1C1 = "=COUNTIF((C[-8]),""<90"")-COUNTIF((C[-8]),""<75"")"

je voudrai pouvoir choisir une valeur à la place de "45", qui est une valeur fixe

merci pour vos aides

fred

 

[Lord Nelson]

Salut Fred,

Tu pourrais utiliser une fonction INPUTBOX, comme ceci :

Dim Temp As String
Temp = InputBox("Choisir une valeur")
If Temp <> "" Then
Temp = Chr(34) & "<" & Temp & Chr(34) & ")"
Range("L5").Select
ActiveCell.FormulaR1C1 = "=COUNTIF((C[-8])," & Temp 'compte le nbr de valeurs inférieures à 45
'....
End If

Autre possibilité : prendre la valeur saisie dans une cellule.

A+
Horatio

 

[fred]

merci pour ta reponse

une ptite question : a quoi correspond Chr(34)

 

[Lord Nelson]

Re Fred,

Chr(34) est le guillemet, difficile à intégrer dans une chaîne de caractères parcequ'il ouvre et referme les chaînes en syntaxe VB.

A+
Horatio