macro majus/minuscule automatique

[Cafrine]

bonsoir à tous et à toutes!

après des recherches, je nai pas trouvé de macros qui puissent modifier des noms propres. Exemple : pape hervé en 'PAPE Hervé' et cela automatiquement (sans bouton de commande)
merci de vos remarques

 

[dg62]

Bonsoir

Sub nompropre()
Dim pos As Integer
Dim nom, prenom As String

For Each cel In Selection
    pos = InStr(1, cel, ' ', 1)

    nom = Left$(cel, pos)
    prenomMaj = Right$(cel, Len(cel) - pos)
    prenomMin = Right$(cel, Len(cel) - pos - 1)
    
    
    cel.Value = UCase(nom) & ' ' & UCase(Left$(prenomMaj, 1)) & prenomMin
    
Next cel

End Sub

Comment ça marche, il faut copier la macro dans un module
pour la faire fonctionner, selectionner les données et lancer la macro.

Message édité par: dg62, à: 02/04/2005 23:09

 

[Philippe]

Salut,
scrogneugneu, dg62 m'a encore pris de vitesse

Private Sub Worksheet_Change(ByVal Target As Range)
nom = Trim(Range('B3').Value)
L = Len(nom)
For x = 1 To L
If Mid(nom, x, 1) = ' ' Then
pos = x - 1
GoTo suite
End If
Next
suite:
prem = UCase(Left(nom, pos))
prenom = LCase(Right(nom, (L - pos)))
modif = prem & ' ' & prenom
Application.EnableEvents = False
Range('C3').Value = modif
Application.EnableEvents = True
End Sub

tapes ton nom en B3 et in sera tout beau en C3 😉

A+
Philippe

 

[Cafrine]

bonsoir à tous

Merci à DG62 et à Philippe de leur réponse...
si je peux me permettre, la réponse de philippe me serait plus utile
dans la mesure où :
1) c'est automatique
2) La cellule de départ est la même à l'arrivée : B3 >> B3

mais comment l'adapter pour une plage de celulles ?
Encore merci à vous
cafrine

 

[Edouard]

Bonsoir Cafrine
Regarde l'exemple ci joint il devrait te convenir
😉 [file name=NOM_Prénom_nom_20050403230702.zip size=6611]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/NOM_Prénom_nom_20050403230702.zip[/file]

 

[Cafrine]

désolée edouard
mais ton fichier est inaccessible, il doit faire - de 50 ko je crois
merci de réessayer
cafrine

 

[Hervé]

Bonsoir le fil

Cafrine, pour information, je veux pas être pape.

🙂

Bye

 

[Cafrine]

hervé je te comprends,mais pour ma part je n'ai rien compris, désolée
lol
le fichier fait - de 50 ko d'accord,! mais je n'arrive pas à l'ouvrir.....
cafrine

 

[Hervé]

Re

Relis ta première intervention.

Cafrine écrit:

bonsoir à tous et à toutes!

après des recherches, je nai pas trouvé de macros qui puissent modifier des noms propres. Exemple : pape hervé en 'PAPE Hervé' et cela automatiquement (sans bouton de commande)
merci de vos remarques

pour la pièce jointe, il ne faut pas d'accent dans le nom.

A plus

 

[dg62]

Bonjour Cafrine


Une petite précision sur ma procédure.

Son avantage est quelle fonctionne n'importe ou sur une feuille.
elle s'applique sur une cellule comme sur une plage contigue ou non.
Il suffit de sélectionner les données.

le retour se fait dans la même cellule.

 

[Edouard]

Bizzare . Esaie à nouveau [file name=NOM_Prénom_nom_20050404081340.zip size=6945]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/NOM_Prénom_nom_20050404081340.zip[/file]

 

[dg62]

Bonjour Edouard, le Forum



pas d'accent dans le nom du fichier !

 

[Cafrine]

bnsoir tout le monde

Dg62 serait-il possible que ta macro soit automatique ? et si je tape les prénoms en majuscule au depart : ne peuvent-il passer en minuscules...
Ignorante et exigeante je sais ...lol
Merci à vous
cafrine

 

[Philippe]

Bonsoir à tous,

alors voilà: c'est automatique dans la plage définie, ça met les noms en majuscule et les prénoms en minuscule et en prime,ça adapte la taille du texte à la longueur du nom pour qu'il tienne dans la cellule
Ca fait pas le café... 🙂

Private Sub Worksheet_Change(ByVal Target As Range)
Range('A1:J30').Select
For Each vcel In Selection
nom = Trim(vcel.Value)
pos = InStr(1, nom, ' ') - 1
L = Len(nom)
If nom = '' Or pos < 1 Then GoTo suite
prem = UCase(Left(nom, pos))
prenom = LCase(Right(nom, (L - pos)))
modif = prem & ' ' & prenom
Application.EnableEvents = False
vcel.Value = modif
vcel.ShrinkToFit = True
modif = ''
Application.EnableEvents = True
suite:
Next
End Sub


Grosse bise à tous et bonne nuit

A+
Philippe

 

[dg62]

Bonjour Cafrine, Philippe, le Forum
procédure automatique de A3 à A20
Facile à modifier dans le code.
Avec l'aimable participation de Pascal 76 et Hervé

Private Sub Worksheet_Change(ByVal Target As Range)
' Nom en majuscule et première lettre du prénom en maj le reste en min
Dim pos As Integer
Dim nom, prenom As String
    
If Not Intersect(Range('A3:A20'), Target) Is Nothing Then

    cel = Target.Value
    If cel > '' Then
        pos = InStr(1, cel, ' ', 1)
        nom = Left$(cel, pos)
        prenomMaj = Right$(cel, Len(cel) - pos)
        prenomMin = Right$(cel, Len(cel) - pos - 1)
        cel = UCase(nom) & UCase(Left$(prenomMaj, 1)) & prenomMin
        Application.EnableEvents = False
        Target = cel
        Application.EnableEvents = True
        
    End If
End If
       
End Sub

Message édité par: dg62, à: 05/04/2005 11:22