Microsoft 365 addtionner les cellules non vides (contiennent nbres et/ou lettres)

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

Je n'arrive pas à faire une formule ou un code vba pour additionner les cellules "NON vides" de la colonne "A" de ma feuille.
J'ai cherché certainement mal car ça me semble être déjà traité mais je n'ai pas trouvé.
J'ai également cherche avec "nbval" sans succès.
Je vais voir du côté de sous total,
Auriez-vous la solution?
Je joins un petit fichier test.
Avec mes remerciements,
Amicalement,
lionel

 

[eriiic]

Bonjour à tous,

au passage, pour ne pas compter tes vides non vides tu as :

=NB.SI(A3:A106;"><")

La question que je me pose, c'est qu'ils n'apparaissent pas ex-nihilo et s'il ne vaudrait pas mieux intervenir en amont.
Je suppose que tu les mets (involontairement) par macro avec une instruction du style ="".
Il faudrait que tu les vides vraiment avec = Empty.
Valable aussi bien pour un élément de tableau que pour une cellule
eric

 

[Usine à gaz]

Re-Gérard,
Comme toujours si méticuleux !
Merci à toi
lionel,

 

[Usine à gaz]

Bonsoir eriiiic,
Merci pour explication, je vais ça aussi
lionel,

 

[soan]

Bonjour job75, Lionel, le fil,

Dans ton post #15, tu as écrit : « Au post #10 l'ami soan présente la macro Epurage qui ne tient pas du tout la route. »

Je trouve que tu ne devrais pas dénigrer ma méthode de façon aussi catégorique, car elle convient très bien si le nombre de données n'est pas trop important, et si le temps d'exécution est inférieur à 5 secondes ; j'ai regardé le fichier joint du même post #15 :

Bouton « Epurage (par cellule) » = ma méthode : 1er essai : 1,30 sec ; 2ème essai : 1,26 sec ; 3ème essai : 1,23 sec ; pour moins de 2 secondes, je trouve que ma méthode est déjà pas mal du tout ! ​

---

Ensuite, j'ai voulu essayer ta méthode ; j'ai donc cliqué sur le bouton « Epurage avec filtre » ; quel temps ? 400 sec ! ah non, j'me suis trompé ; c'est encore bien pire ! c'est ce 400-là :​

Entre moins de 2 secondes et une erreur 400, j'préfère largement ma méthode !

Je suis passé en mode débogage pour essayer de trouver l'erreur ; elle se produit juste quand j'appuie sur F8 pour exécuter cette ligne jaune :​

Pourtant, xlCellTypeVisible est bien une constante Excel valide ; peut-être que l'erreur se produit sur Excel 2007 et pas sur ta version d'Excel ? si oui, ma solution qui soi-disant ne tient pas du tout la route pourra sûrement dépanner les lecteurs de cette conversation qui ont Excel 2007 comme moi, et pas une version ultérieure : ce sera bien plus efficace qu'une erreur 400 ! ​

soan

 

[Usine à gaz]

Bonjour, Soan, job75, Lionel, le fil,

@soan : chez moi, ton code fonctionne sans souci pour moi
Les codes de Job75 fonctionnent également parfaitement (comme à son habitude).

Merci à vous pour vos codes qui me dépannent super bien
Amicalement,
lionel,

 

[job75]

Bonjour à tous,

@soan si le filtre automatique ne fonctionne pas chez toi utilise au moins un tableau VBA :

Sub Epurage_avec_tableau()
Dim t, tablo, i&, x$
t = Timer
With ActiveSheet.UsedRange
    tablo = .Resize(, 2).Formula 'matrice, plus rapide, au moins 2 éléments
    For i = 1 To UBound(tablo)
        If tablo(i, 1) = "" Then tablo(i, 1) = Empty
    Next
    .Columns(1) = tablo
End With
x = Format(Timer - t, "0.00 \sec")
[F13] = x
MsgBox x
End Sub

Fichier (2), noter que 20 000 lignes ce n'est pas beaucoup.

A+

 

[Usine à gaz]

Bjr Gérard,
Voici le fichier test a jour de tous les codes
Encore merci à toi,
lionel,

 

[soan]

@job75, Lionel, le fil,

voici les temps obtenus sur mon PC par le code VBA de job75 :

(Epurage avec filtre non testé car sur mon Excel 2007 : même erreur 400)

soan

 

[eriiic]

Bonjour,

je m'excuse d'insister.
Mais si tes vides non vides sont le résultat d'une macro et non d'une formule, c'est avant qu'il faut mettre =Empty.
Ensuite plus de raison de les traiter puisqu'il n'y en a plus.
eric

 

[Usine à gaz]

Bonjour,

je m'excuse d'insister.
Mais si tes vides non vides sont le résultat d'une macro et non d'une formule, c'est avant qu'il faut mettre =Empty.
Ensuite plus de raison de les traiter puisqu'il n'y en a plus.
eric

Merci eriiiic de revenir sur le fil, et c'est bien que tu insistes : je vais voir ça,
lionel