Discussion :

[alainb]

Bonjour,
je ne trouve pas l'écriture correcte pour remplacer "ma recherche" par une variable.

le code d'origine est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveCell.FormulaR1C1 = "=COUNTIF(R[1]C:R[5]C,""ma_recherche"")"

je souhaite un résultat du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 ma_variable = "ma_recherche"
ActiveCell.FormulaR1C1 = "=COUNTIF(R[1]C:R[5]C,ma_variable)"

il ne me reste que cette ligne de code pour achever une appli "pour mon entreprise !!"
merci

[frolland46]

Bonjour

Dans une feuille de calcul, cette formule peut s'utiliser avec une variable, mais celle-ci doit être définie dans un nom qui appartient au classeur.
Donc je te suggère de définir un nom de variable pour y mettre le résultat de ta recherche. Le code suivant fonctionne selon moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim resultat As String
    resultat = "recherche"
    ActiveWorkbook.Names.Add Name:="variable", RefersToR1C1:=resultat
 ActiveCell.FormulaR1C1 = "=COUNTIF(R[1]C:R[5]C,variable)"

resultat est la variable de ton code
variable est le nom de la variable donnée dans la feuille de calcul et utilisée dans la formule. Celle-ci prend la valeur "recherche".

Salutations

[JackOuYA]

bonjour, alain

pour tout ce qui est entre " n'est pas évalué si tu veux mettre le contenu d'une variable dans ta formule il faut mettre cette variable à l'extérieur des " :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 ma_variable = "ma_recherche"
ActiveCell.FormulaR1C1 = "=COUNTIF(R[1]C:R[5]C," & ma_variable & " )"

[alainb]

MERCI frolland46,
ta solution me comble.
Je vais utiliser la déclaration de variable dans le reste de mon code, sous la forme que tu m'as proposé
Alain