Probleme d'Introduction d'une variable dans FORMULAR1C1

[le CH'TI160]

Bonjour à "TOUS"
je tente de résoudre un problème d'introduction,d'une Variable dans une formule COUNTIf via ActiveCell.FormulaR1C1
Merci d'avance pour l'interêt que vous porterez à ma question
A+++
Jean Marie

 

[Arnaud]

salut,

le serveur du forum étant plein, les pièces jointes ne fonctionnent plus donc si tu pouvais mettre le code qui te pose problème ou plus de précision

 

[le CH'TI160]

Salut "Arnaud"
Bonjour le "FORUM"
mon probleme se situe dans la fonction COUNTiFje voudrais pouvoir faire varier le numero de la derniere ligne de ma plage de recherche
"A3:A"& DLg(derniere ligne)dans ma formule
Sub NombreItem()
' NombreItem Macro
' Macro enregistrée le 14/06/2004 par Jean Marie
Dim Li As Long
Dim DLg As Long, Derlg2 As Long
Dim plage2 As Range
Const lgDpt = 3
Derlg2 = Range("P3").End(xlDown).Row
Set plage2 = ActiveSheet.Range("Q3:Q" & Derlg2)
Nbre2 = plage2.Count
DLg = Range("A3").End(xlDown).Row
For Li = lgDpt To Nbre2 + 2
Range("Q" & Li).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-16]:R&DLgC[-16],RC[-])"
Next
End Sub
en esperant que ce fil sera encore consulté
Merci D'avance
A+++
Jean Marie

 

[Arnaud]

re,

je ne connais pas trop la formule COUNTIF mais je peux déja te dire que ta variable DLg est considéré comme une chaine et non comme une variable vu qu'elle est entre ""
ça dois plutot être un truc du style

ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-16]:R" & DLg & "C[-16],RC[-])"

 

[le CH'TI160]

salut "Arnaud"
RE le "FORUM"
Effectivement avec ton concour j'ai réussi à faire tourner mon code
je t'en remercie encore
j'ai tenté en attendant une réponse de passer par une plage nommée afin de faire ma recherche c'est donc de nouvelles questions et des recherches pour aboutir ,Ca n'en fini jamais, c'est ca qui est super
A+++
Jean Marie