fonction "gauche" en VBA

[gerard55]

Bonjour à tous
Je cherche à partir du code ci-dessous à renvoyer le nom et le prénom d'une personne.
Pour le nom c'est Ok
Par contre pour le prénom je ne voudais que la première lettre. J'essaie de mettre la fonction gauche en VBA mais, çà ne marche pas
.cells(footlig, 3).Offset(0, 10).End(xlToLeft).Offset(0, 1) = x.Offset(0, -8) & " " & x."Left(Offset(0, -7), 1)"
c'est sur cette dernière partie que ça ne marche pas & x."Left(Offset(0, -7), 1)"
Merci pour votre aide
à +

 

[Staple1600]

Re : fonction "gauche" en VBA

Bonjour

Inséres ces fonctions dans un module

Public Function LE_PRENOM(CC As Range) As String
If InStrRev(CC, Chr(32)) > 0 Then
LE_PRENOM = Mid(CC, InStrRev(CC, Chr(32)) + 1)
End If
End Function

Function LE_NOM(CC As String) As String
Dim sESPACE As String
Dim sNOM As String
sESPACE = Chr(32)
sNOM = Left(CC, (InStr(1, CC, sESPACE)))
LE_NOM = sNOM
End Function

voir fichier exemple joint

edit: pour ta ligne de code (la dernière partie)
je verrais cela comme cela
= x.Offset(0, -8) & " " & Left(x.Offset(0, -7), 1)

 

[Spitnolan08]

Re : fonction "gauche" en VBA

Bonjour le fil,

Je vois que Stapple a une boule de cristal toute neuve...🙂
Car à partir de l'embryon de code donné, pas facile de savoir ce que veut faire gerard...
Déjà, pourquoi mettre :

.cells(footlig, 3).Offset(0, 10).

et pas :

Cells(footlig, 13)  ?

Ce qui nous donnerait :

Cells(footlig, 13).End(xlToLeft).Offset(0, 1) = x.Offset(0, -8) & " " & Left(x.Offset(0, -7), 1)

Mais on doit pouvoir se débarrasser des offset dans toute la ligne... (Au moins dans la seconde partie) si on sait ce que représente x et que l'on connait la forme du tableau.

Cordialement

 

[gerard55]

Re : fonction "gauche" en VBA

Bonjour le fil,

Je vois que Stapple a une boule de cristal toute neuve...🙂
Car à partir de l'embryon de code donné, pas facile de savoir ce que veut faire gerard...
Déjà, pourquoi mettre :

.cells(footlig, 3).Offset(0, 10).

et pas :

Cells(footlig, 13)  ?

Ce qui nous donnerait :

Cells(footlig, 13).End(xlToLeft).Offset(0, 1) = x.Offset(0, -8) & " " & Left(x.Offset(0, -7), 1)

Mais on doit pouvoir se débarrasser des offset dans toute la ligne... (Au moins dans la seconde partie) si on sait ce que représente x et que l'on connait la forme du tableau.

Cordialement

Effectivement ça simplifie le code pour un même résultat merci