compréhension technique de la macro

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:

---

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

---

Bonjour,
n'oublie pas les balises code pour une meilleure lisibilité.
Selon le contexte de ton fichier: dans la feuille carte des délais, j'ai réservé 3 colonnes pour chaque transporteur XX24 XX48 XX72
ind indique le décalage de la première colonne du transporteur:
0 pour DHL, 3 pour JOY, 6 pour le nouvelle transporteur Z (Z24: dans Colonne G, Z48 dans colonne H, Z72 dans colonne I)...etc. pour d'autres transporteurs

Code:

---

typdel = CStr((c.Column - ind) * 24)

---

indique pour chaque transporteur le délai correspondant
par exemple: Transporteur JOY, donc ind=3, pour la colonne E on a typedel=(5-3)*24=48

Dans ta feuille globale, tu as dans la colonne L, tu as un code alphanumérique dont les 3 première lettres indiquent le transporteur; d'où

Code:

---

typtra = Left(sht.Range("L" & i), 3) 'De quel transporteur s'agit il

---

du même exemple, nous aurons donc, le nom de la feuille,

Code:

---

namsht = "" & LCase(typtra & typdel) & ""

---

namsht="joy48"
...
Le code sera donc

Code:

---

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

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("B2:C100") ind = 0 Case "JOY" Set plage = shtb.Range("D2:F100") ind = 3 Case "NOUVEAU TRANSPORTEUR" 'ICI METTRE LES 3 PREMIERES LETTRE DU CODE DU NOUVEAU TRANSPORTEUR Set plage = shtb.Range("E2:I100") ind = 6 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

---