Discussion :

[marot_r]

Bonjour à toutes et tous et merci de votre temps et de votre aide.

J'ai un tableau Excel avec un bon paquet de colonnes où je mets des entêtes multilignes du genre :

Échéancier des Acomptes
Unité de réserve 0
1932-02-01 - 1932-02-29
UID

Les retours à la lignes sont forcés par mon code en insérant un chr(10) là où je veux une rupture (ex : ici après "Accomptes", "0" et les dates). Ce que j'aimerai faire c'est ajuster mes colonnes sur ces retours à la lignes.

Une idée que j'ai eu c'est de définir la largeur de toutes mes colonnes à 255 puis de demander l'ajustement.
Ça fonctionne pour mes colonnes qui ont des en-têtes mais les colonnes vides elles restent à 255 caractères.
Je peux bien sur faire du code qui va parcourir mes colonnes vides et les ramener à une taille plus pratique (ex : 15) meilleur façon de procéder.

Je me demandais si il n'y avait pas une meilleure façon de procéder.
Un genre de "ajuster la largeur sur les retours à ligne".

A+

[pijaku]

Salut marot_r,

Il s'avère que tu peux le faire sans boucle.

1- tu règles le columnWidth de ta plage à 255,
2- tu insères tes entêtes de colonne,
3- tu règles le columnWidth de ta plage à 15,
4- tu ajustes (avec AutoFit) les largeurs en 1 fois.

Exemple de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub essaicolonnes()
Dim txtCol As String, c As Integer
    txtCol = "Échéancier des Acomptes" & Chr(10) & _
                "Unité de réserve 0" & Chr(10) & _
                    "1932-02-01 - 1932-02-29" & Chr(10) & _
                        "UID"
 
    Range("A1:J1").ColumnWidth = 255
    For c = 1 To 10 Step 2
        Cells(1, c).Value = txtCol
    Next c
    Range("A1:J1").ColumnWidth = 15
    Range("A1:J1").Columns.AutoFit
End Sub

[mat955]

Bonjour,

Cette discussion m'intéresse car j'ai eu plus ou moins le même problème il y a quelques temps.

La première étapes qui consiste à mettre la largeur à 255 puis à ajuster me semble le plus optimisé (d'après mes précédentes recherches, mais je peux me tromper).
Pour la deuxième étape, on pourrait remplacer la boucle par une sélection de toutes les en-têtes vides, ce qui limite à une seule instruction.

Code :

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

Rows(1).SpecialCells(xlCellTypeBlanks).ColumnWidth = 5

Qu'en penses-tu ?

[pijaku]

Pour la deuxième étape, on pourrait remplacer la boucle par une sélection de toutes les en-têtes vides, ce qui limite à une seule instruction.
Qu'en penses-tu ?

En fait, à 2 instructions.
Il va te falloir gérer l'erreur lorsqu'aucune colonne ne sera vide...

Ma solution n'est pas si mal.
Est-elle valide sur toutes versions, je ne sais pas...

[marot_r]

Bonjour et merci de vos réponses.

J'avais oublié de préciser que je ne connais pas à priori le nombre de colonnes d'en-têtes.

Entre temps je suis parvenu à une solution en utilisant UsedRange.
Je prend toutes cellules de la colonne 1 aux nombre de colonnes qui lui appartiennent et je fais comme expliqué avant.

J'aime bien la solution avec la sélection des cellules vides selon leur type. Je vais la garder dans un coin de ma tête.

A+

[marot_r]

J'ai mis en place la solution de pijaku qui est vraiment simple même si pas intuitive du tout.

A+

[mat955]

En fait, à 2 instructions.
Il va te falloir gérer l'erreur lorsqu'aucune colonne ne sera vide...

Tout à fait, je suis allé un peu vite !

Ta solution est pas mal, elle fonctionne bien si on a la possibilité de mettre les en-tête après avoir dimensionner la largeur à 255.
Si les en-têtes sont déjà présentes en revanche, ça obligerait à les supprimer pour les remettre, non ?

[pijaku]

Si les en-têtes sont déjà présentes en revanche, ça obligerait à les supprimer pour les remettre, non ?

Oui.
Ce qui est extrêmement contraignant s'il s'agit d'un import...