XL 2013 Caracteres

maval

XLDnaute Barbatruc

• 29 Août 2019

• #2

Re bonjour

Pas de réponse Bof......!

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 29 Août 2019

• #3

Bonjour, maval.

Très simple à réaliser manuellement :
Données convertir dans un premier temps,
Concaténer pour avoir les différentes combinaisons,
Minuscule pour la dernière colonne.
Reste à utiliser l'enregistreur de macro que vous devez connaitre, non ?
Mais vous préférez peut-être déléguer ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Août 2019

• #4

Bonjour maval
Salut Patrick
Une macro a tester:

VB:

Sub test()
For n = 5 To Range("A" & Rows.Count).End(xlUp).Row
 x = Split(Range("A" & n))
 Range("C" & n) = x(0)
 Range("D" & n) = x(1)
 Range("E" & n) = x(2)
 Range("F" & n) = x(1) & " " & x(2)
 Range("G" & n) = x(2) & " " & x(1)
 Range("H" & n) = LCase(Range("F" & n))
Next
End Sub

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 29 Août 2019

• #5

Bonjour
Question à 2 balles
Est ce que tous les prénoms double (Jean François) auront un très d'union?
Ou est ce que tous les noms double (Bessot Ballot) auront un très d'union?
A+ François

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Août 2019

• #6

Bonjour maval, Patrick, Pierre, fanfan38,

Si la ligne 4 est toujours vide :

VB:

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

A+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 29 Août 2019

• #7

Bonjour PierreJean,
Bonjour Job

Je vous remercie beaucoup Nickel comme Dab.....
Bonne journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Août 2019

• #8

Pour ne pas laisser fanfan38 sans réponse : si les noms ou prénoms composés ne sont pas distingués... eh bien impossible de les distinguer !

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 30 Août 2019

• #9

Bonjour

Suite au deux code de Job et Pierrejean que je salut et remercie encore, j'ai omis de mettre "C1: E1" ensemble c'est à dire exemple:
Mr. Philippe Berta
Je vous remercie d'avance

Max

 

Vote positif 0 Vote négatif