XL 2016 Nombre d'espace avant le premier caractère dans une cellule

[Fab117]

Hello,
Lorsque j'ai selectionné une cellule, je souhaiterais savoir le nombre d'espace avant le premier caractère.
Ex:
A1 = " 1er caractère" : 6
A1 = " 1er caractère" : 2

Quelqu'un saurait-il comment faire (en VBA) ?

Bon après-midi.

Fab

 

[vgendron]

Bonjour
euh.. je ne comprend pas ce que tu veux compter.
le nombre d'espace. ok. mais ou? quel premier caractère?
dans tes deux exemples: ca correspond à quoi 6 et 2 ?
et je ne vois qu'un seul espace entre les guillements " et le 1 ??

 

[Yurperqod]

Bonjour à tous, Bonjour Fab, vgendron, phlaurent

Pour compter le nombre d'espace en A1

Sub MacroTest()
MsgBox UBound(Split(Range("A1")))
End Sub

 

[phlaurent55]

Bonjour Fab,

Voir fichier joint


à+
Philippe

Edit: Bonjour vgendron

 

[Fab117]

Hello.
Merci de prendre le temps de regarder mon sujet.
Effectivement, mes exemples ont été modifiés au moment de la mise en ligne.
Afin d'essayer d'être plus clair, je joins un fichier.

Dans chaque cellule, j'ai un certain nombre d'espaces avant que le texte commence.
Je souhaiterais pour chaque cellule connaitre ce nombre d'espace.

Fab

 

[Yurperqod]

Fab117
Tu as essayé la macro proposé dans le message numéro 3 ?

Et celle-ci marche t-elle mieux ?

Sub MacroTest2()
Dim Espaces
Espaces = Len(Range("A1").Text) - Len(VBA.Trim(Range("A1").Text))
MsgBox Espaces
End Sub

 

[Fab117]

Ouah,
Vous êtes trop rapides.
C'est exactement ce que je cherchais.
Merci beaucoup.

Fab

 

[phlaurent55]

Re,

le fichier en retour

à+
Philippe

 

[vgendron]

Hello tous
Attention Yuperquod, ta solution compte le nombre d'espaces dans toute la cellule.
ex: " Test1" te donne bien 1 espace
mais pour
" Test de fonction" va te retourner 3.. au lieu de 1
La fonction de PHlaurent compte bien uniquement les espaces en début de cellule.

 

[Yurperqod]

vgendron
Dans le message numéro 6, il y une deuxième macro.

Je n'ai pas régarder les pièces jointes

 

[vgendron]

ah oui pardon.. je n'avais pas vu celle ci 🙂

 

[Fab117]

Hello,

J'ai opté pour le code du message 6 (c'est vrai que le 3 comptait tous les espaces).

Je n'ai pas réussi à utiliser la Formule esp.
J'ai essayé :

For i = 1 To 7
    Range("H" & i) = esp("B" & i)
Next i

Bonne fin d'après-midi.

Fab

 

[Yurperqod]

Hello,
J'ai opté pour le code du message 6 (c'est vrai que le 3 comptait tous les espaces).
Fab

En reprenant la macro du message numéro 6
Ça peut donner

For i = 1 To 7
    Range("H" & i) = Len(Range("B" & i).Text) - Len(VBA.Trim(Range("B" & i)Text))
Next i

 

[phlaurent55]

Re,

Hello,

J'ai opté pour le code du message 6 (c'est vrai que le 3 comptait tous les espaces).

Je n'ai pas réussi à utiliser la Formule esp.
J'ai essayé :

For i = 1 To 7
    Range("H" & i) = esp("B" & i)
Next i

Bonne fin d'après-midi.

Fab

Le code que je vois ci-dessus ne sert à RIEN
Il ne faut pas confondre Formule et Fonction

J'ai créé la fonction esp dans un module.
Il suffit tout simplement d'entrer =esp(B1) dans une cellule de la ligne 1 sur la feuille et ensuite recopier cette fonction vers le bas

à+
Philippe