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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

misteryann

XLDnaute Occasionnel
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.
 

Pièces jointes

Bonsoir MisterYann,
Un essai en PJ avec :
VB:
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
 

Pièces jointes

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
 
Activez les macros :
1698790985703.png
 
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
 

Pièces jointes

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 ?
 

Pièces jointes

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
99
Retour