Copier/coller lignes selon condition

Bonjour,

Un classeur avec plusieurs onglets dont deux nommés "BD_liste_attente" & "bd".

je voudrais pourvoir copier la ligne dans "BD_liste_attente" lorsque dans AZ je rentre une date.

je veux pour le collage, coller dans la feuille "bd" la ligne de A à AT avec les formules et que cette ligne s'insere dans un tableau automatique de la feuille "bd" qui commence en A2.

j'espère avoir été clair ...

merci d'avance pour vos aides

@ bientôt

cordialement

Marc

Bonjour

Tu écris :

j'espère avoir été clair ...

pas trop en fait.

Les colonnes se repèrent par des lettres ou des numéros. Ex Colonne A ou Colonne 1

Pour les lignes, il n'y a pas de choix, il faut son numéro : ligne 1 ou ligne 2

Pour une cellule, c'est la combinaison des deux : cellule A2 ou cellule(1,2)

Alors, quand tu parles de" ligne de A à AT", on ne sait pas de quoi tu parles.

Bye !

Bonjour,

Tu peux essayer ce code à placer dans le module de la feuille BD_liste_attente

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 52 Then
        Target.Offset(0, -51).Resize(1, 46).Copy
        ActiveSheet.Paste Destination:=Sheets("bd").Range("A" & Rows.Count).End(xlUp).Offset(1)
        Application.CutCopyMode = False
    End If
End Sub

A+

Bonjour,

merci de vos aides.

gmb, je voulais parler des colonnes de A à AT et copier la ligne sur laquelle l'on venait de rentrer une date.

c'est pas toujours facile d'être clair ...

frangy, ça fonctionne presque impec

J'ai une formule en M et en L qui lorsque je met une date en AZ (cellule qui déclenche la macro) reporte la date et du texte. La macro a l'air de copié avant que cette formule est pu faire son job. Je n'arrive pas à changer cela ...

De plus, les dates qui sont copiées se mettent à l'envers ... (12/17/1995) au lieu de 17/12/1995

en tout cas merci de ton aide

@ bientôt

cordialement

Marc

Avec la méthode Copy, la formule des cellules en M et L devraient être copiées.

De même pour les formats des cellules dates.

Tu dois pouvoir vérifier cela.

Difficile d'en dire plus sans voir de quoi il retourne.

A+

Bonjour Frangy,

tu as raison !!! j’étais concentré sur le résultat attendu et n’ai pas fais attention

toutes mes excuses ...

sur ces 2 colonnes M et L je voudrais le résultat et non les formules ...

ou dit autrement, j'ai besoin de conserver les formule sur les colonnes D & N.

Par contre la date s'inscrit bien à l'envers ...

j'essaie de faire une copie alléger et anonymisée du fichier

merci en tout cas pour ton aide

bonne journée

cordialement

Marc

voilà le fichier:

Bonjour,

J'ai modifié le code afin qu'il copie les valeurs et j'ai formaté les colonnes dates en jj/mm/aaaa.

A tester

A+

Bonjour Frangy,

cette fois il ne copie que les valeurs alors que j'ai besoin de conserver les formules sur les colonnes D & N.

ça fonctionne pour les dates.

merci pour le temps consacré

@ bientôt

cordialement

Marc

Bonjour,

Voici le code pour une copie intégrale de la plage A à AT suivies d'une nouvelle copie des valeurs de la plage L:M.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 52 Then
        Target.Offset(0, -51).Resize(1, 46).Copy
        ActiveSheet.Paste Destination:=Sheets("bd").Range("A" & Rows.Count).End(xlUp).Offset(1)
        Target.Offset(0, -40).Resize(1, 2).Copy
        Sheets("bd").Range("L" & Rows.Count).End(xlUp).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End If
End Sub

A+

Re,

Bravo c'est impec !!!

juste les dates de nouveau mm/jj/aaaa au lieu de jj/mm/aaaa.

J'ai essayé de piger avoir ton précédent code qui faisait celà mais ne trouve pas où et comment modifier.

merci beaucoup,

@ bientôt

cordialement

Marc

Pour les dates, j'ai simplement sélectionné les colonnes concernées et j'ai appliqué le format date classique (Date *14/03/2001") et j’obtiens un résultat correct.

A+

Ok, je vais faire ça

merci encore

très belle journée

@+

Marc