[Trouvé] Fonction Concatener

[archi]

Bsr,

comment transformer 'DUPONTJean' en DUPONT Jean, avec la fonction CONCATENER

merci d'avance

Message édité par: archi, à: 07/05/2005 11:59

 

[dg62]

Re:Fonction Concatener

Bonsoir


Cela releve presque de l'impossible.

Il n'y a aucun caractère qui puisse permettre une séparation du nom et du prénom.

Sauf s'il faut le faire uniquement pour DUPONTJean.

Mais j'en doute !

 

[dg62]

Re:Fonction Concatener

Re

J'avais dit pratiquement impossible mais en VBA c'est autre chose.
Un essai donc en VBA qui fonctionne pour l'instant que sur la cellule A1. Si vous donnez davantage d'informations, il est facile d'adapter le code.

Sub essai()
NOM = Range('a1'Â'Â').Value
Lnom = Len(NOM)
flag = 0
For i = 1 To Lnom
car = Mid(NOM, i)
If Asc(car) > 64 And Asc(car) < 91 Then
flag = flag + 1
End If
Next
Range('a1'Â'Â').Value = Left(NOM, flag - 1) & ' ' & Right(NOM, (Lnom - flag + 1))
End Sub

et une version qui fonctionne sur une sélection de cellules.

Sub DUPONDJean()

For Each cel In Selection
nom = cel.Value
Lnom = Len(cel)
flag = 0
For i = 1 To Lnom
car = Mid(nom, i)
If Asc(car) > 64 And Asc(car) < 91 Then
flag = flag + 1
End If
Next
cel.Value = Left(nom, flag - 1) & ' ' & Right(nom, (Lnom - flag + 1))
Next
End Sub

Message édité par: dg62, à: 06/05/2005 18:06

Message édité par: dg62, à: 06/05/2005 18:18

 

[Monique]

Re:Fonction Concatener

Bonjour,

Archi, ça ressemble à une blague.

Le nom :
=GAUCHE($A$1;SOMMEPROD(ESTNUM(TROUVE(CAR({65;66;67;68;69;70;71;72;73;74;75;76;77;78;79;80;81;82;83;84;85;86;87;88;89;90});$A$1;2))*1))

Ou bien tu mets tout l'alphabet en majuscules en colonne G :
=GAUCHE($A$1;SOMMEPROD(ESTNUM(TROUVE(G$1:G$26;$A$1;2))*1))

Le prénom :
=DROITE($A$1;NBCAR($A$1)-NBCAR($B$1))

Mais ça ne concerne pas les noms composés, les noms avec particule en minuscules, les apostrophes ni... les Bretons !

 

[dg62]

Re:Fonction Concatener

Bonsoir Monique


j'etais pratiquement certain que tu passerais par là.

C'est pour cela aussi que j'avais notifié 'presque impossible',

Impossible pour moi, mais pas pour Monique.

 

[Monique]

Re:Fonction Concatener

Re,

J'ai cru aussi que c'était impossible.
La suite…
Nom et prénom dans la même cellule, l'alphabet en majuscules en colonne G :
=GAUCHE($A$1;SOMMEPROD(ESTNUM(TROUVE(G$1:G$26;$A$1;2))*1))&' '&DROITE($A$1;NBCAR($A$1)-NBCAR(GAUCHE($A$1;SOMMEPROD(ESTNUM(TROUVE(G$1:G$26;$A$1;2))*1))))

 

[ya_v_ka]

Re:Fonction Concatener

salut tout le monde

moi j'ai compris autre chose là ... je pensais que la recherche etait la concatenation de 2 cellules qui donnait DUPONDjean et que la recherche etait simplement: comment y integrer un espace...

=CONCATENER(A1;' ';A2)
ou
=A1&' '&A2

où A1 et A2 représente les cellules à concatener !

mais peut-être suis-je trop compliqué dans ma vision de la chose ?

Ya'v

Message édité par: ya_v_ka, à: 06/05/2005 23:29

 

[Monique]

Re:Fonction Concatener

Bonjour,

Eh oui, ya_v_ka, et tu as peut-être raison.
comment obtenir 'DUPONT Jean' et non DUPONTJean, avec la fonction CONCATENER

 

[archi]

Re:Fonction Concatener

Merci à tous, est en particulier à ya_v_ka qui a su déchiffrer ma question, il est vrai assez mal formulée (désolé Monique et dg62)
@+

 

[dg62]

Re:Fonction Concatener

Bonjour le Forum



Voilà ! on est bon pour le ZOP !

 

[ya_v_ka]

Re:Fonction Concatener

Salut tout le monde

Inutile de vous dire que je ne suis pas peu fier de faire mon entrée dans le ZOP 50 et en plus, avec ma solution hypersimple de m'être porté à la hauteur des meilleur(e)s

ya'v

 

[dg62]

Re:Fonction Concatener

re

bien fait pour moi,


ya_v_ka faire simple

 

[Dugenou]

Re:Fonction Concatener

Bravo !

Un des meilleurs ZOP à ma connaissance !! Peut être parce que ce sont les meilleurs qui se sont fait prendre !!

Bravo les formules Monique !