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

Fab117 · 30 Août 2017

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 · 30 Août 2017

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 · 30 Août 2017

Bonjour à tous, Bonjour Fab, vgendron, phlaurent

Pour compter le nombre d'espace en A1

VB:

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

phlaurent55 · 30 Août 2017

Bonjour Fab,

Voir fichier joint

à+
Philippe

Edit: Bonjour vgendron

Fab117 · 30 Août 2017

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 · 30 Août 2017

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

Et celle-ci marche t-elle mieux ?

VB:

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

Fab117 · 30 Août 2017

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

Fab

phlaurent55 · 30 Août 2017

Re,

le fichier en retour

à+
Philippe

vgendron · 30 Août 2017

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 · 30 Août 2017

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

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

vgendron · 30 Août 2017

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

Fab117 · 30 Août 2017

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é :

Code:

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

Bonne fin d'après-midi.

Fab

Yurperqod · 30 Août 2017

Fab117 à dit:
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

VB:

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

phlaurent55 · 30 Août 2017

Re,

Fab117 à dit:
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é :

Code:

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

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

Fab117

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

Yurperqod

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

Pièces jointes

Fab117

XLDnaute Impliqué

Pièces jointes

Yurperqod

XLDnaute Occasionnel

Fab117

XLDnaute Impliqué

phlaurent55

Nous a quittés en 2020

Pièces jointes

vgendron

XLDnaute Barbatruc

Yurperqod

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Fab117

XLDnaute Impliqué

Pièces jointes

Yurperqod

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

Discussions similaires