Bonjour à tous,
Je cherche à automatiser la mise en forme d’un tableau variable (d’un jour à l’autre comme d’un utilisateur à l’autre) sur un fichier trop fouillis pour être imprimé dès sa création.
J’ai déjà réussi à faire le plus gros de la mise en page mais pour faire mon total final en bas de tableau je rencontre un souci.
Mon objectif est de supprimer les lignes contenant des données non intéressantes et inexploitables pour les utilisateurs, pour le moment j’ai réussi à supprimer certaines lignes grâce à ce code :
'Je supprime les lignes qui contiennent les phrases suivantes'
For Lin = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
If Cells(Lin, 1) = "BusA Cur- Down pmnt OI total" Or Cells(Lin, 1) = "**" Then Rows(Lin).Delete Shift:=x1Up
Next Lin
For Lin = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
If Cells(Lin, 1) = " ency" Or Cells(Lin, 1) = "Summary sheet across all company codes" Or Cells(Lin, 1) = "Company code 577 summary sheet" Or Cells(Lin, 1) = "**" Then Rows(Lin).Delete Shift:=x1Up
Next Lin
Mais j’ai deux lignes que je n’arrive pas supprimer car contrairement aux autres elles sont variables, l’une contient le nom de l’utilisateur et est la dernière ligne de mon fichier et l’autre commence toujours par le mot « Company ».
Je ne vous mets pas de fichier car il est trop volumineux et surtout variable, mais si vous avez des idées, je vous en serais très reconnaissant.
Merci
Noeste
Je cherche à automatiser la mise en forme d’un tableau variable (d’un jour à l’autre comme d’un utilisateur à l’autre) sur un fichier trop fouillis pour être imprimé dès sa création.
J’ai déjà réussi à faire le plus gros de la mise en page mais pour faire mon total final en bas de tableau je rencontre un souci.
Mon objectif est de supprimer les lignes contenant des données non intéressantes et inexploitables pour les utilisateurs, pour le moment j’ai réussi à supprimer certaines lignes grâce à ce code :
'Je supprime les lignes qui contiennent les phrases suivantes'
For Lin = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
If Cells(Lin, 1) = "BusA Cur- Down pmnt OI total" Or Cells(Lin, 1) = "**" Then Rows(Lin).Delete Shift:=x1Up
Next Lin
For Lin = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
If Cells(Lin, 1) = " ency" Or Cells(Lin, 1) = "Summary sheet across all company codes" Or Cells(Lin, 1) = "Company code 577 summary sheet" Or Cells(Lin, 1) = "**" Then Rows(Lin).Delete Shift:=x1Up
Next Lin
Mais j’ai deux lignes que je n’arrive pas supprimer car contrairement aux autres elles sont variables, l’une contient le nom de l’utilisateur et est la dernière ligne de mon fichier et l’autre commence toujours par le mot « Company ».
Je ne vous mets pas de fichier car il est trop volumineux et surtout variable, mais si vous avez des idées, je vous en serais très reconnaissant.
Merci
Noeste