Bonjour le forum,
Comment modifier le code ci-dessous pour copier la cellule active positionnée dans la colonne C et la cellule de la colonne I de la même ligne de la feuille 1 sur la feuille 2 en mettant la cellule active dans la colonne D et la cellule de la colonne I en colonne J ?
Sub Copie3()
Dim Ligne As Long
Ligne = Sheets("Feuil2").Cells(Rows.Count, "C").End(xlUp).Row + 1
ActiveCell.Offset(, 0).Copy Sheets("Feuil2").Range("C" & Ligne)
End Sub
Merci de votre aide,
Comment modifier le code ci-dessous pour copier la cellule active positionnée dans la colonne C et la cellule de la colonne I de la même ligne de la feuille 1 sur la feuille 2 en mettant la cellule active dans la colonne D et la cellule de la colonne I en colonne J ?
Sub Copie3()
Dim Ligne As Long
Ligne = Sheets("Feuil2").Cells(Rows.Count, "C").End(xlUp).Row + 1
ActiveCell.Offset(, 0).Copy Sheets("Feuil2").Range("C" & Ligne)
End Sub
Merci de votre aide,