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
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