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

Doublon : colorer et copier des données

  • Initiateur de la discussion Initiateur de la discussion gaeroy
  • 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 !

G

gaeroy

Guest
Bonjour à tous,
Je n'ai pas trouvé mon bonheur dans les archives ou les fichiers, aussi je souhaite avoir une aide pour le pb que je rencontre.

J'ai une liste de noms en colonne I de la feuille 1.
Sur la feuille 4, colonne A j'ai une autre liste de noms.

Il me faudrait sur une nouvelle feuille toutes les lignes de la feuille 1 pour lesquelles le nom apparaît en colonne I de la feuille 1 & en colonne A de la feuille 4.


Ce que j'ai essayé :
- j'ai décrété que la colonne A feuille 4 est ma liste de référence, je l'ai appelée "repere"
- une mise en forme conditionnelle de la colonne I feuille 1 avec un EQUIV sur ma plage Repere, ce qui a fonctionné, les noms communs sont identifiés par la couleur choisie.
- puis une suppression des lignes sur lesquelles cette couleur n'apparaît pas.
Ca, ça n'a pas marché, mes lignes sont toutes supprimées, mais surtout c'est trop long, car les lignes sont effacées une à une et il y en a plusieurs centaines.

J'espère avoir été assez clair dans mon propos.

A bientôt et merci par avance pour votre aide.
 
Re : Doublon : colorer et copier des données

Bonsoir,

Avec le Filtre élaboré:

1- nommer le champ sur feuil1

2-créer un critère en C2 de feuil4: =NB.SI(Nom1;A2)>0

3-Se placer sur feuil5
Données/Filtre/Filtre élaboré
Feuil4!$A$1:$A$27
Feuil4!$C$1:$C$2
A1

En VBA:

Sub extrait()
Sheets("Feuil4").Range("A1:A10000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Feuil4").Range("C1:C2"), CopyToRange:=Sheets("feuil5").Range("A1")
End Sub

JB
Formation Excel VBA JB
 

Pièces jointes

- 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

Réponses
5
Affichages
699
  • Question Question
Microsoft 365 agrandir la liste
Réponses
21
Affichages
661
Réponses
5
Affichages
310
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…