255 caractères

[lestan]

Bonsoir,
je voulais savoir comment copier un onglet avec des cellules de plus de 255 caractères vers un autre classeur. J'ai déjà des codes mais je n'arrive pas à séléctionner les classeurs.

Merci d'avance

 

[Cousinhub]

Re : 255 caractères

Bonjour,

un code de Denis Michon

 Sub Copier()

Dim Rg As Range, Tblo As Variant
'Copie les données
With Worksheets(1)
    Set Rg = .UsedRange
End With

Tblo = Rg

With Worksheets(2)
    .Range(Rg.Address) = Tblo
End With

'Copie les formats de cellules.
With Worksheets(1)
    Set Rg = .UsedRange
    Rg.Copy
End With

With Worksheets(2)
    .Range(Rg.Address).PasteSpecial xlPasteFormats
End With

Set Rg = Nothing

End Sub