Bonsoir,
Je cherche mais je ne trouve pas....
Dans le classeur joint, j'ai une plage de cellules qui contiennent des valeurs. Cette plage est appelée à varier en longueur (dans mon classeur d'origine, dont je n'ai mis ici qu'un exemple, la plage est plus longue ).
Je désire entrer en dessous de ma plage une formule NB.SI qui devrait me donner le nombre de cellules qui contiennent "x".
Pour cela j'ai écrit une petite macro (ci-dessous) mais ça ne marche pas car la formule ne semble pas accepter le nom de ma variable Plage1 constituée à partir de ma variable Fintab qui donne le numéro de la dernière ligne de ma plage...
Comment écrire le code pour qu'il prenne en compte ma variable de plage ?
ma macro (présente aussi dans le classeur) :
--------------------------------
Dim Fintab
Dim Plage1
Sub Fort()
'
Fintab = Range("D65536").End(xlUp).Row
Plage1 = "D2😀" & Fintab 'délolé mais je vois que ça me met un 😀 a la place de ": et D"
Range("D" & Fintab).Offset(2, 0).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(plage1,x)"
End Sub
---------------------------------------------------
Merci d'avance de votyre aide....
Je cherche mais je ne trouve pas....
Dans le classeur joint, j'ai une plage de cellules qui contiennent des valeurs. Cette plage est appelée à varier en longueur (dans mon classeur d'origine, dont je n'ai mis ici qu'un exemple, la plage est plus longue ).
Je désire entrer en dessous de ma plage une formule NB.SI qui devrait me donner le nombre de cellules qui contiennent "x".
Pour cela j'ai écrit une petite macro (ci-dessous) mais ça ne marche pas car la formule ne semble pas accepter le nom de ma variable Plage1 constituée à partir de ma variable Fintab qui donne le numéro de la dernière ligne de ma plage...
Comment écrire le code pour qu'il prenne en compte ma variable de plage ?
ma macro (présente aussi dans le classeur) :
--------------------------------
Dim Fintab
Dim Plage1
Sub Fort()
'
Fintab = Range("D65536").End(xlUp).Row
Plage1 = "D2😀" & Fintab 'délolé mais je vois que ça me met un 😀 a la place de ": et D"
Range("D" & Fintab).Offset(2, 0).Select
ActiveCell.FormulaR1C1 = "=COUNTIF(plage1,x)"
End Sub
---------------------------------------------------
Merci d'avance de votyre aide....
Dernière édition: