Modifier une colonne

Version imprimable

29/08/2019, 09h31
apdf1

Modifier une colonne

Bonjour,

J'ai une colonne (A) avec des noms comme ceci " M. Philippe Berta "
Et j'aimerai arriver à obtenir ceci dans 6 colonnes en VBA ci-possible

Civilité Prénom Nom Prénom & nom Nom & Prénom Prénom & nom en minuscule
Mr. Philippe Berta Philippe Berta Berta Philippe philippe berta

Je joins un fichier exemple

Je vous remercie

Max
29/08/2019, 09h52
Transitoire

Bonjour, en ce qui me concerne, je pense que vous êtes dans mission impossible. :weird:
Pour pouvoir automatiser, il faudrait une Intelligence Artificielle. :aie:
Premièrement, les civilités présentent-elles toujours une forme identique? Car sinon M. ou Mr etc?
Deuxièmement, si il y a un nom composé exemple "Dupond Durand" . Pire "Dupond Renaud". Une particule "De Risotto"(pour ceux qui aiment):D . etc etc etc
Mais ce n'est que mon avis. Bonne chance.
Par ailleurs il n'est pas souhaité de mettre un dossier joint d'entrée de jeu.

Cordialement 8-)
29/08/2019, 10h17
Menhir

Citation:

Envoyé par apdf1

J'ai une colonne (A) avec des noms comme ceci " M. Philippe Berta "

On va partir de l'hypothèse que Civilité, Prénom et Nom sont toujours dans cet ordre, qu'ils sont séparés par un (et un seul) espace et qu'il n'y a pas d'autre espace dans la cellule (pas de nom ou prénom double sans tiret, etc.).
Si cette hypothèse ne se vérifie pas pour l'ensemble de la liste, voir la réponse #2 de Transitoire ( :coucou: )

Citation:

Et j'aimerai arriver à obtenir ceci dans 6 colonnes en VBA ci-possible
Civilité Prénom Nom Prénom & nom Nom & Prénom Prénom & nom en minuscule

Imaginons que cette liste est dans une feuille "Data".
Dans une autre feuille,
mettre en A1 la formule : =GAUCHE(Data!A1;TROUVE(" ";Data!A1)-1)
mettre en B1 la formule : =GAUCHE(STXT(Data!A1;TROUVE(" ";Data!A1)+1;100);TROUVE(" ";STXT(Data!A1;TROUVE(" ";Data!A1)+1;100))-1)
mettre en C1 la formule : =DROITE(Data!A1;NBCAR(Data!A1)-TROUVE(" ";Data!A1)-TROUVE(" ";STXT(Data!A1;TROUVE(" ";Data!A1)+1;100)))

Les trois autre colonnes ne sont que des concaténations de ces trois là.
29/08/2019, 10h37
apdf1

Bonjour Menhir

Je te remercie mais je crois que l'on c'est pas compris c'est pour cela que j'avais mis un fichier joins pour exemple.

Merci qu'à même

Max
29/08/2019, 11h28
Menhir

Citation:

Envoyé par apdf1

Je te remercie mais je crois que l'on c'est pas compris c'est pour cela que j'avais mis un fichier joins pour exemple.

Et toi, as-tu compris ceci ? https://www.developpez.net/forums/d8...s-discussions/

Re Menhir

Alors je vois que tu t'emporte vite, alors excuse moi de t'avoir fait perdre ton temps en cherchant un peu j'ai trouver la solution à mon problème.
Voila;

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Remplir()
Application.DisplayAlerts = False
With [A5].CurrentRegion
    .Columns(1).TextToColumns .Cells(1, 3), xlDelimited, Space:=True 'commande Convertir
    .Columns(3).Replace "M.", "Mr."
    .Columns(6) = "=RC[-2]&"" ""&RC[-1]"
    .Columns(7) = "=RC[-2]&"" ""&RC[-3]"
    .Columns(8) = "=LOWER(RC[-2])"
    .Columns(6).Resize(, 3) = .Columns(6).Resize(, 3).Value 'supprime les formules
End With
End Sub

Bonne journée

29/08/2019, 12h42
Menhir

Observe bien le résultat à la ligne 8 de tes données après activation de ta macro... Aïe !
Par contre, avec mes formules, ça fonctionne... :mouarf:
29/08/2019, 12h55
Transitoire

Re Bonjour
Si vous voulez tester avec le nom et un prénom composé et/ou avec une particule. je ne crois pas que ça marche.
Mais c'est peut-être un bon début
Cordialement 8-)
29/08/2019, 15h16
Menhir

Citation:

Envoyé par Transitoire

Si vous voulez tester avec le nom et un prénom composé et/ou avec une particule. je ne crois pas que ça marche.

... ou les nom breton : Le Cossec, Le Naour, La Gadec...
(ce ne sont pas des particules, ce sont des parties tête :mrgreen: )
29/08/2019, 18h36
Transitoire

Bravo Cher Menhir, la particule, je ne l'avais pas vu venir. :mouarf:
Avec Charles De Gaulle c'est pareil, en Général du moins :aie:
Cordialement 8-)
29/08/2019, 21h20
unparia

Bonjour apdf1

J'aurais personnellement tendance (une fois de plus) à rappeler qu'il s'agit surtout, dans ce genre d'affaire, de modélisation des données et qu'un "idart" ne saurait être obtenu de manière sécuritaire par simple concaténation de champs distincts.
03/09/2019, 14h03
Patrice740
Bonjour apdf1,
Citation:
Envoyé par apdf1

Code:

1 2 '... .Columns(3).Replace "M.", "Mr."
Que des ecclésiastiques ! En Français,
Mr. est l'abréviation de Monseigneur.
M. est l'abréviation de Monsieur.