Compter les tabulations dans une cellule

[Amadéus]

Bonjour

Nous savons compter les caractères d'une cellule avec NBCAR, nous savons compter le nombre de a ou d'un caractère visible avec une formule du style
=NBCAR(A1)-NBCAR(SUBSTITUE(A1;"a";""))
Mais comment compter le nombre de tabulations dont le Code sauf erreur est 9
Je n'ai pas mis de fichier exemple car il suffit dans une cellule A1 d'appuyer 3 ou 4 fois sur la barre de tabulation et mettre une lettre quelconque pour avoir l'exemple
Par formule ou VBA, une solution reste bienvenue
Merci à ceux qui se penchent sur ce curieux problème
Cordialement

 

[Victor21]

Re : Compter les tabulations dans une cellule

Bonjour.

Si, comme je le pense, vous confondez tabulation et espace :

=NBCAR(A1)-NBCAR(SUBSTITUE(A1;CAR(32);""))

Sinon ... un exemple ne serait peut-être pas, tout bien pesé, et après mure réflexion, tout-à-fait inutile.

 

[Roland_M]

Re : Compter les tabulations dans une cellule

bonjour,

test avec CAR(8)
qui est tabulation mais n'affiche qu'un carré !

EDIT excuse c'est CAR(9)

 

[Modeste geedee]

Re : Compter les tabulations dans une cellule

Bonsour®

Bonjour

Nous savons compter les caractères d'une cellule avec NBCAR, nous savons compter le nombre de a ou d'un caractère visible avec une formule du style
=NBCAR(A1)-NBCAR(SUBSTITUE(A1;"a";""))
Mais comment compter le nombre de tabulations

pour compter les caractères invisibles
=NBCAR(A1)-NBCAR(EPURAGE(A1))

La fonction EPURAGE a été conçue pour éliminer du texte les 32 premiers caractères non imprimables du code ASCII à 7 bits (valeurs 0 à 31).
cette fonction ne concerne pas le caractère "espace insécable" CAR(160)
souvent rencontré dans les imports (séparateur de milliers par exemple)

à noter la formule =NBCAR(A2)-NBCAR(SUBSTITUE(A2;CAR(9);""))
remplie correctement son office..

 

[Amadéus]

Re : Compter les tabulations dans une cellule

Bonjour
Merci, mais ce n'est pas la question. Voici l'exemple.
Cordialement
http://cjoint.com/?BDtng0U77Qr

 

[Robert]

Re : Compter les tabulations dans une cellule

Bonjour le fil, bonjour le forum,

Une proposition VBA :

Sub Macro1()
Dim nt As Integer
Dim i As Integer

For i = 1 To Len(Range("A1").Value)
    If Asc(Mid(Range("A1"), i, 1)) = 9 Then nt = nt + 1
Next i
Range("B1").Value = nt
End Sub

Mais sinon, comment tu arrives a faire une tabulation dans une cellule excel ?

 

[Modeste geedee]

Re : Compter les tabulations dans une cellule

Bonsour®
la question est hors sujet !!!
puisqu'il ne s'agit pas de tabulation mais de format !!!

edition copier
collage spécial format

 

[Modeste geedee]

Re : Compter les tabulations dans une cellule

Bonsour Robert

Mais sinon, comment tu arrives a faire une tabulation dans une cellule excel ?

sourire...
="Robert "&REPT(CAR(9);5)&" Bonjour"
police Terminal

c'est le genre de cochonnerie que l'on récupère depuis Word...

 

[Victor21]

Re : Compter les tabulations dans une cellule

Bonjour à tous.

Modeste, pendant que tu y es, tu as une astuce pour faire une tabulation dans une cellule Excel avec la "barre de tabulation"

 

[Modeste geedee]

Re : Compter les tabulations dans une cellule

Bonsour® Premier Moutardier de Franchimont

pendant que tu y es, tu as une astuce pour faire une tabulation dans une cellule Excel avec la "barre de tabulation"

il y a bien l'icone "augmenter le retrait", mais ce n'est pas une tabulation...
Ne marche pas dans la barre de formule, uniquement sur la selection

 

[Amadéus]

Re : Compter les tabulations dans une cellule

Bonjour
Pour l'instant, aucune des solutions proposées n'apporte de résultats.
La Macro VBA renvoie 0 et les 2 formules également.
La question reste donc ouverte.
Merci à ceux qui ont essayé.
Cordialement

 

[Amadéus]

Re : Compter les tabulations dans une cellule

Bonjour

Juste un petit "Up" pour faire remonter ce sujet qui va disparaitre de la page dans un moment.

 

[Victor21]

Re : Compter les tabulations dans une cellule

Re,

En A1, comme en A19 de votre fichier, il n'y a pas d'espace avant le a.
Pour vous en convaincre, entrez dans une cellule quelconque :

=NBCAR(A1)
ou
=NBCAR(A19)

Simplement, le texte est centré dans votre cellule.
Pour vous en convaincre, Format, Cellule, Alignement, Alignement horizontal : Standard

 

[Amadéus]

Re : Compter les tabulations dans une cellule

Merci Patrick

Merci de ta remarque, toutefois, les tabulations (espaces invisibles Code 9) existent et si tu regardes bien dans Format cellule, tu as bien "Centré". Et tu as également "Retrait: 10".

Ce retrait 10 m'avait échappé et c'est vers là que je vais m'orienter, comme quoi ta remarques m'est indirectement d'une grande utilité.
Saurais-tu comment récupérer la valeur de ce Retrait?
Merci
Bien cordialement

 

[Modeste geedee]

Re : Compter les tabulations dans une cellule

Bonsour...
utilise la police TERMINAL et tu les verra les caractères cachés (non imprimable) !!!