comptage

[rdmoshpit]

Hello,
A nouveau mio pour un petit coup de main...

J'essaye de sortir une valeur supérieure d'une "liste".
Ce n'est pas très clair en effet, je vous joins un exemple, ca sera plus parlant...

L'idée est qu'il me sorte la valeur i maximale de "Blah-i"

Merci d'avance !

Raph

 

[Monique]

Re : comptage

Bonjour,

Ces 3 formules ont l'air de fonctionner, si j'ai compris :

=MAX(SI(STXT($A$1:$A$36;1;5)="Blah-";SUBSTITUE($A$1:$A$36;"Blah-";"")*1))

=MAX(SI(ESTNUM(TROUVE("Blah-";$A$1:$A$36));SUBSTITUE($A$1:$A$36;"Blah-";"")*1))

=MAX(SI(ESTNUM(SUBSTITUE($A$1:$A$36;"Blah-";0)*1);SUBSTITUE($A$1:$A$36;"Blah-";"")*1))

Formules matricielles, à valider par ctrl, maj et entrée

 

[JCGL]

Re : comptage

Bonsoir à tous, rdmoshpit

Désolé pas trouvé mieux qu'avec une colonne intermédiaire.

Bonne soirée


Edition : Coucou Monique (bien évidement je ne fais pas le poids...)

 

[rdmoshpit]

Re : comptage

Hello Monique et JCGL,
Merci a vous deux !

Je n'ai pas été suffisamment clair, désolé...
J'ai besoin de faire ca au sein d'une macro en VB....

Je vous explique plus en profondeur en vous rejoignant une autre PJ :
Je veux sortir cette variable i (correspondant au nombre de "blah" trouvés dans la feuille) pour exporter ces rubriques Blah-i et les 6 cellules suivantes dans une autre feuille. Je sais faire "l'export" mais par contre, je n'arrive pas a trouver ce i, et chaque blah-i est exporté dans une cellule différente... d'ou le besoin de savoir combien de fois je vais faire la boucle d'export...

Merci encore
Raph

 

[bqtr]

Re : comptage

Bonsoir rdmoshpit, Monique, JCGL

Cette macro compte le nombre de "Blah" dans la colonne A :

Sub blah()

Dim i As Integer
Dim cell As Range
i = 0
For Each cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
If Left(cell, 4) = "Blah" Then
i = i + 1
End If
Next
MsgBox "Nombre de Blah : " & i
End Sub

Bonne soirée

P.O

 

[rdmoshpit]

Re : comptage

Nikel !!!
Merci beaucoup pour votre précieuse aide !!

 

[Pierrot93]

Re : comptage

Bonjour à tous

une autre solution par vba en une ligne... :

MsgBox WorksheetFunction.CountIf(Range("A1:A" & Range("A65536").End(xlUp).Row), "blah*")

bonne journée
@+

 

[JCGL]

Re : comptage

Bonsoir à tous, rdmoshpit,
Salut P.O, Pierrot

Une petite variante sur le code de bqtr.


Bonne soirée