Trier - filtrer - copier/coller

[remibob]

Message a supprimer

 

[remibob]

Re : Trier - filtrer - copier/coller

Bonjour,

je m'excuse fortement pour le double post, mais je suis vraiment bloqué sur ma macro...

J'ai tenté ce matin en faisant plusieurs filtres à suivre, cependant, mon format de cellule doit avoir un problème car aucune donné ne ressort...

Encore désolé pour le double post,

bonne journée,

 

[Paf]

Re : Trier - filtrer - copier/coller

Bonjour

Si j'ai bien tout compris:

Sub remibob()
 Dim TablIni, i As Long, DerLig As Long, x As Long

 Application.ScreenUpdating = False

 x = 1
 DerLig = Worksheets("Importation SWIP - NO SWIP").Range("J" & Rows.Count).End(xlUp).Row
 TablIni = Worksheets("Importation SWIP - NO SWIP").Range("A2:Q" & DerLig)

 With Worksheets("Données Swip No Swip")

 For i = LBound(TablIni) To UBound(TablIni)
    If TablIni(i, 16) <> 0 Then
        If TablIni(i, 12) <> True Then
            Select Case TablIni(i, 9)
                Case 3, 4, 5, 6, 11, 12, 13, 14, 19, 20, 21, 22
                Case Else
                    ' ecritures
                    x = x + 1
                    .Cells(x, 1) = TablIni(i, 10)
                    .Cells(x, 2) = TablIni(i, 9)
            End Select
        End If
    End If
 Next
 End With

 Application.ScreenUpdating = True

End Sub

A+

 

[remibob]

Re : Trier - filtrer - copier/coller

Bonjour,

excusez mon temps de réponse,

mon seul problème qui persiste c'est que lors de l'importation, seules les données du dernier rapport s'importe.

Je pense qu'il faut utiliser un .End(xlUp) pour l'onglet "Données Swip No Swip" mais je ne sais pas où le placer (toutes es tentatives ont été veines...

Merci encore,

bonne journée,

 

[Paf]

Re : Trier - filtrer - copier/coller

Re,

modifier x = 1

par x = Worksheets("Données Swip No Swip").Range("A" & Rows.Count).End(xlUp).Row

A+