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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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