XL 2013 Mise en forme automatique

Valentin.A à dit:

Bonjour !

Il y a peu de temps, j'ai posté un message pour supprimer des doublons automatiquement. J'aimerais dorénavant savoir comment je peux automatiser la mise en forme. En fait j'ai plusieurs colonnes (Prénom, Nom, Numéros de téléphone).

J'aimerais avec l'aide d'une macro, que la colonne A (Prénom) commence chaque nouveau mot par une majuscule (le reste en minuscule).
Pour la colonne B (NOM), j'aimerais que toutes les lettres soient en majuscules.
Puis, pour la colonne F (Téléphone) que les cellules soient automatiquement au format "Numéro de téléphone" (dans la liste "Spécial" des formats disponibles).

Si possible également, que la feuille soit en Arial Unicode MS de taille 10 (car quand j'insère les informations, ils sont dans une autre police).

Voici un exemple, si j'ai un une ligne ressemblant à celle-ci
nom PRENOM 0522222222
J'aimerais que d'un clique, cette ligne ressemble ainsi :
NOM Prénom 05 22 22 22 22

Merci d'avance pour votre aide !

Cliquez pour agrandir...

Sub formatJJ()
Dim i As Long
With Sheets("feuil1")
For i = 2 To .Cells.Find("*", , , , xlByRows, xlPrevious).Row
.Cells(i, 1) = Application.Proper(.Cells(i, 1))
.Cells(i, 2) = UCase(.Cells(i, 2))
.Cells(i, 6).NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
Next
With .Cells.Font
.Name = "Arial Unicode MS"
.Size = 10
End With
End With
End Sub

Jacky67 à dit:

Re.
Essaye ceci

Code:

Sub formatJJ()
Dim i As Long
With Sheets("feuil1")
For i = 2 To .Cells.Find("*", , , , xlByRows, xlPrevious).Row
.Cells(i, 1) = Application.Proper(.Cells(i, 1))
.Cells(i, 2) = UCase(.Cells(i, 2))
.Cells(i, 6).NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##"
Next
With .Cells.Font
.Name = "Arial Unicode MS"
.Size = 10
End With
End With
End Sub

Cliquez pour agrandir...