Aligner le texte a gauche

[gigi71850]

Bonjour, je cherche a aligner le texte a gauche dans mes cellule (a9-J17)) par une macro
Merci

 

[jeanpierre]

Re : Aligner le texte a gauche

Bonsoir gigi71850,

L'enregistreur de macro doit pouvoir te satisfaire.

Outils/Macro/Nouvelle macro.

Tu selectionnes ta plage, et un clic sur le bouton "Aligné à gauche" de la barre d'outils Mise en forme.Tu arrêtes l'enregstrement et tu vois ton code par Alt F11 (Affichage Explorateur de projet au besoin pour te rendre dans le module nouvellement crée dans ton projet.

Bonne soirée.

Jean-Pierre

 

[Excel-lent]

Re : Aligner le texte a gauche

Bonsoir Gigi71850,

Il s'agit d'un cas de figure simple : pas de boucle, pas de fonction particulière, ...

Voici une méthode simple que tu peux utiliser pour obtenir ta réponse.

Cliquer sur : "outils" / "macro" / "nouvelle macro..."
Dans la zone :
-> "Nom de la macro" : ben... il faut mettre le nom que tu veux donner à la macro 🙂 Pour information, il ne faut pas d'espace.
-> Touche de raccourci : pas nécessaire au début
-> enregistrer la macro dans : laisser la valeur par défaut "Ce classeur"
-> description : expliquer ce que ferra ta macro -> information pas obligatoire.
Puis cliquer sur "Ok"

Et maintenant tu fais les opérations que tu veux (l'enregistreur de macro va traduire automatiquement tout ce que tu ferra en VBA).

Une fois fini, cliquer sur le bouton carré "STOP" (comme sur les magnétoscopes).

Tu obtiens la macro suivante :

Sub MacroDegigi71850()

[COLOR="Green"]' MacroDegigi71850
' Macro enregistrée le 16/02/2010 par Excel-lent[/COLOR]

    Range("A9:J17").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Et voilà! Ta macro est fini, tu as ta réponse 😉

Après évidement, lorsque tu auras l'habitude tu enlèveras toutes les choses inutiles, simplifiera le reste et tu auras ta macro :

Sub MacroDegigi71850()

[COLOR="Green"]' MacroDegigi71850
' Macro enregistrée le 16/02/2010 par Excel-lent[/COLOR]

    With [A1:D8]
        .HorizontalAlignment = xlLeft
    End With

End Sub

Voilà, tu as maintenant deux macros qui fonctionnent et qui font exactement ce que tu souhaites.

Et pour le plaisir, encore plus court :

Sub MacroDegigi71850()

[COLOR="Green"]' MacroDegigi71850
' Macro enregistrée le 16/02/2010 par Excel-lent[/COLOR]

[A1:D8].HorizontalAlignment = xlLeft

End Sub

Bonne fin de soirée

Edition : Bonsoir Jean-Pierre

 

[gigi71850]

Re : Aligner le texte a gauche

MERCI !!! explication parfaite

ENCORE MERCI