XL 2013 Mise en forme automatique

[Valentin.A]

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 !

 

[Jacky67]

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 !

Re.
Essaye ceci

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

 

[Valentin.A]

Re.
Essaye ceci

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

Bonjour Jacky,

C'est parfait ! Merci beaucoup pour votre aide !

Excellente journée,

Valentin