Modification macro copier coller

mromain

XLDnaute Barbatruc

• 16 Avril 2009

• #2

Re : Modification macro copier coller

bonjour Vario29,

à tester : remplacer

Code:

rd.Cells.Clear

par

Code:

FichD.Sheets("Chiffres").Cells.Clear

a+

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 16 Avril 2009

• #3

Re : Modification macro copier coller

Bonjour,

Tu as essayé
rd.Cells.ClearContents

Clear : Efface toutes les valeurs de propriété de l'objet Err.
ClearContents : Cette méthode efface les formules de la plage

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 16 Avril 2009

• #4

Re : Modification macro copier coller

Bonjour tous



rd.Clear devrait fonctionner non ?
( rd.ClearContents ou rd=vbNullString également )


rd correspondant à la cellule A1 de la feuille Chiffres du classeur actif.

 

Dernière édition: 16 Avril 2009

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 16 Avril 2009

• #5

Re : Modification macro copier coller

bonjour

supprimé

a+

 

Dernière édition: 16 Avril 2009

Vote positif 0 Vote négatif

V

Vario29

Guest

• 16 Avril 2009

• #6

Re : Modification macro copier coller

J'essaye et je vous tiens au courant,

Merci, c'est sympa

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 16 Avril 2009

• #7

Re : Modification macro copier coller

Re


Pour moi, tel quel rd est bien égale et seulement égale à la cellule A1 non ????

ou alors il faudrait par exemple:

Code:

Set rd=FichD.Sheets("Chiffres").Range("A1").CurrentRegion
ou
Set rd=FichD.Sheets("Chiffres").UsedRange
ou
Set rd=FichD.Sheets("Chiffres").Cells

 

Dernière édition: 16 Avril 2009

Vote positif 0 Vote négatif

V

Vario29

Guest

• 16 Avril 2009

• #8

Re : Modification macro copier coller

Je viens de tester cette fonction : FichD.Sheets("Chiffres").Cells.Clear

Le code fonctionne,

Merci

 

Vote positif 0 Vote négatif