Macro VBA pour définir rapidement des sauts de lignes

Si vous souhaitez imprimer autant de colonnes que possible sur une seule feuille de calcul, vous pouvez ajouter un saut de ligne à des cellules individuelles ou à plusieurs cellules. Si vous résolvez cette tâche manuellement, vous devrez passer par le menu FORMAT et la commande CELLULES. Passez ensuite à l’onglet ALIGNMENT et cochez la case LINE BREAK.

Cette approche est assez fastidieuse. C’est aussi plus rapide. Définissez une combinaison de touches pour spécifier un saut de ligne ou une combinaison de touches pour annuler un saut de ligne.

Pour ce faire, procédez comme suite:

  1. 1. Basculez vers l’environnement de développement avec 
  2. 2. Dans l’explorateur de projet, double-cliquez sur l’entrée CE DOSSIER DE TRAVAIL.
  3. 3. Insérez l’événement Workbook_Open.
Private Sub Workbook_Open ()

   'CTRL + ü sets the line break

   Application.OnKey "^ ü", "Set line break"

   'CTRL + Shift + ü cancels the line break

   Application.OnKey "+ ^ ü", "Reset line break"

End Sub

Écrivez la macro du Listing 6.63 sur une feuille de module.

Sub definir_un_saut_de_ligne ()

With Selection

        .HorizontalAlignment = xlGeneral

        .VerticalAlignment = xlBottom

        .WrapText = True

        .Orientation = 0

        .ShrinkToFit = False

        .MergeCells = False

    End With

End Sub

 

Vous pouvez définir certaines propriétés de vos textes dans le marquage. Avec la propriété HorizontalAlignment, vous déterminez l’alignement horizontal de votre texte saisi.

Graphique :Options pour l’alignement horizontal des textes

 

Les constantes suivantes du tableau  peuvent être spécifiées pour la propriété HorizontalAlignment.

La propriété suivante est VerticalAlignment. Avec cette propriété sont

les constantes du tableau  3sont possibles.

Tableau 3: Les constantes possibles de la propriété VerticalAlignment

 

Avec la propriété WrapText, vous spécifiez si le texte entré doit être enveloppé dans la cellule. Si tel est le cas, définissez la propriété sur True. Vous pouvez utiliser la propriété Orientation pour faire pivoter le texte dans les cellules. Les valeurs possibles vont de -90 à 90 degrés. Définissez la propriété ShrinkToFit sur la valeur True si la taille du texte doit s’ajuster automatiquement à la largeur de colonne disponible. La propriété MergeCells renvoie la valeur True si la zone contient des cellules fusionnées.

La macro pour couper les sauts de ligne dans un marqueur est:

Sub reinitialiser_le_saut_de_ligne ()

    With.Selection

        .HorizontalAlignment = xlGeneral

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .ShrinkToFit = False

        .MergeCells = False

    End With

End Sub

 

Vous savez maintenant créer des sauts de ligne. Cela rendra votre prochaine tâche plus difficile. Une ligne d’en-tête doit être créée comme le montre la figure 6.38.

La macro pour cette tâche est:

Sub creer_une_ligne_de_titre_avec_saut_de_ligne ()

Dim i As Integer

Sheets("Feuil10").Activate

Range("A1").Select

 For i = 1 To 10

   With ActiveCell

   .HorizontalAlignment = xlCenter

   .WrapText = True

   .Value = "Produkt" & Chr(10) & i

   .Offset(0, 1).Select

 End With

 Next i

End Sub

Une ligne d'en-

 

tête est ajoutée au tableau Feuil10. La première entrée est effectuée dans la cellule A1. Ensuite, à l’aide d’une boucle For Next, dirigez-vous vers la droite jusqu’à la cellule J1. La première entrée est le texte PRODUIT. Utilisez ensuite la fonction Chr (10) pour créer un saut de ligne. Après le saut de ligne, le contenu actuel de la variable i est écrit.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x