Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel extraire partie d'une cellule et la copier dans une autre

extraire partie d'une cellule et la copier dans une autre

14 réponses
Avatar
cegeffroy
Bonsoir,

Ca fait deux heures que je me casse la tete et la j'avoue que je
commence a m'enerver

Je m'explique.
J'ai dans une colonne E ceci :
M ou Mme TOTO
M=2E TUTU
Madame TITI
Melle TETE

J'aimerais pouvoir extraire les civilit=E9 =E0 savoir M ou Mme, M.,
Madame, Melle et les copier dans une autre colonnes.

Est ce possible en macro ou en formule ?

Merci d'avance pour votre aide
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
JB
Il n'y a pas de macro à exécuter.
Il suffit d'utiliser la fonction Civilite() comme une autre fonction.

Regarder en C2 de l'exemple

JB
On 14 sep, 13:06, wrote:
OUi j'ai vu la pièce jointe

J'ai fais ALT+F11

mais quand j'appuie sur execution, il m'ouvre une boite de dialogue
Macros
avec des boutons a gauche tels que creer executer...

On 14 sep, 12:38, JB wrote:



As tu regardé l'exemple en PJ?

http://cjoint.com/?jomMaNuiR0

JB

On 14 sep, 12:00, wrote:

Merci pour cette fonction mais je ne comprends pas comment ca doit
fonctionner !

Dois je l'inserer dans ma macro ?
Si je lance la fonction ci-dessus, je ne vois pas les resultats
En fait les Monsieur ou Madame bidule sont dans la colonne E de la
feuille LIST_ADM (2)
Les civilités une fois extraites doivent être reportées dans la
colonne P de la feuille LIST_ADM (2)

Merci pour votre aide précieuse

On 14 sep, 11:21, JB wrote:

Bonjour,

Dans un module alt+F11 puis insertion/module

Function Civilite(chaine)
Tcivilite = Array("M. ou Mme ", "M. ", "Mme ", "Mlle ")
Tcivilite2 = Array("Monsieur ou Madame ", "Monsieur ", "Madame ",
"Mademoiselle ")
For i = 0 To UBound(Tcivilite)
If UCase(Left(chaine, Len(Tcivilite(i)))) = UCase(Tcivilite(i ))
Then
Civilite = Tcivilite2(i)
Exit Function
End If
Next i
Civilite = ""
End Function

Dans le tableur : =Civilite(A1)

http://cjoint.com/?jolvNpl5Dx

JBhttp://boisgontierjacques.free.fr/

On 14 sep, 10:44, wrote:

Merci pour cette réponse on est pas loin du bon résultat

En creusant un peu dans ma petite tête, j'ai trouvé ce matin une
formule SI pouvant résoudre mon problème
=SI(NB.SI(E2;"*M ou Mme*")>0;"Monsieur ou
Madame";SI(NB.SI(E2;"*Mme*")>0;"Madame";SI(NB.SI(E2;"*M.*")>0;"Mo nsieur";SI­­­­­(NB.SI(E2;"*Madame*")>0;"Madame";SI(NB.SI(E2;"*Mel le*")>0;"Mademoiselle­"­;­S­I­(NB.SI(E2;"*Monsieur*")>0;"Monsieur ";""))))))

Le problème est que je n'arrive pas a intégrer la formule dan s une
macro !

Pour votre solution, ce qui m'embete c'est le fait que lorsque la bete
trouve les civilités, elles sont copiés sans modifications.
Je m'explique avec la formule SI que j'ai mis au dessus, si on tr ouve
M ou Mme en E2, alors j'aurai comme résultat dans la cellule P2
Monsieur ou Madame.

Bon je sais c'est pas simple ce que je demande mais bon...

Le tout est de savoir comment integrer la formule SI dans la macr o ou
bien alors transformer en macro la formule SI ...

Merci d'avance

On 14 sep, 10:22, "garnote" wrote:

Ou bien ( plus rapide ? ) :

Sub Extraire_Civilites()
Dim ch
Dim c As Range
Dim i As Byte
For Each c In Selection
For Each ch In Array("M ou Mme", "M.", "Madame", "Melle ")
If Left(LTrim(c), Len(ch)) = ch Then
c.Offset(0, 1) = ch
Exit For
End If
Next ch
Next c
End Sub

Serge

"garnote" a écrit dans le mes sage de news:

Bonjour, Bonjour,

Une piste :
Sélectionne tes entrées de la colonne E et lance cette ma cro.
Elle met dans la colonne F une des civilités entrées dans le Array
de la macro. La macro utilise LTrim(c) pour prévoir le coup où
il y aurait des espaces avant les civilités.

Sub Extraire_Civilites()
Dim ch
Dim c As Range
Dim i As Single
ch = Array("M ou Mme", "M.", "Madame", "Melle")
For Each c In Selection
For i = 0 To UBound(ch)
If Left(LTrim(c), Len(ch(i))) = ch(i) Then c.Off set(0, 1) = ch(i)
Next i
Next c
End Sub

Serge

a écrit dans le message de news: 118
Bonjour,

Merci pour cette idée et cette solution mais hélas, cela ne suffira
pas...

De plus j'ai environ 400 lignes donc...

Il n'y a pas moyen de régler ce probleme sous forme de macr o ??

Merci encore

On 13 sep, 19:46, FREDSCOPE wro te:
Bonsoir,

En colonne F, la formule =GAUCHE(E1;CHERCHE(" ";E1;1)-1) d oit faire
l'affaire pour les civilité simples.

Pour les M ou Mme, M et Mme, je pense qu'il suffirait de com pter le
nombre d'espaces dans la chaine et de décaler troisième paramètre de
la fonction Cherche.

Ou bien traiter ces cas la, s'ils ne sont pas nombreux par u ne
fonction si.

FRED

On 13 sep, 17:44, wrote:

Bonsoir,

Ca fait deux heures que je me casse la tete et la j'avoue que je
commence a m'enerver

Je m'explique.
J'ai dans une colonne E ceci :
M ou Mme TOTO
M. TUTU
Madame TITI
Melle TETE

J'aimerais pouvoir extraire les civilité à savoir M ou Mme, M.,
Madame, Melle et les copier dans une autre colonnes.

Est ce possible en macro ou en formule ?

Merci d'avance pour votre aide- Masquer le texte des messa ges précédents -


- Afficher le texte des messages précédents -- Masquer l e texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le t exte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le tex te des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -










Avatar
cegeffroy
Utiliser comme une autre fonction ?

Bon j'ai mis le module en faisant ALT+F11 insertion module
Ensuite sur la feuille j'ai mis =civilite(A2) mais ca bug !



On 14 sep, 13:10, JB wrote:
Il n'y a pas de macro à exécuter.
Il suffit d'utiliser la fonction Civilite() comme une autre fonction.

Regarder en C2 de l'exemple

JB
On 14 sep, 13:06, wrote:



OUi j'ai vu la pièce jointe

J'ai fais ALT+F11

mais quand j'appuie sur execution, il m'ouvre une boite de dialogue
Macros
avec des boutons a gauche tels que creer executer...

On 14 sep, 12:38, JB wrote:

As tu regardé l'exemple en PJ?

http://cjoint.com/?jomMaNuiR0

JB

On 14 sep, 12:00, wrote:

Merci pour cette fonction mais je ne comprends pas comment ca doit
fonctionner !

Dois je l'inserer dans ma macro ?
Si je lance la fonction ci-dessus, je ne vois pas les resultats
En fait les Monsieur ou Madame bidule sont dans la colonne E de la
feuille LIST_ADM (2)
Les civilités une fois extraites doivent être reportées dans la
colonne P de la feuille LIST_ADM (2)

Merci pour votre aide précieuse

On 14 sep, 11:21, JB wrote:

Bonjour,

Dans un module alt+F11 puis insertion/module

Function Civilite(chaine)
Tcivilite = Array("M. ou Mme ", "M. ", "Mme ", "Mlle ")
Tcivilite2 = Array("Monsieur ou Madame ", "Monsieur ", "Madam e ",
"Mademoiselle ")
For i = 0 To UBound(Tcivilite)
If UCase(Left(chaine, Len(Tcivilite(i)))) = UCase(Tcivilite (i))
Then
Civilite = Tcivilite2(i)
Exit Function
End If
Next i
Civilite = ""
End Function

Dans le tableur : =Civilite(A1)

http://cjoint.com/?jolvNpl5Dx

JBhttp://boisgontierjacques.free.fr/

On 14 sep, 10:44, wrote:

Merci pour cette réponse on est pas loin du bon résultat

En creusant un peu dans ma petite tête, j'ai trouvé ce mati n une
formule SI pouvant résoudre mon problème
=SI(NB.SI(E2;"*M ou Mme*")>0;"Monsieur ou
Madame";SI(NB.SI(E2;"*Mme*")>0;"Madame";SI(NB.SI(E2;"*M.*")>0;" Monsieur";SI­­­­­­(NB.SI(E2;"*Madame*")>0;"Madame";SI(NB.SI(E2; "*Melle*")>0;"Mademoisell­e­"­;­S­I­(NB.SI(E2;"*Monsieur*")>0;" Monsieur";""))))))

Le problème est que je n'arrive pas a intégrer la formule d ans une
macro !

Pour votre solution, ce qui m'embete c'est le fait que lorsque la bete
trouve les civilités, elles sont copiés sans modifications.
Je m'explique avec la formule SI que j'ai mis au dessus, si on trouve
M ou Mme en E2, alors j'aurai comme résultat dans la cellule P2
Monsieur ou Madame.

Bon je sais c'est pas simple ce que je demande mais bon...

Le tout est de savoir comment integrer la formule SI dans la ma cro ou
bien alors transformer en macro la formule SI ...

Merci d'avance

On 14 sep, 10:22, "garnote" wro te:

Ou bien ( plus rapide ? ) :

Sub Extraire_Civilites()
Dim ch
Dim c As Range
Dim i As Byte
For Each c In Selection
For Each ch In Array("M ou Mme", "M.", "Madame", "Mel le")
If Left(LTrim(c), Len(ch)) = ch Then
c.Offset(0, 1) = ch
Exit For
End If
Next ch
Next c
End Sub

Serge

"garnote" a écrit dans le m essage de news:

Bonjour, Bonjour,

Une piste :
Sélectionne tes entrées de la colonne E et lance cette macro.
Elle met dans la colonne F une des civilités entrées da ns le Array
de la macro. La macro utilise LTrim(c) pour prévoir le co up où
il y aurait des espaces avant les civilités.

Sub Extraire_Civilites()
Dim ch
Dim c As Range
Dim i As Single
ch = Array("M ou Mme", "M.", "Madame", "Melle")
For Each c In Selection
For i = 0 To UBound(ch)
If Left(LTrim(c), Len(ch(i))) = ch(i) Then c.O ffset(0, 1) = ch(i)
Next i
Next c
End Sub

Serge

a écrit dans le message de news: 1
Bonjour,

Merci pour cette idée et cette solution mais hélas, cel a ne suffira
pas...

De plus j'ai environ 400 lignes donc...

Il n'y a pas moyen de régler ce probleme sous forme de ma cro ??

Merci encore

On 13 sep, 19:46, FREDSCOPE w rote:
Bonsoir,

En colonne F, la formule =GAUCHE(E1;CHERCHE(" ";E1;1)-1) doit faire
l'affaire pour les civilité simples.

Pour les M ou Mme, M et Mme, je pense qu'il suffirait de c ompter le
nombre d'espaces dans la chaine et de décaler troisièm e paramètre de
la fonction Cherche.

Ou bien traiter ces cas la, s'ils ne sont pas nombreux par une
fonction si.

FRED

On 13 sep, 17:44, wrote:

Bonsoir,

Ca fait deux heures que je me casse la tete et la j'avou e que je
commence a m'enerver

Je m'explique.
J'ai dans une colonne E ceci :
M ou Mme TOTO
M. TUTU
Madame TITI
Melle TETE

J'aimerais pouvoir extraire les civilité à savoir M ou Mme, M.,
Madame, Melle et les copier dans une autre colonnes.

Est ce possible en macro ou en formule ?

Merci d'avance pour votre aide- Masquer le texte des mes sages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le t exte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le tex te des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -











Avatar
cegeffroy
Je comprends rien !

J'ai fais ALT+F11 Insertion module
Sur ma feuille j'ai mis =civilite(A2)

mais ca bug !

de plus comment integrer la fonction pour qu'elle se fasse
automatiquement ?
J'ai deja une macro de creer pur faire des opérations tels que mis en
page, calcul... puis je inserer votre solution dans ma macro ?
On 14 sep, 13:10, JB wrote:
Il n'y a pas de macro à exécuter.
Il suffit d'utiliser la fonction Civilite() comme une autre fonction.

Regarder en C2 de l'exemple

JB
On 14 sep, 13:06, wrote:



OUi j'ai vu la pièce jointe

J'ai fais ALT+F11

mais quand j'appuie sur execution, il m'ouvre une boite de dialogue
Macros
avec des boutons a gauche tels que creer executer...

On 14 sep, 12:38, JB wrote:

As tu regardé l'exemple en PJ?

http://cjoint.com/?jomMaNuiR0

JB

On 14 sep, 12:00, wrote:

Merci pour cette fonction mais je ne comprends pas comment ca doit
fonctionner !

Dois je l'inserer dans ma macro ?
Si je lance la fonction ci-dessus, je ne vois pas les resultats
En fait les Monsieur ou Madame bidule sont dans la colonne E de la
feuille LIST_ADM (2)
Les civilités une fois extraites doivent être reportées dans la
colonne P de la feuille LIST_ADM (2)

Merci pour votre aide précieuse

On 14 sep, 11:21, JB wrote:

Bonjour,

Dans un module alt+F11 puis insertion/module

Function Civilite(chaine)
Tcivilite = Array("M. ou Mme ", "M. ", "Mme ", "Mlle ")
Tcivilite2 = Array("Monsieur ou Madame ", "Monsieur ", "Madam e ",
"Mademoiselle ")
For i = 0 To UBound(Tcivilite)
If UCase(Left(chaine, Len(Tcivilite(i)))) = UCase(Tcivilite (i))
Then
Civilite = Tcivilite2(i)
Exit Function
End If
Next i
Civilite = ""
End Function

Dans le tableur : =Civilite(A1)

http://cjoint.com/?jolvNpl5Dx

JBhttp://boisgontierjacques.free.fr/

On 14 sep, 10:44, wrote:

Merci pour cette réponse on est pas loin du bon résultat

En creusant un peu dans ma petite tête, j'ai trouvé ce mati n une
formule SI pouvant résoudre mon problème
=SI(NB.SI(E2;"*M ou Mme*")>0;"Monsieur ou
Madame";SI(NB.SI(E2;"*Mme*")>0;"Madame";SI(NB.SI(E2;"*M.*")>0;" Monsieur";SI­­­­­­(NB.SI(E2;"*Madame*")>0;"Madame";SI(NB.SI(E2; "*Melle*")>0;"Mademoisell­e­"­;­S­I­(NB.SI(E2;"*Monsieur*")>0;" Monsieur";""))))))

Le problème est que je n'arrive pas a intégrer la formule d ans une
macro !

Pour votre solution, ce qui m'embete c'est le fait que lorsque la bete
trouve les civilités, elles sont copiés sans modifications.
Je m'explique avec la formule SI que j'ai mis au dessus, si on trouve
M ou Mme en E2, alors j'aurai comme résultat dans la cellule P2
Monsieur ou Madame.

Bon je sais c'est pas simple ce que je demande mais bon...

Le tout est de savoir comment integrer la formule SI dans la ma cro ou
bien alors transformer en macro la formule SI ...

Merci d'avance

On 14 sep, 10:22, "garnote" wro te:

Ou bien ( plus rapide ? ) :

Sub Extraire_Civilites()
Dim ch
Dim c As Range
Dim i As Byte
For Each c In Selection
For Each ch In Array("M ou Mme", "M.", "Madame", "Mel le")
If Left(LTrim(c), Len(ch)) = ch Then
c.Offset(0, 1) = ch
Exit For
End If
Next ch
Next c
End Sub

Serge

"garnote" a écrit dans le m essage de news:

Bonjour, Bonjour,

Une piste :
Sélectionne tes entrées de la colonne E et lance cette macro.
Elle met dans la colonne F une des civilités entrées da ns le Array
de la macro. La macro utilise LTrim(c) pour prévoir le co up où
il y aurait des espaces avant les civilités.

Sub Extraire_Civilites()
Dim ch
Dim c As Range
Dim i As Single
ch = Array("M ou Mme", "M.", "Madame", "Melle")
For Each c In Selection
For i = 0 To UBound(ch)
If Left(LTrim(c), Len(ch(i))) = ch(i) Then c.O ffset(0, 1) = ch(i)
Next i
Next c
End Sub

Serge

a écrit dans le message de news: 1
Bonjour,

Merci pour cette idée et cette solution mais hélas, cel a ne suffira
pas...

De plus j'ai environ 400 lignes donc...

Il n'y a pas moyen de régler ce probleme sous forme de ma cro ??

Merci encore

On 13 sep, 19:46, FREDSCOPE w rote:
Bonsoir,

En colonne F, la formule =GAUCHE(E1;CHERCHE(" ";E1;1)-1) doit faire
l'affaire pour les civilité simples.

Pour les M ou Mme, M et Mme, je pense qu'il suffirait de c ompter le
nombre d'espaces dans la chaine et de décaler troisièm e paramètre de
la fonction Cherche.

Ou bien traiter ces cas la, s'ils ne sont pas nombreux par une
fonction si.

FRED

On 13 sep, 17:44, wrote:

Bonsoir,

Ca fait deux heures que je me casse la tete et la j'avou e que je
commence a m'enerver

Je m'explique.
J'ai dans une colonne E ceci :
M ou Mme TOTO
M. TUTU
Madame TITI
Melle TETE

J'aimerais pouvoir extraire les civilité à savoir M ou Mme, M.,
Madame, Melle et les copier dans une autre colonnes.

Est ce possible en macro ou en formule ?

Merci d'avance pour votre aide- Masquer le texte des mes sages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le t exte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le tex te des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -











Avatar
cegeffroy
C'est bon j'ai trouvé !
j'avais fais une erreur de syntaxe autant pour moi...

Merci pour ton aide :)

On 14 sep, 13:30, wrote:
Je comprends rien !

J'ai fais ALT+F11 Insertion module
Sur ma feuille j'ai mis =civilite(A2)

mais ca bug !

de plus comment integrer la fonction pour qu'elle se fasse
automatiquement ?
J'ai deja une macro de creer pur faire des opérations tels que mis en
page, calcul... puis je inserer votre solution dans ma macro ?
On 14 sep, 13:10, JB wrote:



Il n'y a pas de macro à exécuter.
Il suffit d'utiliser la fonction Civilite() comme une autre fonction.

Regarder en C2 de l'exemple

JB
On 14 sep, 13:06, wrote:

OUi j'ai vu la pièce jointe

J'ai fais ALT+F11

mais quand j'appuie sur execution, il m'ouvre une boite de dialogue
Macros
avec des boutons a gauche tels que creer executer...

On 14 sep, 12:38, JB wrote:

As tu regardé l'exemple en PJ?

http://cjoint.com/?jomMaNuiR0

JB

On 14 sep, 12:00, wrote:

Merci pour cette fonction mais je ne comprends pas comment ca doit
fonctionner !

Dois je l'inserer dans ma macro ?
Si je lance la fonction ci-dessus, je ne vois pas les resultats
En fait les Monsieur ou Madame bidule sont dans la colonne E de la
feuille LIST_ADM (2)
Les civilités une fois extraites doivent être reportées dan s la
colonne P de la feuille LIST_ADM (2)

Merci pour votre aide précieuse

On 14 sep, 11:21, JB wrote:

Bonjour,

Dans un module alt+F11 puis insertion/module

Function Civilite(chaine)
Tcivilite = Array("M. ou Mme ", "M. ", "Mme ", "Mlle ")
Tcivilite2 = Array("Monsieur ou Madame ", "Monsieur ", "Mad ame ",
"Mademoiselle ")
For i = 0 To UBound(Tcivilite)
If UCase(Left(chaine, Len(Tcivilite(i)))) = UCase(Tcivili te(i))
Then
Civilite = Tcivilite2(i)
Exit Function
End If
Next i
Civilite = ""
End Function

Dans le tableur : =Civilite(A1)

http://cjoint.com/?jolvNpl5Dx

JBhttp://boisgontierjacques.free.fr/

On 14 sep, 10:44, wrote:

Merci pour cette réponse on est pas loin du bon résultat

En creusant un peu dans ma petite tête, j'ai trouvé ce ma tin une
formule SI pouvant résoudre mon problème
=SI(NB.SI(E2;"*M ou Mme*")>0;"Monsieur ou
Madame";SI(NB.SI(E2;"*Mme*")>0;"Madame";SI(NB.SI(E2;"*M.*")>0 ;"Monsieur";SI­­­­­­­(NB.SI(E2;"*Madame*")>0;"Madame";SI(NB.S I(E2;"*Melle*")>0;"Mademoisel­l­e­"­;­S­I­(NB.SI(E2;"*Monsieu r*")>0;"Monsieur";""))))))

Le problème est que je n'arrive pas a intégrer la formule dans une
macro !

Pour votre solution, ce qui m'embete c'est le fait que lorsqu e la bete
trouve les civilités, elles sont copiés sans modification s.
Je m'explique avec la formule SI que j'ai mis au dessus, si o n trouve
M ou Mme en E2, alors j'aurai comme résultat dans la cellul e P2
Monsieur ou Madame.

Bon je sais c'est pas simple ce que je demande mais bon...

Le tout est de savoir comment integrer la formule SI dans la macro ou
bien alors transformer en macro la formule SI ...

Merci d'avance

On 14 sep, 10:22, "garnote" w rote:

Ou bien ( plus rapide ? ) :

Sub Extraire_Civilites()
Dim ch
Dim c As Range
Dim i As Byte
For Each c In Selection
For Each ch In Array("M ou Mme", "M.", "Madame", "M elle")
If Left(LTrim(c), Len(ch)) = ch Then
c.Offset(0, 1) = ch
Exit For
End If
Next ch
Next c
End Sub

Serge

"garnote" a écrit dans le message de news:

Bonjour, Bonjour,

Une piste :
Sélectionne tes entrées de la colonne E et lance cett e macro.
Elle met dans la colonne F une des civilités entrées dans le Array
de la macro. La macro utilise LTrim(c) pour prévoir le coup où
il y aurait des espaces avant les civilités.

Sub Extraire_Civilites()
Dim ch
Dim c As Range
Dim i As Single
ch = Array("M ou Mme", "M.", "Madame", "Melle")
For Each c In Selection
For i = 0 To UBound(ch)
If Left(LTrim(c), Len(ch(i))) = ch(i) Then c .Offset(0, 1) = ch(i)
Next i
Next c
End Sub

Serge

a écrit dans le message de news:
Bonjour,

Merci pour cette idée et cette solution mais hélas, c ela ne suffira
pas...

De plus j'ai environ 400 lignes donc...

Il n'y a pas moyen de régler ce probleme sous forme de macro ??

Merci encore

On 13 sep, 19:46, FREDSCOPE wrote:
Bonsoir,

En colonne F, la formule =GAUCHE(E1;CHERCHE(" ";E1;1)- 1) doit faire
l'affaire pour les civilité simples.

Pour les M ou Mme, M et Mme, je pense qu'il suffirait de compter le
nombre d'espaces dans la chaine et de décaler troisi ème paramètre de
la fonction Cherche.

Ou bien traiter ces cas la, s'ils ne sont pas nombreux p ar une
fonction si.

FRED

On 13 sep, 17:44, wrote:

Bonsoir,

Ca fait deux heures que je me casse la tete et la j'av oue que je
commence a m'enerver

Je m'explique.
J'ai dans une colonne E ceci :
M ou Mme TOTO
M. TUTU
Madame TITI
Melle TETE

J'aimerais pouvoir extraire les civilité à savoir M ou Mme, M.,
Madame, Melle et les copier dans une autre colonnes.

Est ce possible en macro ou en formule ?

Merci d'avance pour votre aide- Masquer le texte des m essages précédents -


- Afficher le texte des messages précédents -- Masqu er le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le t exte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le tex te des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -












1 2