XL pour MAC mise en forme

[M.D]

Bonsoir à tous, et bonnes fêtes de Pâques
Je fais appel à vos connaissances dans une matière que je connais trop peu.J’ai effectué de nombreuses recherches mais malheureusement sans trouver la bonne formule qui me ferai bien évidemment du temps. J’ai un tableau, ayant environ 400 lignes mis en pièce jointe. Mon questionnement est le suivant :

Est-il possible dans un tableau Excel créer une formule de telle façon qu’automatiquement ?

• En A2, Le mon soit tout en majuscule
• En b2, le nombre soit avec deux chiffres après de la virgule.
• En E2, Seule la première lettre soit en majuscule
• En F2, Seule la première lettre soit en majuscule et que le second mot soit tout en minuscule
• En fin en G2 la Seule la première lettre soit en majuscule et que le second mot soit tout en minuscule, tout ceci avec des entre guillemets.

Merci de votre aide.

 

[sylvanu]

Bonjour M.D.,
Un essai en PJ avec cette macro :

Sub MiseEnForme()
Application.ScreenUpdating = False
DL = Range("A65500").End(xlUp).Row                                                      ' Dernière ligne
For L = 2 To DL
    Cells(L, "A") = UCase(Cells(L, "A"))                                                ' Majuscules
    Cells(L, "E") = UCase(Left(Cells(L, "E"), 1)) & LCase(Mid(Cells(L, "E"), 2))        ' 1ère let Maj puis minuscules
    Cells(L, "F") = UCase(Left(Cells(L, "F"), 1)) & LCase(Mid(Cells(L, "F"), 2))
    Cells(L, "G") = Replace(Cells(L, "G"), "'", "")                                     ' On supprime les '
    Cells(L, "G") = Replace(Cells(L, "G"), """", "")                                    ' On supprime les "
    Cells(L, "G") = UCase(Left(Cells(L, "G"), 1)) & LCase(Mid(Cells(L, "G"), 2))        ' 1ère let Maj puis minuscules
    Cells(L, "G") = """" & Cells(L, "G") & """"                                         ' On encadre avec des "
Next L
Range("A2:H" & DL).Font.Size = 10                                                       ' Tout en police taille 10
Range("A2:H" & DL).Font.Italic = False                                                  ' Rien en italique
Range("A2:A" & DL).Font.Italic = True                                                   ' Excepté colonne A
Range("B2:C" & DL).NumberFormat = "#,##0.00 €"                                          ' Col B et C en monétaire
End Sub

A noter qu'un guillemet ce n'est pas '' mais ". C'est pour ça que j'ai néttoyé avant de mettre les guillemets.

 

[M.D]

Bonsoir à tous, et bonnes fêtes de Pâques
Je fais appel à vos connaissances dans une matière que je connais trop peu.J’ai effectué de nombreuses recherches mais malheureusement sans trouver la bonne formule qui me ferai bien évidemment du temps. J’ai un tableau, ayant environ 400 lignes mis en pièce jointe. Mon questionnement est le suivant :

Est-il possible dans un tableau Excel créer une formule de telle façon qu’automatiquement ?

• En A2, Le mon soit tout en majuscule
• En b2, le nombre soit avec deux chiffres après de la virgule.
• En E2, Seule la première lettre soit en majuscule
• En F2, Seule la première lettre soit en majuscule et que le second mot soit tout en minuscule
• En fin en G2 la Seule la première lettre soit en majuscule et que le second mot soit tout en minuscule, tout ceci avec des entre guillemets.

Merci de votre aide.

Re Bonjour à tous

Merci pour votre aide. M. sylvanu
ça me convient parfaitement
M.D