Compter occurence dans range contenant du texte / des chiffres

[zebanx]

Bonjour à tous,

Je cherche à obtenir des totaux de colonnes compilant soit du texte (initiales) soit des chiffres ?

Pour les "string", la séparation ne se fait que par un " ". S'il n'y en n'a pas, cela correspondrait à une seule personne.
Ci-joint quelques exemples plus clairs sur 3 configurations.

Merci pour votre aide et bonne journée
zebanx

 

[vgendron]

Hello

Désolé.. mais je ne comprend pas du tout ce que tu souhaites compter...

 

[thebenoit59]

Bonjour Zebanx.

Il doit y avoir plus simple:

[C26] =NB.SI(C22:C25;"* *")+NBVAL(C22:C25)-NB(SI(ESTNUM(C22:C25);C22:C25))+SOMME(C22:C25)

En matricielle.

 

[vgendron]

après avoir fait briller ma boule de cristal :-D
une fonction personnalisée

Public Function compter(zone As Range) As Integer
Application.Volatile

For Each ele In zone
    tablo = Split(ele, " ")
    For i = LBound(tablo) To UBound(tablo)
        If IsNumeric(tablo(i)) Then
            comp = comp + (tablo(i))
        Else
            comp = comp + 1
        End If
    Next i
Next ele
  compter = comp
End Function

 

[zebanx]

Bonjour Benoit59 et Vgendron

Super solutions qui fonctionnement parfaitement dans les trois configurations (uniquement du texte, texte + chiffres séparés par un " " à chaque fois, texte séparé par un espace + chiffres).
Et je suis content d'avoir une double solution matricielle + UDF.

Un grand merci à tous les deux , je vais pouvoir finaliser un travail urgent

++
zebanx

 

[zebanx]

@vgendron

Je me rends compte que si une colonne contient uniquement des chiffres, le résultat reprend tous ces chiffres mais ne les additionne pas.

Serait-il possible d'apporter SVP un complément à l'UDF pour ce cas de figure stp ?

Merci par avance ++
zebanx

 

[vgendron]

manque un cint()

Public Function compter(zone As Range) As Integer
Application.Volatile

For Each ele In zone
    tablo = Split(ele, " ")
    For i = LBound(tablo) To UBound(tablo)
        If IsNumeric(tablo(i)) Then
            comp = comp + CInt(tablo(i))
        Else
            comp = comp + 1
        End If
    Next i
Next ele
  compter = comp
End Function

 

[zebanx]

Yes !!!
Merci Vgendron pour ta célérité.

 

[vgendron]

une remarque que je me fais en passant..
ce qui me sidère. c'est que la fonction "Isnumeric" est capable de dire s'il s'agit d'un nombre ou pas. et pourant.. il faut passer par un CINT pour en faire la somme...
franchement. des fois. on se demande...

 

[thebenoit59]

une remarque que je me fais en passant..
ce qui me sidère. c'est que la fonction "Isnumeric" est capable de dire s'il s'agit d'un nombre ou pas. et pourant.. il faut passer par un CINT pour en faire la somme...
franchement. des fois. on se demande...

Le tableau est considéré comme Variant/String, donc il réagis comme un string lors de l'addition.

 

[vgendron]

Le tableau est considéré comme Variant/String, donc il réagis comme un string lors de l'addition.

oui d'accord.. mais pour l'instruction Isnumeric.. ce devrait etre pareil..
cela veut il dire que pour Isnumeric (Variant string) --> il est capable de détecter/convertir en Numéric, mais que la somme ne sait pas faire..? (ce qui me semblerait logique.. ) :-D

 

[thebenoit59]

Je pense qu'IsNum converti effectivement en Numéric.
Mais après il continue sur du String et utilise + comme &, on pourrait placer Val(tablo(i)) peut-être.

 

[zebanx]

Merci à tous les deux pour vos réponses et les échanges constructifs (oui Benoist, le code modifié Val(tablo(i)) fonctionne bien). J'ai pu finaliser le fichier demandé grâce à vous avec deux méthodes à conserver pour une prochaine et très certaine utilisation.

Bonne soirée et bon we
zebanx

 

[job75]

Bonsoir zebanx, vgendron, thebenoit59,

Il ne faut pas utiliser Application.volatile à tout bout de champ.

Ici cette instruction est tout à fait inutile et peut même être nuisible !

Toute modification d'une cellule de zone entraîne forcément le recalcul de la fonction.

A+