Discussion :

[pastis.vi]

Bonjour à tous !

Ayant appris beaucoup sur la manière de coder là dernière fois que j'ai posté sur le forum j'ai décidé de virer tout les "Select" et "Active.." de mes codes.

Cependant, un soucis persiste lorsque j'essaye de faire un sheets().range().copy ou un sheets().range().removeduplicates
Je suis obligé de faire un Sheets().Select avant le .Range()

Je me suis dit que j'allais essayer avec un Worksheet comme ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Worksheets(ComboBox3.Value & " - " & ComboBox1.Value).Range(Cells(7, 2), Cells(1000, 2).End(xlUp)).Copy
 
Worksheets("Work for delta").Range(Range("A10"), Range("A10").End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlNo

Rien y fait, j'ai beau essayer toutes les synthaxes que je connaisse je n'arrive pas à éviter l'erreur 1004.

Pourriez-vous me dire comment m'y prendre pour coder tout ça, merci bcp !

EDIT: j'observe le même soucis lorsque j'utilise un FormulaR1C1

[Daniel.C]

Bonjour,

En fait, pour la première ligne, "Cells(7, 2)" n'est pas qualifié, donc il s'agit de la cellule de la feuille active. La syntaxe est donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Worksheets(ComboBox3.Value & " - " & ComboBox1.Value)
    .Range(.Cells(7, 2), .Cells(1000, 2).End(xlUp)).Copy
End With

Même chose pour la ligne suivante.

[pastis.vi]

Ca marche nickel en fait ! merci bien !