Tu es simplement magique. Bravo.
Je récapitule pour ceux qui ont auront besoin
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
29
30
31
32
33
34
35
36
37 Dim Ws_Source As Worksheet Dim Ws_Vendeur As Worksheet Dim Wb_Donnee As Workbook Dim PlageVendeur As Range Dim TheVendeur As Range 'Init Set Wb_Donnee = ThisWorkbook Set Ws_Vendeur = Wb_Donnee.Worksheets("Fichier Vendeurs") With Ws_Vendeur Set PlageVendeur = .Range("A3", .Cells(.Rows.Count, "A").End(xlUp)) 'On verifie que des vendeur soient présents If PlageVendeur Is Nothing Then Exit Sub 'On boucle sur les valeurs contenu dans PlageVendeur For Each TheVendeur In PlageVendeur 'On verifie que l'onglet existe bien Set Ws_Source = Wb_Donnee.Sheets(CStr(TheVendeur.Value)) If Ws_Source Is Nothing Then 'Pas d'onglet correspondant au vendeur 'On le rajoute Set Ws_Source = Wb_Donnee.Sheets.Add Ws_Source.Name = TheVendeur.Value End If 'Un ongler au nom du vendeur est bien présent, on copie la donnée 'Offset(0,12) permet de se décaler de 0 lignes, 12 colonne, on passe donc de la colonne A à M TheVendeur.Offset(0, 12).Value = Ws_Source.Range("A39").Value 'On libert ws_source Set Ws_Source = Nothing Next End With End Sub
Partager