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.
Merci
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
Partager