XL 2019 excel vba mise à jour fichier selon deux critères

Bonjour alban1991, bienvenue sur XLD,

Le plus simple est de copier le 1er fichier sur le second en utilisant des formules de liaison.

Cela sur une plage assez grande, les valeurs zéros seront masquées (menu Fichier => Options).

Téléchargez les fichiers joints dans le même dossier (le bureau).

A+

Bonjour Job75, merci de ta réponse

effectivement cette solution est plus simple, en revanche je ne veux pas l'utiliser car
sur mon fichier "Base de données" je vais avoir plus de 30 feuilles, tu comprendras que je n'ai pas envie de m'amuser à faire ça pour toutes les feuilles 🙂 (et peut etre même d'autre fichier Base de données par la suite)

et que VBA peut surement s'en charger bien plus rapidement que moi haha

Pas clair, qu'est-ce que vous voulez faire avec les 30 feuilles ?

S'il s'agit de toutes les copier faites une copie du fichier Base_de_données.xlsx, point barre.

On s'écarte du pb posé de base,
dans les classeurs que j'ai joint,
lorsque je modifie des cellules dans le classeur "Base de données" puis que je clic sur mon bouton Mettre à jour dans mon classeur "Mise à jour", les infos sont bien modifiées dans celui-ci, (voir mon code VBA, module 1)

la modification des cellules se fait avec le recherche du N° Matricule,
je souhaiterais a l'avenir que la modification se fasse en fonction du N°Matricule et du Nom..
est-ce plus clair ?

Copie des 30 feuilles du fichier source :

ce n’est pas du tout la copie des 30 feuilles qui me pose problème..

lors de la mise à jour des donnés, dans mon code actuel, je vais comparer les numéros Matricule de mon ficher Base de données et Mise à jour..
dans le code modifié, je voudrais pouvoir comparer le numéro de Matricule ET le Nom, tu comprends ?

Je comprends mais je ne vois pas l'intérêt de faire cette comparaison, pourquoi ne pas tout copier ?

ce sera sûrement plus clair avec plus d’infos tu as raison,
dans un 1er remps je vais copier les données (les 30feuilles) sur mon classeur Mise a jour,
sauf que certaines données des 30 feuilles peuvent être modifiées quelque temps plus tard,
donc dans un second temps je vais devoir mettre à jour mon classeur Mis à jour avec les valeurs modifiées,
et cette mise à jour je la fais via mon bouton,
tu visualises mieux ?

C'est clair et c'est ce que fait la macro de mon post #6.

Je me suis mal exprimé et j'en suis desolé..

je ne veux pas faire une copier des feuilles entièrement, mais seulement les données.
que ces données apparaissent les unes a la suites sur la feuille Acceuil par exemple

alban1991 à dit:

Je me suis mal exprimé et j'en suis desolé..

Cliquez pour agrandir...

Et ça continue, alors pour moi c'est terminé.

Je te conseille ce pseudo code

- lecture des données de la feuille Base_Donnees dans: tbl_donneeBase()
-lecture des données de la feuille Mise à jour: tbl_Mise_a_jour()
-tbl_ResultatRequete() à redimensionner dans le code

'Compter le nombre de matricules absent dans le tableau de la feuille mise à jour
n=0
pour i= lbound( tbl_donneeBase,1) to ubound( tbl_donneeBase,1)
pour k=lbound( tbl_Mise_a_jour,1) to ubound( tbl_Mise_a_jour,1)
'comparaison des matricules et noms des deux tableaux
si tbl_donneeBase(i,1) <> tbl_Mise_a_jour(k,1) and tbl_donneeBase(i,2) <> tbl_Mise_a_jour(k,2)alors
n=n+1
finsi
finpour
finpour

'vérifier si n=0 sortie de la procédure car pas de mise à jour
redimensionner tbl_ResultatRequete(1 to n, ....)

'Récupération des lignes absentes dans la feuille Mise à jour
n=0
pour i= lbound( tbl_donneeBase,1) to ubound( tbl_donneeBase,1)
pour k=lbound( tbl_Mise_a_jour,1) to ubound( tbl_Mise_a_jour,1)

'comparaison des matricules et noms des deux tableaux
si tbl_donneeBase(i,1) <> tbl_Mise_a_jour(k,1) et tbl_donneeBase(i,2) <> tbl_Mise_a_jour(k,2) alors 'matricule et nom absents
n=n+1
pour p=lbound( tbl_Mise_a_jour,2) to ubound( tbl_Mise_a_jour,2)
tbl_ResultatRequete(n,p)=tbl_donneeBase(i,p)
finsi
finpour
finpour

'Détecter la dernière ligne non vide depuis le A1048576 de la feuille mise à jour
transfert des données à l'aide de boucle

En général je dis bienvenue aux nouveaux arrivants quand au moins ils nous disent bonjour.

job75 à dit:

En général je dis bienvenue aux nouveaux arrivants quand au moins ils nous disent bonjour.

Cliquez pour agrandir...

Bonjour,
Désolé pour le manquement.
C'est vrai que c'est ma première participation mais je suis inscrit, il y a pas mal de temps.
Cependant, je m'excuse une fois de plus pour le manquement.
Cordialement