Comment détecter les nouvelles lignes par VBA

Fermé
Linedolc Messages postés 12 Date d'inscription vendredi 19 août 2016 Statut Membre Dernière intervention 18 octobre 2017 - 18 oct. 2017 à 17:51
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 21 oct. 2017 à 06:22
Bonjour,

Je suis une débutante en VBA et j'ai un projet annuel pour écrire un code VBA pour détecter les nouvelles lignes ajoutées.

J'ai une liste de numéro qui doit être mis-jour chaque mois pour donner un nouveau numéro à la nouvelle ligne ajoutée selon le nom concaténé:

Nom Numéro
20117JohnsonAnnie 1
20153ClarkJohn 2
200111DeppJanice 3
20132AndersonLucy 4


J'ai également un fichier de donnée chaque mois qui inclut les nouvelles données qui seront ajoutées dans la liste de numéro:

Date courante 30/09/2017

Nom Prénom Émis - Année Émis - Mois
Johnson Annie 2011 7
Clark John 2015 3
Depp Janice 2001 11
Anderson Lucy 2013 2
Kelly Alice 2017 9
Laydon Jade 2017 9
Wang Linda 2017 6
Jackson Jerry 2001 8

Ce que je voudrais: un message box qui va montrer:

Nous allons créer 4 nouvelles lignes, dont il y a 2 lignes avec la date d'émission inférieure que la date courante:
2017-6 Wang Linda
2001-8 Jackson Jerry
Vous voulez continuer?

Est-ce que vous pouvez m'aider sur ce problème?

Merci beaucoup de votre aide à l'avance!

1 réponse

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
21 oct. 2017 à 06:22
Bonjour
Une proposition:
Dans la feuille "Liste_de_Numéros" se trouve la liste des données existantes.
Pour travailler avec un seul fichier, faites une copie de votre nouvelle base de données (celle qui arrive tous les mois) et collez là dans la feuille "Fichier_de_données" dans les colonnes ABC.
Inscrivez la date courante dans la cellule I1.
Cliquez sur le bouton "Recup données"
Pour tester, j'ai reproduit à l'identique vos 2 feuilles sur un même fichier, il n'y a plus qu'à cliquer sur le bouton. Essayez à votre tour.
https://www.cjoint.com/c/GJvejz0tWcw
Cdlt
0