Bonjour,
J'ai une ligne A6:F6 j'indique en A6 ine code produit ezt les données d'inscrivent
Ce code produit se trouve dans le tableau par exemple en ligne A20:F20
Je copie la ligne A6:F6 dans une feuille archvie, j'efface la cellule A6 jusque l'à ok, mais je voudrai pouvoir effacer laligne daont la référence en A6 et commune à une cellule du tableau dans ce en A20 et effacer la ligne A20: F20 en mêmle temps que la Cellule A6 aprés avoir copier les renseignement dans la feuille archive
Macro a compléter
Sheets('CDT').Select
Range('A6:G6').Select
Selection.Copy
Sheets('archive').Select
Range('a4').Select
Cells.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('CDT').Select
Range('A6').Select
Selection.ClearContents
End Sub
Merci de votre aide
J'ai une ligne A6:F6 j'indique en A6 ine code produit ezt les données d'inscrivent
Ce code produit se trouve dans le tableau par exemple en ligne A20:F20
Je copie la ligne A6:F6 dans une feuille archvie, j'efface la cellule A6 jusque l'à ok, mais je voudrai pouvoir effacer laligne daont la référence en A6 et commune à une cellule du tableau dans ce en A20 et effacer la ligne A20: F20 en mêmle temps que la Cellule A6 aprés avoir copier les renseignement dans la feuille archive
Macro a compléter
Sheets('CDT').Select
Range('A6:G6').Select
Selection.Copy
Sheets('archive').Select
Range('a4').Select
Cells.Find(What:='', After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets('CDT').Select
Range('A6').Select
Selection.ClearContents
End Sub
Merci de votre aide