XL 2016 Macro copier le contenu d'une ligne dans une autre feuille

Leochki

XLDnaute Nouveau
Bonjour à tous,

J'ai pu trouver pas mal de macro pouvant faire ce genre de transfert. Mais mes compétences en VBA sont trèèèèès limitées.

Malheureusement aucune ne répond à mes besoins, je m'explique :

Je souhaite copier une ligne de l'onglet "resuligne" et l'insérer dans l'onglet "Tab BIM" MAIS il faudrait que :
-L'insertion dans l'onglet "Tab BIM" se fasse par rapport au nom de l'ouvrage (colonne A de l'onglet resuligne) ;
-L'insertion se fasse en dernière ligne pour avoir un classement par date dans l'onglet "Tab BIM".


Je suis à votre disposition si vous avez besoin d'info complémentaires.

Merci d'avance !!
 

vgendron

XLDnaute Barbatruc
pour la référence inexistante, essaie avec ce code modifié

elle sera mise en bas du tableau
VB:
Sub déplacerligne()

Set LineToCopy = ActiveCell.EntireRow
Ouvrage = Range("A" & ActiveCell.Row)

With Sheets("Tab BIM")
    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    Set ZoneData = .Range("A5:BA" & fin)
    
     With ZoneData
        Set c = .Find(Ouvrage, searchdirection:=xlPrevious, Lookat:=xlWhole)
        If Not c Is Nothing Then
            LigneDest = c.Row + 1
        Else
            LigneDest = fin + 1
        End If
    End With
           
    LineToCopy.Copy
    .Rows(LigneDest).Insert shift:=xlDown
End With
LineToCopy.Delete
End Sub

à noter: cette macro fonctionne pour UNE ligne active
maintenant, si tu souhaites faire la meme chose pour l'ensemble des lignes de Resuligne en une seule fois, il suffit de faire une boucle
à voir selon ton besoin
 

Leochki

XLDnaute Nouveau
C'est magnifique, je vais sérieusement me renseigner sur une manière de me former au code VBA !
L'histoire de la boucle est également une bonne piste, vaut-il mieux préférer une do loop ? ou une for each next ?
Où intégrer la boucle dans le code ?

Merci :)
 

vgendron

XLDnaute Barbatruc
en PJ solution avec la boucle
attention: pour que ca fonctionne, il a fallu que je nettoie ton fichier: à savoir supprimer toutes les lignes vides sous le tablo
les MFC sont appliquées sur les colonnes entières.. de la ligne 1 à la ligne 1048576
donc pour excel, l'ensemble des lignes est utilisée==> impossible d'ajouter une ligne

je te laisse refaire tes 3 MFC en prenant garde de ne les affecter QUE sur les lignes contenant des données
 

Pièces jointes

  • test macro pour fichier bim.xlsm
    951.8 KB · Affichages: 4

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 910
Membres
101 837
dernier inscrit
Ugo