Modif macro

Bonjour à tous,

Un essai ...

ric

bonjour,

Merci pour l'aide je comprend mieux maintenant

je viens de tout modifier et cela fonctionne à part juste une erreur :

dans le fichier que je joint quand je lance la macro le déplacement se fait bien mais si il n'y as rien à déplacer dans une feuille et que celle-ci et vide il me copie la premiére ligne du fichier (donc le nom des colonnes).

Bonjour à tous,

Quand le code passe de feuille en feuille, si la dernière ligne de données est la ligne 1 (les entêtes), Taberr enregistre la ligne 1 et rend son contenu par la suite.

En ajoutant la condition, si Dlig = 1 then Dlig = 2, ça corrige le bogue... Taberr n'enregistre rien, il ne rend donc rien.

La petite correction ...

Sub Séparer()
Dim Ws As Worksheet
Dim Dlig As Integer

    For Each Ws In ActiveWorkbook.Worksheets
        If Ws.Name <> "BASE" Then
            With Ws
                Dlig = .Cells(Rows.Count, "B").End(xlUp).Row    ' << ajout
                If Dlig = 1 Then Dlig = 2        '  << ajout
                tablo = .Range("B2:P" & Dlig)    ' << changement
                ...
                ...

ric

merci c'est tout bon

vous êtes au top.

Rechercher des sujets similaires à "modif macro"