VBA, Copier des données d'une feuille à une autre en filtrant par noms sans décaler les données

[renderay]

Bonjour à toutes et à tous,

Voilà je crois que mon souci est dans le titre lol !
J'ai une feuille base de donnée, de celle ci je prend les colonnes B, C et H (Nom, Prénom, poste), et je les copies vers trois autres feuilles, jusque là tout va bien, une fois cela fait il y a un trie par ordre Alphabétique qui ce fait, jusque là tout va encore bien, sauf que, lorsque je créé une nouvelle personne dans la base de donnée, lorsque le code s’exécute et copie dans les trois autres feuilles ,cela décale toutes mes lignes sur les tableaux cibles... (sauf le tableau de base de donnée)

Une solution ?
Je vous joint le code que j'utilise ci-dessous,

Worksheets("Base de donnée").Range("B2:B200,C2:C200,H2:H200").Copy (Worksheets("Synthèse").Range("A2"))
Sheets("synthèse").ListObjects("Tableau2").Range.AutoFilter Field:=1, Criteria1:= _
        "<>"

 

[Lone-wolf]

Bonjour renderay

Au lieu du code, met le fichier avec le résultat que tu veux obtenir. Comment veux-tu qu'on test, on doit faire de la magie noire??

 

[Staple1600]

Bonsoir le fil, le forum, renderay, Lone-Wolf

@renderay
Avant de joindre ici un fichier, il serait peut-être déjà opportun de donner des nouvelles ici...
et surtout d'y finir la séance de ménage
https://www.excel-downloads.com/threads/vba-modifier-les-données-sur-la-bonne-feuille.20025528/

Surtout si on garde en mémoire les récents propos de DavidXLD (webmaster du forum)
https://www.excel-downloads.com/threads/publication-de-donnees-confidentielles-help-please.20025490/

 

[renderay]

Bonjour Staple 1600,

Merci pour ce rappel, j'ai supprimé le fichier... En effet je ne suis pas un grand utilisateur des forums et je manque un peu de savoir faire en la matière, cela va venir j'en suis sur et d'autant plus grâce à tes bons conseils .