Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

problème de codage

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion polako50
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

polako50

Guest
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.
 
Trier par date Trier par votes
Re : problème de codage

Bonjour,

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

Code: 
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
@+
 
Vote positif 0 Vote négatif
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:

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à:

Code: 
Selection.Paste

Je ne comprends pas pourquoi...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2016 intégrer une macro sur les nouvelles feuilles crées
Réponses
6
Affichages
224
pascal21
M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
431
MOLY_
M
D
  • Résolu(e)
Microsoft 365 Filtre avancé VBA multi-critères
Réponses
14
Affichages
894
DELHOMME
D
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
446
flc13090
8
  • Question Question
XL 2021 Nom de feuille vba
Réponses
5
Affichages
609
89ric
8
  • Résolu(e)
XL 2010 Mauvaise utilisation de la fonction InStr
Réponses
11
Affichages
971
jurassic pork
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
779
loreak
L
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
822
Cheyenne_2021
C
C
  • Question Question
XL 2019 1004 sur un ActiveSheet.Paste
Réponses
5
Affichages
661
Cheyenne_2021
C
K
  • Résolu(e)
XL 2019 ListObjects -- Erreur 1004
Réponses
3
Affichages
929
patricktoulon
  • Résolu(e)
XL 2016 Problèmes de Range, tentative de boucle entre 2 fichiers
Réponses
4
Affichages
873
R3n0W
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
L
  • Résolu(e)
XL 2019 VBA erreur de débutant dans une boucle snifff
Réponses
2
Affichages
638
Lionel69890
L
  • Question Question
XL 2016 Impossible de protéger cellules Verrouillées
2
Réponses
18
Affichages
2 K
TooFatBoy
K
  • Question Question
Microsoft 365 Activation d'onglet en rapport avec l'encodage dans une ligne
Réponses
1
Affichages
606
eCHO
E
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
B
  • Question Question
XL 2019 Filtre élaboré sur des données alphanumériques
Réponses
1
Affichages
977
Staple1600
S
  • Question Question
XL 2019 fonctions COUNTIF and COUNTIFS sur une plage de données filtrée en vba
Réponses
2
Affichages
1 K
Hasco
B
  • Question Question
XL 2013 Interdire saisie de doublon et faire synthèse à chaque saisie
Réponses
5
Affichages
732
BIROULIG
B
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…