problème de codage

[polako50]

bonjour,

Je débute tout juste VBA et j'essaye de créer une liste sans doublon (provenant de la feuille "Data") et de la coller dans une autre feuille (la feuille "Critères").

Je peux voir que mon code fonctionne parfaitement, il y a un juste un bug à la fin surlignant la dernière ligne de code en jaune.

J'ai parcouru divers forum mais je n'arrive pas à solutionner ce problème.

Voici mon code:

Sub liste_sans_doublon()
' liste_sans_doublon Macro
'' Worksheets("Data").Activate
Range("F2:F2600").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"DC2"), Unique:=True
Range("DC2😀C200").Cut
Worksheets("Critères").Activate
Sheets("Critères").Range("B2:B200").Select
Selection.Paste
End Sub

Merci de m'aider ou de m'indiquer un lien qui pourrait le faire.

 

[Pierrot93]

Re : problème de codage

Bonjour,

essaye peut être ainsi si j'ai bien compris:

Range("C2:C200").Cut Worksheets("Critères").Range("B2:B200")

utilise la balise code (icone # quand tu crées le message) pour indiquer des codes vba, ils sont plus clairs...

bon après midi
@+

 

[polako50]

Re : problème de codage

Je me suis mal exprimé.

Mon code marche bien, enfin je le vois s'effectuer sur mon classeur. le seul problème est la dernière ligne de bon code qui indique un bug.

​

code:

Sub liste_sans_doublon()
' liste_sans_doublon Macro

    Worksheets("Data").Activate
    Range("F2:F2600").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "DC2"), Unique:=True
    Range("DC2:DC200").Cut
    Worksheets("Critères").Activate
    Sheets("Critères").Range("B2:B200").Select
    Selection.Paste
    
End Sub

Le problème se situe à ce niveau là:

Selection.Paste

Je ne comprends pas pourquoi...

 

[Pierrot93]

Re : problème de codage

Re,

"paste" ne s'applique pas à un objet "range" mais à une feuille de calcul(entre autre)... As tu essayé le code que je t'ai donné ?

@+

 

[Pierrot93]

Re : problème de codage

Re,

A noter tout de même, tu peux également le modifier ainsi :

Sheets("Critères").Paste Destination:=Range("B2:B200")