[Trouvé] Fonction Concatener

dg62

XLDnaute Barbatruc

• 6 Mai 2005

• #2

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 !

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 6 Mai 2005

• #3

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.

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.

Code:

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 6 Mai 2005

• #4

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 !

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 6 Mai 2005

• #5

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.

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 6 Mai 2005

• #6

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))))

 

Vote positif 0 Vote négatif

ya_v_ka

XLDnaute Impliqué

• 6 Mai 2005

• #7

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 6 Mai 2005

• #8

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

 

Vote positif 0 Vote négatif

A

archi

XLDnaute Impliqué

• 7 Mai 2005

• #9

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)
@+

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 7 Mai 2005

• #10

Re:Fonction Concatener

Bonjour le Forum



Voilà ! on est bon pour le ZOP !

 

Vote positif 0 Vote négatif

ya_v_ka

XLDnaute Impliqué

• 7 Mai 2005

• #11

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 7 Mai 2005

• #12

Re:Fonction Concatener

re

bien fait pour moi,


ya_v_ka faire simple

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 7 Mai 2005

• #13

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 !

 

Vote positif 0 Vote négatif