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

XL 2016 Comparaison de feuilles avec ajout / suppression de lignes

Créer une discussion

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
D

Denaizzz

XLDnaute Nouveau
Bonjour à tous.

Je pense que la question a déjà été posée 1000 fois, mais j’ai déjà tellement lu de post que je me suis perdu et je préfère repartir de zéro...

Dans un même fichier, j’ai une 1ère feuille nommé « Extraction ». Celle ci va chercher dans un autre fichier une liste des membres du personnel (issus de la RH et mis à jour en temps réels). Cette Extraction est faite via Power Query : Matricule, Nom, prénom, Ancienneté, site d’affectation.
Je souhaite ajouter d’autres colonnes mais avec Power Query, impossible.

J’ai donc, dans ce même fichier une Seconde feuille « Causeries » qui va me le permettre...

Je souhaite donc réaliser une macro en VBA qui va me permettre de comparer les deux feuilles (via le Num de Matricule en colonne A).

Si le num de Matricule disparaît de la feuille Extraction, on supprime toute la ligne correspondante sur la feuille Causeries.
Inversement, si un nouveau matricule apparaît dans la feuille Extraction, une nouvelle ligne contenant le matricule, le nom, prenom, etc... apparaît dans la feuille Causeries...


Merci d’avance, ça fait 1 semaine que je cherche ...

Cdt
Dénis
 
Trier par date Trier par votes
Re

Modifié. A mettre dans ton code principal, tu dois pouvoir terminer ce travail 😉

@+

VB: 
Sub Macro3()

With Sheets("Causeries")
.Activate
dercol = Range("A5").End(2).Column
derligne = Cells(Rows.Count, 1).End(3).Row
Range(Cells(5, 1), Cells(derligne, dercol)).Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
.Cells(Cells(Rows.Count, 1).End(3).Row, 1).Select
End With

With Sheets("Extraction")
.Activate
dercol = Range("A5").End(2).Column
derligne = Cells(Rows.Count, 1).End(3).Row
Range(Cells(1, 1), Cells(derligne, dercol)).Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
.Cells(Cells(Rows.Count, 1).End(3).Row, 1).Select
End With
 

Pièces jointes

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

Discussions similaires

C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
228
caseras
C
S
  • Question Question
Microsoft 365 Consolider des données de plusieurs feuilles
Réponses
2
Affichages
225
Sissou71
S
C
  • Question Question
Microsoft 365 Ajout de données dans tableau existant
Réponses
9
Affichages
233
chnico80
C
C
  • Résolu(e)
XL 2016 Automatisation de l'alimentation des cellules de plusieurs feuilles Excel (Formules : Recherchev...)
Réponses
10
Affichages
200
micheldu52
B
  • Résolu(e)
Microsoft 365 Liaison de feuilles
2
Réponses
22
Affichages
491
sousou
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
656
AtTheOne
D
  • Question Question
XL 2021 Boucle sur deux feuilles
Réponses
11
Affichages
171
dadaze
D
  • Question Question
Microsoft 365 utilisation du dropdown avec une combobox ewcel
Réponses
13
Affichages
504
sylvanu
  • Résolu(e)
Power Query extraction de donnees particulieres
Réponses
4
Affichages
524
Moi69
E
  • Question Question
Power Query Index TP de l'INSEE - Ajuster une formule à chaque mise à jour d'un tableau généré avec PQ
2
Réponses
21
Affichages
1 K
laurent950
N
  • Question Question
Microsoft 365 copie de cellule de plusieurs feuilles sur une autre
Réponses
2
Affichages
122
vgendron
E
  • Résolu(e)
Autres série de feuilles à incrémenter dans un tableau
Réponses
9
Affichages
133
Etienne
E
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
488
AtTheOne
  • Question Question
XL 2016 comparaison de deux feuilles excel
Réponses
2
Affichages
459
papacorno
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
179
vgendron
L
  • Résolu(e)
XL 2021 Aide VBA pour appli Gestion de stock
Réponses
2
Affichages
638
LuckyShuri
L
C
  • Question Question
XL 2013 Copie de formules
Réponses
4
Affichages
479
Cattitude
C
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
R
  • Question Question
XL 2019 Aide à la création d'un fichier de saisie et suivi des engagements budgétaires sous Excel
Réponses
2
Affichages
188
Royaulté
R
P
  • Résolu(e)
Microsoft 365 [RESOLUE] Incrémenter avec plusieurs lignes
Réponses
10
Affichages
314
Peio64
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…