Macro copy/past sans doublons

solid_sneak06 · 20 Juin 2008

Bonjour tout le monde,
problème simple! je veux copier une colonne d'une feuille à une autre sans les doublons; voici mon code:

Code:

Private Sub CommandButton1_Click()
Sheets("DATA").Select
Range("A1").Select
Selection.Copy
Sheets("Dépenses relatives au trimestre").Select
Range("A4").Select
Selection.Insert Shift:=xlDown
Sheets("DATA").Select
End Sub

Ca marche pas!Why? il n'aime pas cette ligne " Range("A4").Select ".

Helpe please!

tototiti2008 · 20 Juin 2008

Re : Macro copy/past sans doublons

Bonjour Solid_sneak,

Euh... il me semble que tu ne colles rien, là ?
Un conseil, pour coller des valeurs sans doublons, utilises le filtre élaboré, enregistre la macro et adapte le code généré ensuite.

A part ça, ton code tourne chez moi sans planter...

solid_sneak06 · 20 Juin 2008

Re : Macro copy/past sans doublons

Merci pour ta réponse.
et ben chez moi il plante!! et je crois que " Selection.Insert Shift:=xlDown " permet d'inserer,non?

tototiti2008 · 20 Juin 2008

Re : Macro copy/past sans doublons

en l'occurence, tu insères une cellule en décalant les existantes de la colonne vers le bas...
Quelle version d'excel as-tu ?

solid_sneak06 · 20 Juin 2008

Re : Macro copy/past sans doublons

office 2002!

tototiti2008 · 20 Juin 2008

Re : Macro copy/past sans doublons

ça m'étonnerais qu'il y ait beaucoup de différence avec le 2003 pour ça...
quelle erreur indique-t-il ?
Je crois que le plus simple serait de poster un bout de fichier....

solid_sneak06 · 20 Juin 2008

Re : Macro copy/past sans doublons

Le message d'erreur:

La mèthode Select de la classe Range a échoué.

Et il mets en h=jaune cette ligne : Range("A1").Select

solid_sneak06 · 20 Juin 2008

Re : Macro copy/past sans doublons

Aidez moi! comment faire des copie/coller sans doublon???

tototiti2008 · 20 Juin 2008

Re : Macro copy/past sans doublons

Envoie nous un bout de fichier avec des données non confidentielles.

Macro copy/past sans doublons

solid_sneak06

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

solid_sneak06

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

solid_sneak06

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

solid_sneak06

XLDnaute Nouveau

solid_sneak06

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

Discussions similaires