Discussion :

[arctica]

bonsoir à tous,

Mon probleme , J'ai une macro qui me copie des lignes dans des feuilles cibles Elle me selectionne tous les lignes contenant A et me les colle dans la feuille Autriche Ce que je souhaiterai maintenant c'est qu'elle me selectionne toutes les lignes contenant TNT dans la colonne 10( J) et me les colles dans la feuille Tnt Le hic c'est que il y a tnt1 tnt2 et tnt3 je voudrais donc selectionner que les 3 premieres lettres de TNT1 2 ou 3 peut être par la formule = gauche(j;3) et comme je suis débutant je coince parce que
select Case left(cells(10, t), 3) ne marche pas Pouvez vous m'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim NbLig As Long, T As Long, NbL As Long
    Dim Pays As String
 
    NbLig = Cells(Columns(2).Cells.Count, 2).End(xlUp).Row 'colonne 4 car données en D
 
    For T = 3 To NbLig 'de 6 car 1ère données en D6, boucle sur toutes les lignes de la feuille Globale
    Select Case Cells(T, 5).Value 'Récupère la valeur de la colonne G pour définir le pays
    'Case va choisir en fonction de la lettre récupérée via le Select Case
        Case Is = "A"
            Pays = "Autriche"
            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)

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i=x to Y
If Ucase(Left(Range("J" & i).value,3))="TNT" Then
...

le i est la variable qui parcours tes lignes de la colonne "J"