Copies de données si... en ligne

[ya_v_ka]

Bonjour le forum

et oui encore une question

je n'arrive pas à traduire mon voeux...

si la colonne P = X alors reporter le nom, le prénom, la marque et le no plaque du véhicule sur la feuille auto.

il me faut travailler avec une boucle qui reporte chaque entrée sur une autre ligne, et là je plante...

j'imagine une macro déclenchée avec un bouton, et qui une fois activée remplace la dernière mise à jour...

si quelqu'un à déjà créer cela et peut me renvoyer sur le fil, ou souhaite m'aider tel quel... MERCI d'avance

ya'v [file name=mi2.zip size=34843]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mi2.zip[/file]

 

[myDearFriend!]

Bonsoir ya_v_ka,

Ci-joint une proposition utilisant le code ci-dessous :

Sub Traitement()
Dim TabTemp As Variant
Dim L As Long, Lauto As Long
      'Charge les données dans un tableau variant temporaire
      With Sheets('Cp')
            L = .Range('E65536').End(xlUp).Row
            TabTemp = .Range(.Cells(3, 5), .Cells(L, 20)).Value
      End With
      'MAJ feuille 'Auto'
      With Sheets('Auto')
            .Range('A2😀65536').ClearContents
            For L = 1 To UBound(TabTemp, 1)
                  If TabTemp(L, 12) = 'X' Then
                        Lauto = .Range('A65536').End(xlUp).Row + 1
                        .Cells(Lauto, 1).Value = TabTemp(L, 1)
                        .Cells(Lauto, 2).Value = TabTemp(L, 2)
                        .Cells(Lauto, 3).Value = TabTemp(L, 15)
                        .Cells(Lauto, 4).Value = TabTemp(L, 16)
                  End If
            Next L
            .Activate
      End With
End Sub

Cordialement, [file name=PourYavka_20051004030131.zip size=24750]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourYavka_20051004030131.zip[/file]

 

[ya_v_ka]

Hello mDF, le forum

Rien qu'à la lire, c'est exactement ce que je recherchais...

Merci beaucoup

ya'v