Bonjour à tous,
Tout d'abord j'espère que vous avez tous passé un très bon Noël. J'adore ce forum qui m'a permis de glaner de nombreuses formules que j'ai toujours pu adapter à mes besoins. Je vous remercie pour tout le soin que vous apportez toujours à rendre claires vos réponses.
J'ajoute enfin que je suis vraiment bluffé par les capacités d'Excel!
Mon problème (qu'on en finisse!) il est très simple. Dans la formules qui suit, je voudrais remplacer entireRow par seulement quelques cellules de la ligne.
c.EntireRow.Copy Destination:=Feuil2.Range("A" & i)
genre quelquechose comme ça:
i = Feuil2.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
c.Range("A" & i, "B" & i, "C" & i, "I" & i, "J" & i, "K" & i).Copy Destination:=Feuil2.Range("A" & i)
il s'agit d'un bidouillage fait à partir d'une discussion du forum que j'essaye d'adapter à mon besoin.
Merci d'avance pour votre aide!
Philippe
Tout d'abord j'espère que vous avez tous passé un très bon Noël. J'adore ce forum qui m'a permis de glaner de nombreuses formules que j'ai toujours pu adapter à mes besoins. Je vous remercie pour tout le soin que vous apportez toujours à rendre claires vos réponses.
J'ajoute enfin que je suis vraiment bluffé par les capacités d'Excel!
Mon problème (qu'on en finisse!) il est très simple. Dans la formules qui suit, je voudrais remplacer entireRow par seulement quelques cellules de la ligne.
c.EntireRow.Copy Destination:=Feuil2.Range("A" & i)
genre quelquechose comme ça:
i = Feuil2.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
c.Range("A" & i, "B" & i, "C" & i, "I" & i, "J" & i, "K" & i).Copy Destination:=Feuil2.Range("A" & i)
il s'agit d'un bidouillage fait à partir d'une discussion du forum que j'essaye d'adapter à mon besoin.
Merci d'avance pour votre aide!
Philippe