Discussion :

[wade-doak]

Bonjour,

je cherche a trouver une commande qui me permettrai de redimensionner les cellules d'une feuille excel.
Je genere a partir de plusieurs feuilles qui forment ma base de donnee plusieurs autres feuilles qui sont donc cree lorsque que j'appuie sur un bouton.
Mon seul probleme, c'est que lors de la creation de ces feuilles les cellules sont ttes identiques et donc le texte qui se trouve dedans n'est pas lisible. il serait tres simple de mettre en page soit meme cependant cela ferai perdre du temps.

J'ai cherche dans plusieurs cours documents ... j'ai trouve les outils offset et resize mais je n'arrive pas a m'en servir.

Est il possible de redimensionner ces cellules? si oui avec quel outil?

[Tdeny]

Bonjour,

Tu peux toujours essayer de faire une sélection de ta page d'origine en cliquant en haut à gauche, puis demander un Copier, et enfin sur tes feuilles faire un collage spécial Format.

Mais le résultat ne sera probablement pas tout à fait correct.

[ouisansdoute]

Bonjour,

je ne sais pas si c'est la bonne solution mais tu pourrais peut-être générer tes nouvelles feuilles en faisant un "Déplacer ou copier..."
Cela duplique ta feuille exactement à l'identique.
En macro ça fait :

Code :

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

1
2
3
4
Sub copier_feuille()
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy
End Sub

Ca équivaut à un clic droit sur l'onglet puis "Déplacer ou copier..." en cochant la case créer une copie et en choisissant soit un "nouveau classeur" soit un classeur existant.

[Invité]

Bonjour,

Vous pouvez aussi ajouter après le code qui copie la feuille :

Code :

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

1
2
3
4
5
6
7
'nombre de colonnes à traiter
nbc = 10
With Sheets("Feuil2")
    For i = 1 To nbc
    .Columns(i).EntireColumn.AutoFit
    Next i
End With

[wade-doak]

Merci c'est exactement ca ca marche du feu de dieu.

cordialement