Raffraîchir fichier 2 si nombre de lignes fichier 1 différent (VBA)

Bonjour,

Je souhaiterais compter le nombre de lignes non vides toute "colonne confondue" du fichier "TR18031 APP L18096A" (feuille"TSR").

En cas de changement, je veux remettre à jour les colonnes du fichier "PREPARATION CASTEL L18096A_systeme-autom" (feuille : DP DS Cde TEST).

Le transfert de données de la feuille "TSR" vers la feuille "DP DS Cde TEST" se fait correctement avec le code :

Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("O6:O30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("A5:A30001")
Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("L6:L30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("B5:B30001")
Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("D6:D30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("C5:C30001")
Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("F6:F30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("D5:D30001")
Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("E6:E30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("F5:F30001")
Workbooks("TR18031 APP L18096A").Sheets("TSR").Range("AA6:AA30000").Copy Workbooks("PREPARATION CASTEL L18096A_systeme-autom").Worksheets("DP DS Cde TEST").Range("L5:L30001")

Problématique 1 : Je souhaiterais rafraîchir le transfert UNIQUEMENT LORSQUE LE NOMBRE DE LIGNE DE LA FEUILLE "TSR" est différent. J'ai créé la macro :"Transfert_donnees_TSR" dans le fichier "PREPARATION CASTEL L18096A_systeme-autom" mais une erreur d'écution '424' apparaît.

Problématiques 2 : En cas d'ajout ou de suppression de ligne dans le fichier "TR18031 APP L18096A" (feuille"TSR"), je souhaiterais conserver l'alignement des lignes dans le fichier "PREPARATION CASTEL L18096A_systeme-autom" (feuille : DP DS Cde TEST)

Les lignes des colonnes F, I, J, K restent fixes (car elles ne sont pas liées à la feuille "TSR"), je ne peux pas lier ces cellules à l'autre fichier à l'aide d'une formule car du texte est rentré dans ces cellules.

Je penses qu'il faut identifier ou se situe le décalage dans le fichier " TR18031 APP L18096A" et mettre ce même décalage dans le fichier "TR18031 APP L18096A ".

Auriez-vous une solution à ces 2 problématiques svp ?

Merci

Fabien

Rechercher des sujets similaires à "raffraichir fichier nombre lignes different vba"