Discussion :

[Ricardo01]

Bonjour le forum, j'ai un petit soucis quand je copie les colonnes d'une feuil1 vers une feuil2, elles ne gardent pas leur largeur de la feuil1

Code :

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

1
2
3
4
5
6
7
8
Dim J As Integer, K As Integer
K = 5
For J = 5 To 255 Step 6
  If Cells(5, J) = CInt(ListBox2.List(I)) Then
    Range(Cells(5, J), Cells(500, J + 5)).Copy Sheets("Consultation").Cells(K, J)
    K = K + 5
  End If
Next J

Il y a t-il une commande prévue à cet effet.

[Minick]

Salut,

Essaies comme ca:

Code :

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

1
2
3
Range(Cells(5, J), Cells(500, J + 5)).Copy
Sheets("Consultation").Cells(K, J).Paste
Sheets("Consultation").Cells(K, J).PasteSpecial xlPasteColumnWidths

++
Minick

[aalex_38]

bonjour,

Oui il y a une commande pour cela : collage special / Largeur de colonne

edit: bonjour Minick, et je rajouterai ensuite :

Code :

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

Application.cutcopymode = false

[Ricardo01]

Merci à vous deux pour vos réponses mais cela ne fonctionne pas

[Ricardo01]

Re, j'ai trouvé quelque chose me convient

Code :

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

    Columns("E:IV").EntireColumn.AutoFit

Merci quand même à vous deux.

[aalex_38]

bonjour,

Essai :

Code :

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

1
2
3
4
Range(Cells(5, J), Cells(500, J + 5)).Copy destination:= Sheets"Consultation").Cells(K, J)
application.cutcopymode = false
Range(Cells(5, J), Cells(500, J + 5)).Copy 
Sheets("Consultation").Cells(K, J).PasteSpecial xlPasteColumnWidths

[Ricardo01]

Re, maintenant ça marche aussi avec le tien merci