Discussion :

[Charles1104]

Bonjour,

J'aimerais imprimer un tableau excel et j'ai une colonne ou le texte dépasse parfois de la cellule. Je précise que je ne désire pas changer la taille de la colonne.

Ce que je voudrais c'est pour que cellule dans la colonne où le texte est plu grand que la cellule, que :

- la hauteur de la cellule soit doublé
- la configuration "wrap text" soit appliqué pour que le texte se mette sur deux lignes

Le macro recorder m'aide pour la plupart de mon code à part pour le "si" du "quand le texte est plus grand que la cellule".

Merci d'avance pour l'aide,

Charles

[Charles1104]

J'ai essayé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
   Dim myRange As Range
    Dim cell As Excel.Range
    Set myRange = Range("F2").Offset(1, 0).Resize(ActiveCell.CurrentRegion.Offset.Rows.Count - 1, 0).Select
 
        For Each cell In myRange.Cells
            If Len(CStr(cell.Value)) > cell.ColumnWidth Then
                With myRange.Rows
                .WrapText = True
                .AutoFit
                End With
            End If
        Next cell

Je reçois l'erreur suivante : Application-defined or Object-Defined error....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set myRange= Range("F2").Offset(1, 0).Resize(ActiveCell.CurrentRegion.Offset.Rows.Count - 1, 0).Select

Cette ligne correspond à la sélection sur laquelle je veux appliquer ma règle. Le header de la colonne de la table où je veux appliquer la règle se trouve en F2. Je choisis ensuite toute la colonne sans le header avec la fonction resize.

Merci de m'indiquer mon erreur.

Charles