Majuscule, minuscules

Bonjour le forum,

je cherche un macro qui me mettrais directement en majuscules les noms propres et prénoms sur 2 colonnes. j'en ai une tonne à rentrer et c'est plutôt galère.

ex : DUPONT(en B2) et Paul(en C2)

DURAND et Eric(en C2) etc...

Par avance, merci pour vos idées.

Bien cordialement.

ericp

Bonjour,

voici un essai en utilisant VBA, j'ai mis le code dans feuil1:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 Then
    If Target.Column >= 2 And Target.Column <= 3 And Target.Row >= 2 Then
        Target = UCase(Left(Target, 1)) & Mid(Target, 2)
    End If
End If
Application.EnableEvents = True
End Sub

Merci de vous intéresser à mon post, pour les prénoms c'est parfait mais pour les noms ce n'est pas ça, il faudrait que toutes les lettres soient en majuscules.

Bien cordialement

ericp

Bonjour,

Également possible avec les formules MAJUSCULE() et NOMPROPRE().

Cdlt,

oui mais avec beaucoup plus de manip, en plus on m'envoie les noms et prénom n'importe comment, c'est vraiment une galère.

Voilà un nouvel essai:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 Then
    If Target.Row >= 2 Then
        If Target.Column = 2 Then
            Target = UCase(Target)
        ElseIf Target.Column = 3 Then
            Target = UCase(Left(Target, 1)) & Mid(Target, 2)
        End If
    End If
End If
Application.EnableEvents = True
End Sub

Bonjour Ausecour,

Est-ce que tu pourrais m'indiquer ce que renvoie Target.Count ? J'ai du mal avec cette propriété ... C'est à dire qu'il ne faut qu'une seule cellule sélectionnée ?

Ne vaut il mieux pas, dans cet exemple, partir sur une boucle sur l'ensemble des lignes du classeur s'il a beaucoup de ligne ?

Merci beaucoup pour ton retour !

Cdlt,

Parfait de chez parfait,

Mille merci à vous de m'avoir aidé à trouver la solution quelle gain de temps je vais avoir.

Bien cordialement.

ericp

Ergotamine a écrit :

Bonjour Ausecour,

Est-ce que tu pourrais m'indiquer ce que renvoie Target.Count ? J'ai du mal avec cette propriété ... C'est à dire qu'il ne faut qu'une seule cellule sélectionnée ?

Ne vaut il mieux pas, dans cet exemple, partir sur une boucle sur l'ensemble des lignes du classeur s'il a beaucoup de ligne ?

Merci beaucoup pour ton retour !

Cdlt,

Bonjour!

J'ai toujours eu du mal avec le traitement de plusieurs cellules modifiées, déjà il peut y avoir plusieurs zones, puis plusieurs cellules dans chaque zone, pour simplifier tout je pars du principe qu'à partir du moment où il y a plus d'une cellule modifiée, la macro ne fait rien.

Sinon je crois qu'il faudrait faire quelque chose du genre:

Dim zone As Range, cel As Range
For Each zone In Target.Areas
    For Each cel In zone.Cells
       'reste du code
    Next cel
Next zone