Copies de données si... en ligne

ya_v_ka

XLDnaute Impliqué
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]
 

Pièces jointes

  • mi2.zip
    34 KB · Affichages: 22

myDearFriend!

XLDnaute Barbatruc
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:D65536').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]
 

Pièces jointes

  • PourYavka_20051004030131.zip
    24.2 KB · Affichages: 23

Statistiques des forums

Discussions
300 890
Messages
1 988 169
Membres
210 095
dernier inscrit
Ratahiry