Discussion :

[a.dequidt]

Hello,


Bon, que je vous explique
j'ai dans mon fichier excel un tableau, quand je rentre une reference et que je lance ma macro que recherche je récupere la désignation de l'article. Celle ci est alors copiée puis collée a coté de ma référence.
Voici mon probleme:
La désignation peut tenir sur plusieurs lignes, et j'aimerai que la hauteur de la cellule s'adapte automatiquement a la hauteur du texte


Merki


Aurore

[Invité]

Bonjour,

Code :

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

Range("B" & n).Rows.AutoFit

"n" est ici une variable que vous pouvez initialiser pour faire une boucle sur plusieurs lignes.

Les cellules ne doivent pas être fusionnées sinon ça ne fonctionne pas.

[kdestine]

Coucou,

Essaie

Code :

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

xColumns(numéro de colonne).AutoFit

Dans l'espoir que çà t'aide...

[a.dequidt]

Kdestine >> C'est une ligne et pas une colonne que je cherche a redimensionner

Et malheureusement j'ai des cellules fusionnées dans ma ligne

[Guidhy]

On a eut un problème du même genre ici :

http://www.developpez.net/forums/sho...d.php?t=392134

Y'a un bout de code qui marche. Peut être t'aidera-t-il ?

Bonne journée.

[Invité]

Bonjour,

Dans le cas où aucune solution autre ne fonctionnerait, je propose celle-ci, sachant que c'est un peu ce que l'on peu appeler du "bricolage" :

Dans une feuille vide, on défini la largeur de la colonne "A" à la même taille que l'ensemble des colonnes fusionnées de l'autre feuille et le même format de caractères.

On affecte le texte, puis :

Code :

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

1
2
Range("A1").Rows.AutoFit
h = Rows(1).RowHeight

la variable "h" contient la heuteur de la ligne après ajustement. Il reste à affecter cette hauteur à la ligne concernée.

[a.dequidt]

ne faut il pas coller le text en question dans la cellule A1 pour avoir la bonne hauteur?