XL 2016 Transfert lignes non vides d'une feuille vers une autre

[misteryann]

Bonjour le forum.
Je vous assure que j'ai cherché (mais pas assez bien surement).
Le but est de transférer les lignes non vide (si il y a une valeur dans la colonne E) de la feuille "BPU" vers la feuille "Commande" à compter de la cellule A107.
J'ai bien un bout de code mais il ne fonctionne pas...
Merci à celles et ceux qui s'y pencherons.
Cordialement.

 

[sylvanu]

Bonsoir MisterYann,
Un essai en PJ avec :

Sub Transferer()
Application.ScreenUpdating = False
Tin = Range("A3:F" & Cells(Cells.Rows.Count, "A").End(xlUp).Row)    ' Transfert données dans tableau
ReDim T(1 To UBound(Tin), 1 To UBound(Tin, 2))                      ' Dimensionnement tableau de sortie
Ligne = 1
For i = 1 To UBound(Tin)                                            ' Pour toutes les lignes
    If Tin(i, 5) > 0 Then                                           ' Si quantité non nulle
        For j = 1 To 6: T(Ligne, j) = Tin(i, j): Next j             ' Alors transfert de ligne
        Ligne = Ligne + 1
    End If
Next i
With Sheets("Commande")
    .[A107:F1000].ClearContents                                     ' Effacement tableau Commande
    .[A107].Resize(UBound(T, 1), UBound(T, 2)) = T                  ' Transfert tableau résultat
End With
End Sub

 

[misteryann]

Merci sylvanu.
J'ai un soucis avec excel: il ne veux pas ouvrir le fichier avec les Macros (il n'y a même pas le bandeau pour autoriser... et j'ai regardé dans la sécurité des macros)
Mais je pense que ça va le faire .
Encore merci.
Cordialement

 

[sylvanu]

Activez les macros :

 

[misteryann]

Bonjour Silvanu.
Tout est clair de côté. Je ne sais pas ce qu'il se passe

 

[misteryann]

Bonjour le forum.
J'ai un peu fait progresser le fichier en ajoutant une Usf qui marche bien.
Mais il reste le probème de transférer les lignes non vides de la feuille "BPU" vers la feuille "Commande".
Je n'arrive pas à adapter le code de sylvanu (que je remercie encore)
Je précise que ce fichier sert dans d'autres classeurs dont la page "BPU" peut aller de 200 à plus de 1000 lignes
Cordialement

 

[sylvanu]

Bonsoir,
Je ne comprends pas.
Si vous appuyez sur le bouton "Valider la commande" dans BPU, vous transférer bien toutes les lignes dont la quantité est non nulle dans la feuille Commande à partir de la ligne 107.
Ce n'était pas le but ?

 

[misteryann]

Bonsoir sylvanu.
Génial!
Ca ne fonctionnait pas dans mon fichier initial.
Grand MERCI
Cordialement

 

[sylvanu]

Impeccable.
Le post mis comme solution ne peut être le votre.
Il est destiné à guider le futur lecteur vers la solution, non vers la confirmation de la solution.
Supprimez le, ce sera moins perturbant pour le futur visiteur.