Bonsoir à tous,

Je ne suis encore qu'aux prémices de mon aventure VBA, et je n'arrive pas à comprendre mon problème (que je sais relativement facile malheureusement...)

Je m'explique : Je ne suis encore qu'au test avant de l'imputer à mon userform, mais le principe est de donner 3 critères qui viendront filtrer une base puis copier/coller les données dans une autre feuille.

Je souhaite donc qu'à chaque nouvelle manip', la macro vienne coller les données à la première ligne vide de la feuille réceptrice. (Rien d'extraordinaire...)

Cependant le code suivant fonctionne mais n'arrive pas à trouver la dernière ligne non vide sur la feuille réceptrice...

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
Sub Test()
Dim NbLg As Long
Dim LgDer As Long
Dim LgDer2 As Long
Dim TextBox1 As String
Dim TextBox2 As Integer
Dim TextBox3 As Date

Sheets("BASE COBRA histo").Select

  With Sheets("BASE COBRA histo")
    LgDer = .Range("A65536").End(xlUp).Row
    .Range("A1:I" & LgDer).AutoFilter Field:=1, Criteria1:="AF"

    NbLg = WorksheetFunction.Subtotal(3, Columns(1)) - 1
    If NbLg > 0 Then
    LgDer2 = Sheets("Feuil1").Range("C65536").End(xlUp).Row
      .Range("A2:G" & LgDer).SpecialCells(xlCellTypeVisible).Copy Sheets("Feuil1").Range("C1:I" & LgDer2)
    End If
    .ShowAllData
  End With
  
 Sheets("Feuil1").Select
End Sub
Si quelqu'un peut m'aider...
Merci à tous.
M.