NB.SI avec variable dynamique

Bonjour,

bloquant sur le sujet je me permets de solliciter les bonnes volontés :)

l'idée étant, à partir d'une sélection dynamique, de récupérer le critère sélectionné

J'aimerais faire un Countif pas avec un range mais plutôt avec mes 2 valeurs debut_select et fin_select

Sub Macro2()

debut_select = Range("X2").Select

fin_select = Range(Selection, Selection.End(xlDown)).Select

Range("G1462").Select

ActiveCell.FormulaR1C1 = _

"=COUNTIF(debut_select:fin_select,""critère"")"

End Sub

merci de votre aide

edit : Pour mémoire la charte --> Pour plus de lisibilité, utilisez le bouton </> pour insérer vos codes VBA et vos formules Excel.

Bonsoir,

A tester

Option Explicit

Sub essai()
Dim deb_select, fin_select As String
deb_select = Range("X2").Address
fin_select = Range("X1048576").End(xlUp).Address
    Range("G1462") = Application.CountIf(Range(deb_select & ":" & fin_select), "critère")
End Sub

Cordialement

Bonjour Zebulon,

c'est bien ça :)

merci de ton aide

bon weekend

Bonjour,

serait-il possible svp de rajouter au code la sélection à partir d'une autre feuille de calcul et non à partir de la feuille active ?

Merci

Bonjour,

Il suffit de rajouter le nom de la feuille devant le Range.

Sub essai()
Dim deb_select, fin_select As String
deb_select = Feuil1.Range("a2").Address
fin_select = Feuil1.Range("A1048576").End(xlUp).Address

    Feuil2.Range("F4") = Application.CountIf(Feuil1.Range(deb_select & ":" & fin_select), "toto")

End Sub

Cordialement

Zébulon,

merci de ton retour.

C'est que j'avais fait avant de te solliciter et le résultat d'occurrences était de 0.

Idem avec ton code, ça me remonte un 0 qui ne correspond pas à la réalité :(

Re,

Si tu mettais ton fichier, cela serait plus simple. Le code fonctionne sur mon fichier.

Cordialement

Zébulon,

merci encore.

J'ai repris l'ensemble de mon fichier depuis le début et effectivement cela fonctionne.