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

vgendron

XLDnaute Barbatruc

• 30 Août 2017

• #2

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 ??

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 30 Août 2017

• #3

Bonjour à tous, Bonjour Fab, vgendron, phlaurent

Pour compter le nombre d'espace en A1

VB:

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Août 2017

• #4

Bonjour Fab,

Voir fichier joint


à+
Philippe

Edit: Bonjour vgendron

 

Pièces jointes

• 111.xlsm

  14.3 KB · Affichages: 29

Vote positif 0 Vote négatif

F

Fab117

XLDnaute Impliqué

• 30 Août 2017

• #5

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

 

Pièces jointes

• Exemple.zip

  7.6 KB · Affichages: 38

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 30 Août 2017

• #6

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

 

Vote positif 0 Vote négatif

F

Fab117

XLDnaute Impliqué

• 30 Août 2017

• #7

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

Fab

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Août 2017

• #8

Re,

le fichier en retour

à+
Philippe

 

Pièces jointes

• 111.xlsm

  15.2 KB · Affichages: 36

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 30 Août 2017

• #9

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.

 

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 30 Août 2017

• #10

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

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

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 30 Août 2017

• #11

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

 

Vote positif 0 Vote négatif

F

Fab117

XLDnaute Impliqué

• 30 Août 2017

• #12

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

 

Pièces jointes

• 111 - B.xlsm

  16.6 KB · Affichages: 34

Vote positif 0 Vote négatif

Yurperqod

XLDnaute Occasionnel

• 30 Août 2017

• #13

Fab117 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Août 2017

• #14

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif