Compter le nombre de caractères dans un fichier Excel

[MJ13]

Bonjour à tous

Je cherche en ayant un fichier Excel ouvert à savoir combien j'ai de caractères dans le fichier, en VBA ou en formule, si c'est possible.

Merci d'avance 🙂.

 

[job75]

Re : Compter le nombre de caractères dans un fichier Excel

Re,

Dans la recherche des erreurs, c'est le calcul sur l'objet Err qui prend beaucoup de temps.

Utiliser plutôt cette macro, elle est très rapide :

Sub CharactersCount()
Dim temps, w As Worksheet, plage As Range, tablo, t, n#, e#
temps = Timer 'facultatif
For Each w In Worksheets
  Set plage = w.UsedRange
  If plage.Count = 1 Then
    If IsError(plage) Then
      e = e + 1
    Else
      n = n + Len(plage)
    End If
  Else
    tablo = plage
    For Each t In tablo
      If IsError(t) Then
        e = e + 1
      Else
        n = n + Len(t)
      End If
    Next
  End If
Next
MsgBox "Durée : " & Timer - temps & " s" 'facultatif
MsgBox "Nombre de caractères du fichier : " & Format(n, "#,##0") & _
  Chr(10) & "Nombre de valeurs d'erreur : " & Format(e, "#,##0")
End Sub

A+

 

[MJ13]

Re : Compter le nombre de caractères dans un fichier Excel

Re Job

Merci Job, avec ta dernière proposition, je passe de 2,85 à 1 seconde avec 3 erreurs 🙂.

Avec ça on peut travailler consciencieusement 😱 (Franchement, il manque des smileys ou ils ne sont pas très expressifs🙂🙁😕😡😛😉😀😱🙄😎😱).