Comment inverser colonne par Police d'écriture ?

[kwatin]

Bonjour,

Suite à une extraction de nos contacts, il se trouve qu'outlook a inversé certains prénoms et noms (en majuscules). Je souhaiterai mettre les Majuscules d'un côté et les minuscules de l'autre...

Merci d'avance pour votre aide !

 

[Victor21]

Re : Comment inverser colonne par Police d'écriture ?

Bonjour, kwatin, et bienvenue sur XLD 🙂

Un fichier Excel en illustration eût été le bienvenu !
Test en pj, de ce que j'ai compris.

 

[kwatin]

Re : Comment inverser colonne par Police d'écriture ?

Merci pour votre aide !

Cela m'a épargné pas mal de temps de travail 😉

A bientôt

 

[DoubleZero]

Re : Comment inverser colonne par Police d'écriture ?

Bonjour et bienvenue, kwatin, bonjour, Victor21 🙂, le Forum,

Une autre suggestion, par macro :

Option Explicit
Sub MAJici_Minlà()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Range("a" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Range("a" & i) <> UCase(Range("a" & i)) Then  Range("a" & i).Cut Destination:=Range("a" & i).Offset(, 2)
    Next
    Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂