XL 2013 Mise en forme automatique

Valentin.A

XLDnaute Nouveau
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 !
 
Dernière édition:

Jacky67

XLDnaute Barbatruc
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
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
 

Valentin.A

XLDnaute Nouveau
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

Bonjour Jacky,

C'est parfait ! Merci beaucoup pour votre aide !

Excellente journée,

Valentin
 

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof