VBA Excel extracting datas

Bonsoir

Pourquoi une macro alors que des formules suffisent ?
https://mon-partage.fr/f/VZJNk6QP/

Cdlmnt
Via

Bonjour,
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier,
Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Cordialement

Bonjour,

en vba a mettre dans un module:

Option Explicit
Sub Bouton1_Clic()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim FL2 As Worksheet
Dim i As Integer, DernLigne As Long
    Set FL1 = Worksheets("Feuil1")
    Set FL2 = Worksheets("Feuil2")
    'dernière ligne colonne A
DernLigne = FL2.Range("A" & Rows.Count).End(xlUp).Row  + 1
    NoCol = 4 'lecture de la colonne D
    For NoLig = 2 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
        If Var = "Départ" Then
       FL2.Range("A" & DernLigne + i & ":D" & DernLigne + i).Value = FL1.Range("A" & NoLig & ":D" & NoLig).Value
      i = i + 1
        End If
    Next
    Set FL1 = Nothing
End Sub

Voilà

Bonjour,

un simple filtre auto mis sur la ligne de titre fera 10 fois plus que n'importe quelle macro.
Au prix de 3 clics au lieu d'un certes...
eric