Suite à une demande d'aide concernant un transfert de lignes dans des feuilles ciblées Mercatov (merci à vous ) a écrit cette macro qui marche trés bien . Toutefois débutant je ne comprends pas tous le code ,qu'est ce que typdel
et à quoi correspond ind 0 et ind 3 car je voudrai rajouter un transporteur et j'y arrive pas (la macro commentée serait été ideale)
merci pour vos eclaircissements (à noter que je suis débutant..)
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 Dim c As Range, plage As Range Dim LastLig As Long, i As Long Dim sht As Worksheet, shtb As Worksheet, shtd As Worksheet Dim typtra As String, typdel As String, namsht As String Dim ind As Byte Set sht = Worksheets("globale") Set shtb = Sheets("carte des délais") LastLig = sht.Range("D65536").End(xlUp).Row For i = 6 To LastLig typtra = Left(sht.Range("L" & i), 3) Select Case UCase(typtra) Case "DHL" Set plage = shtb.Range("A2:C100") '3colonnes pour DHL ind = 0 Case "JOY" Set plage = shtb.Range("D2:F100") '3colonnes pour JOY ind = 3 Case Else: Exit Sub End Select Set c = plage.Find(sht.Range("H" & i).Value, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then typdel = CStr((c.Column - ind) * 24) namsht = "" & LCase(typtra & typdel) & "" Set shtd = Sheets(namsht) shtd.Rows(shtd.Range("D65536").End(xlUp).Row + 1).Value = sht.Rows(i).Value End If Next i Set sht = Nothing Set shtb = Nothing Set shtd = Nothing
Partager