255 caractères

lestan · 16 Juin 2008

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 · 16 Juin 2008

Re : 255 caractères

Bonjour,

un code de Denis Michon

Code:

 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

255 caractères

lestan

Guest

Cousinhub

XLDnaute Barbatruc

Discussions similaires

255 caractères

lestan

Guest

Cousinhub

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency