Copier coller plage

[chanu]

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

                        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.

 

[julberto]

Re : Copier coller plage

Bonjour Chanu,

Ceci peut sans doute convenir :
Columns(TaPlageDeColonnes).EntireColumn.AutoFit

Pour un ajustement automatique de la largeur des colonnes de TaPlageDeColonnes.

A +

 

[chanu]

Re : Copier coller plage

Nikel ça marche du feu de dieux Merki 😉