somme texte sou filtrage

[stephpro]

J' ai construi un tableau sur lequel j'ai créer une Macro ! Cette Macro à pour objet de trier certaines informations... Une fois le tableau trié par filtrage j'aimerai si possible mettre en place une formule qui comptabilise le nombre de "oui" sur une seule colonne !

Merci par avance

 

[d.ryba]

Re : somme texte sou filtrage

Bonjour,
pour faire ta macro il faudrait que tu joignes un exemple de ton tableau.
Sinon une petite formule peu te donner une piste

=NB.SI([I]"la_plage_à_vérifier"[/I];"oui")

EXCELement,

 

[d.ryba]

Re : somme texte sou filtrage

Sinon, j'ai une autre solution, certe, peut-être pas très jolie mais, ça à le merite de fonctionner (chez moi ^^) :

Sub Compte_NbOui()
Dim NbOui
    Range("A:A).Select   'Colonne où se trouve les oui
    NbOui = WorksheetFunction.CountIf(Range(Selection, Selection.End(xlDown)), "=oui") 'compte dans la selection si "=oui"
    MsgBox ("Il y a " & NbOui & " lignes égale à 'oui'"), vbInformation 'affiche une msgbox avec le nombre de oui.
End Sub

 

[d.ryba]

Re : somme texte sou filtrage

Désolé, j'ai été un peu vite, je n'avais pas pris en compte tes filtres.

revu et corrigé

Sub Compte_NbOui()
Dim i, cell
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
i = 0
For Each cell In Selection
    If cell = "oui" Then
        i = i + 1
    End If
Next
MsgBox i
End Sub

A adapter :

• Range("A1").Select = par la première cellule de la colonne à vérifier
• If cell = "oui" Then = par le critère de comptage.