Discussion :

[jacfld49]

Bonsoir le forum,

J'ai un code que je voudrais me servir pour toute les feuilles du classeur.

Code :

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

1
2
3
4
5
6
7
Sub Supprimer_Doublons()
 
    Range("A3:A65").Select
    Range("A3:A65").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
        "O3:O64"), Unique:=True
    Range("P19").Select
End Sub

je l'active à partir d'un bouton active x.

ma question est comment faire pour qu'une fois ce code activer, il ne fonctionne que pour la feuille active.
merci
jacky

[Gorfael]

Salut jacfld49 et le forum
J'ai un code que je voudrais me servir pour toute les feuilles du classeur.
Il suffit de le mettre dans un module général

Code :

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

1
2
3
4
Sub Supprimer_Doublons()
    Range("A3:A65").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("O3:O64"), Unique:=True
    Range("P19").Select
End Sub

Il ne fonctionne que pour la feuille active, quelqu'elle soit.
A+

[jacfld49]

re,Gorfael,

un module general c'est un module public, c'est bien cela.
merci
jacky

[Gorfael]

Salut jacfld49 et le forum
Les modules généraux sont ceux qui sont dans le dossier module de la fenêtre explorateur de projet.
A+

[jacfld49]

bonjour le forum, Gorfael,

merci , c'est a celui ci que je pensais .
merci
jacky*

[jacfld49]

Bonjour le forum,

juste pour dire que c'etait Ok et que je mette resolu .
merci
jacky