Coller des lignes d'un classeur à l'autre

Marie2807

XLDnaute Nouveau
bonjour,

J'ai dans ma feuille 1 nommé "unité" la colonne 12 ou mes données sont.

Premièrement, j'ai un paquet de feuille nommé de la meme façon que le texte en colonne 12. (j'effectue un mid pour que la donné soit la même)

Je voudrais faire en sorte que ma macro prenne chacune des lignes de ma feuille 1 et ailles copier cette dites lignes sur la feuille ( nom de l'onglet) qui corresponds à ma valeur en colonne 12.

j'ai pensé à ce code, mais bon malheureursement il ne marche pas tellement.

Code:
Sub Mettredonnee()

    Dim NumLig As Integer
    Dim casemma As Variant
    Dim lig As Integer
    Dim i As Integer
    Dim onglet As Variant
    
    lig = 1
    NumLig = 1
    
    For i = 2 To ThisWorkbook.Sheets("unité").Cells(65536, 1).End(xlUp).Row
    
        onglet = Mid(ThisWorkbook.Sheets("unité").Cells(i, 12).Value, 1, 6)
        
        ThisWorkbook.Sheets("unité").Cells(i, 1).EntireRow.Copy
        
            If ThisWorkbook.Sheets(onglet).Cells(lig, 1).Value = "" Then
                NumLig = NumLig + 1
                ThisWorkbook.Sheets(onglet).Cells(NumLig, 1).EntireRow.Select
                ActiveSheet.Paste
            End If
        
        lig = lig + 1
        
    Next i
    
End Sub

Merci
 
C

Compte Supprimé 979

Guest
Re : Coller des lignes d'un classeur à l'autre

Re,

C'est plus facile d'analyser ce qui ne va pas avec un fichier (sans données confidentielles, bien sur)

Pour cela, tu le compresse,
- si il fait moins de 40Ko, tu va dans edition avancé de ton post, et tu regarde en bas de ta fenêtre tu as "Gérer les pièces jointes"
Tu cliques sur le bouton, puis sur parcourir, là tu vas chercher ton fichier ZIP et tu cliques enfin sur Uploader

- si il est plus gros tu peux le mettre sur le site cjoint.com

Voilà ;)
 

Discussions similaires

Statistiques des forums

Discussions
312 497
Messages
2 088 985
Membres
103 998
dernier inscrit
Gotteland