Recuperer le premier mot d'une cellule en VBA

G

gbinforme

XLDnaute Impliqué

• 27 Décembre 2012

• #2

Re : Recuperer le premier mot d'une cellule en VBA

Bonsoir à tous,

La traduction de la formule peut se faire ainsi :

mot = Left([B3], InStr(1, [B3], " ") - 1)

Attention, toutefois, le code plante si tu n'as pas d'espace.

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 27 Décembre 2012

• #3

Re : Recuperer le premier mot d'une cellule en VBA

Bonsoir GBinforme,Anthony

Pour éviter le plantage :

Code:

if InStr(1, [B3], " ")>0 then mot = Left([B3], InStr(1, [B3], " ") - 1)

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 27 Décembre 2012

• #4

Re : Recuperer le premier mot d'une cellule en VBA

Bonsoir à tous.

Une autre fonction :

VB:

Function PremierMot$(c$)
    PremierMot = Split(LTrim(c) & Space(1))(0)
End Function

Pour obtenir le premier mot de [B3] :

VB:

Sub toto
    mot = Split(LTrim([B3]) & Space(1))(0)
End Function

ou encore :

VB:

Sub toto
    mot = PremierMot([B3])
End Function

(Space(1) peut être remplacé par " ".)​

Bonne nuit.


ROGER2327
#6331

Vendredi 27 Sable 140 (Saint Tic, conjoint - fête Suprême Quarte)
7 Nivôse An CCXXI, 9,4276h - terre végétale
2012-W52-4T22:37:34Z

 

Vote positif 0 Vote négatif

A

anthooooony

XLDnaute Occasionnel

• 28 Décembre 2012

• #5

Re : Recuperer le premier mot d'une cellule en VBA

Génial merci à vous trois! c'est parfait!!!!!

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Décembre 2012

• #6

Re : Recuperer le premier mot d'une cellule en VBA

Bonjour à tous,

on peut même s'affranchir de l'espace, ce dernier étant le séparateur par défaut de la fonction "Split" :

Code:

MsgBox Split(LTrim([B3]))(0)

d'ailleurs Roger🙂, je ne comprends pas ttrop l'utilité du & (& Space(1)), caractère de concaténation dans ton code... quelque chose doit m'échapper...

bonne journée
@+

 

Dernière édition: 28 Décembre 2012

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 28 Décembre 2012

• #7

Re : Recuperer le premier mot d'une cellule en VBA

Bonjour à Tous, Pierrot,

Je pense que la sécurité à été ajoutée en cas de cellule vide, peut être qu'un test serait plus approprié :

Code:

MsgBox LTrim(Split([B3] & " ")(0))

ou

Code:

if [B3] <>"" then  MsgBox Split(LTrim([B3]))(0)

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Décembre 2012

• #8

Re : Recuperer le premier mot d'une cellule en VBA

Re,

Je pense que la sécurité à été ajoutée en cas de cellule vide

Cliquez pour agrandir...

si cellule vide ou ne contenant qu'une espace, la fonction "split" renverra une erreur.....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Décembre 2012

• #9

Re : Recuperer le premier mot d'une cellule en VBA

Re,

aarf, oui ne renvoie pas d'erreur si espace rajouté au niveau de l'argument de la fonction....

Edition : oui, il faut tenir compte de la fonction LTrim....

 

Dernière édition: 28 Décembre 2012

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 28 Décembre 2012

• #10

Re : Recuperer le premier mot d'une cellule en VBA

Bonjour à tous.

Les différentes propositions rassemblées dans le classeur joint...​

ROGER2327
#6333

Samedi 28 Sable 140 (Saint Cervelas, penseur - fête Suprême Quarte)
8 Nivôse An CCXXI, 5,1454h - fumier
2012-W52-5T12:20:57Z

 

Pièces jointes

• XLD_198338.xlsm

  17.8 KB · Affichages: 185

Vote positif 0 Vote négatif