Discussion :

[Eric93]

Bonjour,

J'ai le code suivant me permettant de mettre en forme le libellé en entête de mes feuilles Excel sur plusieurs colonnes et d'aller à la ligne si il est long :

Code :

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

1
2
Worksheets(feuille).Range(Cells(1, 1), Cells(1, n_col)).HorizontalAlignment = xlCenterAcrossSelection
Worksheets(feuille).Rows(1).WrapText = True

Ce libellé est auparavant issu d'une variable et affecté à Cells(1,1)

Mon problème est que quand ce libellé est très long (j'ai compté environ 240 caractères), j'obtiens #################### dans ma cellule

Merci de votre aide

[RemiT]

si une valeur est trop longue ( ne rentre pas dans la largeur de la colonne ) Excel affiche des ###

- soit tu élargis ta colonne ( voir image jointe )
- soit tu sélectionnes ta cellule puis "Format"/"Cellule"/ onglet "Alignement" et tu coches "Renvoyer à la ligne automatiquement"

[ouskel'n'or]

Ou par macro

Code :

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

    Columns(NoColonne).AutoFit

[Eric93]

Mon libellé s'affiche sur plusieurs colonnes par l'instruction :

Code :

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

.HorizontalAlignment = xlCenterAcrossSelection

appliqué sur la ligne 1, colonnes de 1 à n

et quand il est plus long que mes n colonnes, il s'affiche avec des retours à la ligne par l'instruction :

Code :

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

.WrapText = True

appliqué sur la ligne 1 (ajuste la hauteur de la ligne)

Ca marche bien, mon seul problème provient d'un seul cas ou mon libellé comporte plus de 240 caractères

Réponse à Remit :

J'utilise effectivement l'option "Renvoyer à la ligne automatiquement" par l'instruction

Code :

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

.WrapText = True

Reponse à ouskel'n'or :

J'ai déja effectué un

Code :

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

.AutoFit

sur toute mes colonnes et de plus ma cellule s'affiche sur plusieurs colonnes par l'instruction

Code :

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

.HorizontalAlignment = xlCenterAcrossSelection

Apparamment 240 caractère est une limite, je sais pas trop

[ouskel'n'or]

Je crois avoir compris ton pb mais j'ai besoin de savoir... Donne-nous un exemple de la totalité de ce que tu colles dans l'une des cellule qui ne vont pas.
A+

[RemiT]

tu pourrais pas nous faire un petit imprime-écran et nous le poster...

[Eric93]

Oui, on fait comment pour poster l'écran ?

Effectivement ca serait plus parlant

[ouskel'n'or]

Ce n'est pas ce qui m'intéresse. Tu colles l'entête de colonne sous la forme d'une chaîne de caractères. C'est un exemple de ces chaînes qui m'intéresse.

[Eric93]

3 exemples :

1er Cas : le libellé est moins large que l'ensemble des colonnes et il s'affiche sans retour à la ligne, la hauteur de ligne est simple :

Libellé --> "Description : Nom du contact simplifié 1 invalide : prénom manquant"

2ème cas : le libellé est plus large que l'ensemble des colonnes et il s'affiche avec retour à la ligne, la heuteur de ligne est double ou triple suivant sa longueur

Libellé --> "Description : L'état de l'occurrence correspondant à l'adresse principale est dit "incomplet" : ETACL = A"

3ème cas (celui qui ne marche pas) : le libellé est très long (plus de 240 car), il affiche des ###### :

Libellé --> "Description : La personne a des matricules Evolution différents selon l'occurrence Contrat ou Projet (POLIBASE ou POLIPROJ) que l'on regarde. (On ne lit les matricules que sur les contrats en cours s'il y en a, s'il n'y en a pas, on ne lit les matricules que sur les contrats résiliés ou expirés depuis moins de 2 ans)"

[ouskel'n'or]

Je crois me souvenir que la largeur de colonne auto ne fonctionne pas dans ce cas là. Je t'offre cette solution à défaut d'une simple ligne de commande que je ne connaîtrais pas.

Je reprends ton libellé. A la place, tu mets ta boucle pour récupérer chacun d'eux

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
 
Sub PourChaqueLibelle()
Dim Libelle As String, Ligne$
Application.ScreenUpdating = False
Libelle = "Description : La personne a des matricules Evolution différents selon l'occurrence Contrat ou Projet (POLIBASE ou POLIPROJ) que l'on regarde. (On ne lit les matricules que sur les contrats en cours s'il y en a, s'il n'y en a pas, on ne lit les matricules que sur les contrats résiliés ou expirés depuis moins de 2 ans)"
'Ce que tu peux faire est régler la longueur des lignes de manière empirique
Columns(5).ColumnWidth = 41
RéglerLongueurLibelle (Libelle)
Application.ScreenUpdating = True
End Sub
 
Sub RéglerLongueurLibelle(Libelle)
Dim Tableau(), Ligne$, OldChaine$, i As Integer, j As Integer
Dim NewChaine$
'On règle la longueur des chaînes au dernier espace rencontré avant le 45ème caractère
'Dans cet exemple, 45 correspond à la longueur max d'une ligne de texte
'pour une largeur de colonne de 41
 
'Recherche du dernier espace
'Création du tableau
OldChaine = Libelle
Do While Len(OldChaine) > 45
Ligne = Left(OldChaine, 45) '45 correspond à la longueur max désirée
    For i = Len(Ligne) To 1 Step -1
         If Mid(Ligne, i, 1) = Chr(32) Then Exit For
    Next
    j = j + 1
    ReDim Preserve Tableau(j)
    Tableau(j) = Left(OldChaine, i)
    OldChaine = Right(OldChaine, Len(OldChaine) - i)
Loop
j = j + 1
ReDim Preserve Tableau(j)
Tableau(j) = OldChaine
For i = 1 To UBound(Tableau)
    NewChaine = NewChaine & Tableau(i) & vbLf
Next
'Suppression du dernier saut de ligne
NewChaine = Left(NewChaine, Len(NewChaine) - 1)
Cells(1, 5) = NewChaine
MsgBox NewChaine
End Sub

Il te reste à adapter

[random]

Largeur des colonnes 255 caractères
Longueur du contenu des cellules (texte) 32 767 caractères. Affichage de 1 024 uniquement dans une cellule et 32 767 dans la barre de formule.