OVH Cloud OVH Cloud

extraire les initials

6 réponses
Avatar
Daniel Pelletier
Bonsoir à tous

La formule suivante me donne les initial d'un prénom et nom.

=GAUCHE(G3)&STXT(G3;TROUVE(" ";G3)+1;1)
(Daniel Pelletier donne DP)
Comment faire quand le non d'une parsonne est Marc st-Jean (pas MS mais M
St-J)

une idée = Est t'il possible d'extraire seulement les lettre majiscule ?

6 réponses

Avatar
isabelle
bonjour Daniel,

une solution serait une fonction personnalisé,

Function Initiale(cellule As Range) As String
i As Integer
For i = 1 To Len(cellule)
If Asc(Mid(cellule, i, 1)) < 97 Then
Initiale = Initiale & Mid(cellule, i, 1)
End If
Next
End Function

isabelle


Bonsoir à tous

La formule suivante me donne les initial d'un prénom et nom.

=GAUCHE(G3)&STXT(G3;TROUVE(" ";G3)+1;1)
(Daniel Pelletier donne DP)
Comment faire quand le non d'une parsonne est Marc st-Jean (pas MS mais M
St-J)

une idée = Est t'il possible d'extraire seulement les lettre majiscule ?


Avatar
Starwing
Bonjour Isabelle,

Faut-il pas plutôt écrire:

Dim i As Integer

;-)

Starwing
-----Message d'origine-----
bonjour Daniel,

une solution serait une fonction personnalisé,

Function Initiale(cellule As Range) As String
i As Integer
For i = 1 To Len(cellule)
If Asc(Mid(cellule, i, 1)) < 97 Then
Initiale = Initiale & Mid(cellule, i, 1)
End If
Next
End Function

isabelle


Bonsoir à tous

La formule suivante me donne les initial d'un prénom et
nom.



=GAUCHE(G3)&STXT(G3;TROUVE(" ";G3)+1;1)
(Daniel Pelletier donne DP)
Comment faire quand le non d'une parsonne est Marc st-
Jean (pas MS mais M


St-J)

une idée = Est t'il possible d'extraire seulement les
lettre majiscule ?


.




Avatar
isabelle
%-)))
si si merci de veillez au grain Starwing, ;-)

isabelle


Bonjour Isabelle,

Faut-il pas plutôt écrire:

Dim i As Integer

;-)

Starwing
-----Message d'origine-----
bonjour Daniel,

une solution serait une fonction personnalisé,

Function Initiale(cellule As Range) As String
i As Integer
For i = 1 To Len(cellule)
If Asc(Mid(cellule, i, 1)) < 97 Then
Initiale = Initiale & Mid(cellule, i, 1)
End If
Next
End Function

isabelle


Bonsoir à tous

La formule suivante me donne les initial d'un prénom et
nom.



=GAUCHE(G3)&STXT(G3;TROUVE(" ";G3)+1;1)
(Daniel Pelletier donne DP)
Comment faire quand le non d'une parsonne est Marc st-
Jean (pas MS mais M


St-J)

une idée = Est t'il possible d'extraire seulement les
lettre majiscule ?


.






Avatar
Daniel Pelletier
Bonsoir Isabelle

la cellule ou est mon prénom et nom est G3
la cellule ou sont les initial est J3.
cette procédure je doit la copier dans ThisWorkbook ou dans la Sheet8 ?

Merci pour ta réponce rapide


"Daniel Pelletier" a écrit dans le message de
news:
Bonsoir à tous

La formule suivante me donne les initial d'un prénom et nom.

=GAUCHE(G3)&STXT(G3;TROUVE(" ";G3)+1;1)
(Daniel Pelletier donne DP)
Comment faire quand le non d'une parsonne est Marc st-Jean (pas MS mais M
St-J)

une idée = Est t'il possible d'extraire seulement les lettre majiscule ?




Avatar
Rai
Daniel Pelletier wrote:
Bonsoir Isabelle

la cellule ou est mon prénom et nom est G3
la cellule ou sont les initial est J3.
cette procédure je doit la copier dans ThisWorkbook ou dans la
Sheet8 ?

Merci pour ta réponce rapide

Bonjour,


il faut la copier dans un module.


--
Cordialement,

Rai
Remplacer point par la ponctuation appropriée pour répondre...

Avatar
isabelle
oui, dans un module "standart" ou bien dans un nouveau classeur que tu
enregistre sous l'extention .xla
comme ça tu appelle la fonction à Outils, macro complémentaire.

isabelle


Bonsoir Isabelle

la cellule ou est mon prénom et nom est G3
la cellule ou sont les initial est J3.
cette procédure je doit la copier dans ThisWorkbook ou dans la Sheet8 ?

Merci pour ta réponce rapide

"Daniel Pelletier" a écrit dans le message de
news:
Bonsoir à tous

La formule suivante me donne les initial d'un prénom et nom.

=GAUCHE(G3)&STXT(G3;TROUVE(" ";G3)+1;1)
(Daniel Pelletier donne DP)
Comment faire quand le non d'une parsonne est Marc st-Jean (pas MS mais M
St-J)

une idée = Est t'il possible d'extraire seulement les lettre majiscule ?