vba selectionner les 3 1ere lettres des donnees

[PHILIP]

Bonsoir à tous

J'ai un probleme concernant une macro qui copie les lignes d'un fichier centrale vers des feuilles cibles tous marche sauf que je ne sais ecrire que le critere doit etre les 3 premiers lettres à partir de la gauche
Voici la macro
For T = 3 To NbLig 'de 3 car 1ère données en D3, boucle sur toutes les lignes de la feuille Globale
Select Case Cells(T, 10).Value 'Récupère la valeur de la colonne J pour définir le TP mais je ne voudrais selectionner que les 3 premieres lettres à gauche style =gauche (j;3)[/COLOR] 'Case va choisir en fonction de la lettre récupérée via le Select Case
Case Is = "TNT"
Pays = "TNT"
NbL = Sheets(Pays).Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Sheets("Globale").Range(Cells(T, 2), Cells(T, 17)).Copy Destination:=Sheets(Pays).Cells(NbL + 1, 1)
Case Is = "TOF"
Pays = "Tof"
NbL = Sheets(Pays).Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Sheets("Globale").Range(Cells(T, 2), Cells(T, 17)).Copy Destination:=Sheets(Pays).Cells(NbL + 1, 1)
End Select

Next T

 

[Excel-lent]

Re : vba selectionner les 3 1ere lettres des donnees

Bonsoir Philip,

doit etre les 3 premiers lettres à partir de la gauche
(...) que les 3 premieres lettres à gauche style =gauche (j;3)

Dans ce genre de cas, l'enregistreur de macro aide énormément 😉

Voici la solution :
Style = Left(Range("J2"), 3)

Bonne soirée

Cordialement