ELSONCe
XLDnaute Junior
Bonjour à tous,
Je souhaite mener à bien un projet très simple pour le commun des excelliens mais qui reste un grand mystère pour moi petit novice. 🙂 Voici donc ce que je veux :
1 ) Copier les données contenues dans les cellules ( uniquement pas le format ni la police... ) de la feuille 1 pour les coller sur la 1ère ligne vide dans un tableau sur la feuille 2. ( cf. document ci-joint )
2 ) La feuille 2 doit impérativement tout sauvegarder.
3 ) J'ai bien trouver une formule qui réponds partiellement à ma demande que voici :
Sub SAV()
Sheets(1).Cells(4, 2).Copy Sheets(3).Cells(65535, 1).End(xlUp)(2)
Sheets(1).Cells(7, 2).Copy Sheets(3).Cells(65535, 2).End(xlUp)(2)
Sheets(1).Cells(21, 1).Copy Sheets(3).Cells(65535, 7).End(xlUp)(2)
Sheets(1).Cells(3, 4).Copy Sheets(3).Cells(65535, 5).End(xlUp)(2)
Sheets(1).Cells(5, 3).Copy Sheets(3).Cells(65535, 4).End(xlUp)(2)
Sheets(1).Cells(9, 3).Copy Sheets(3).Cells(65535, 3).End(xlUp)(2)
Sheets(1).Cells(22, 8).Copy Sheets(3).Cells(65535, 9).End(xlUp)(2)
Sheets(1).Cells(23, 6).Copy Sheets(3).Cells(65535, 6).End(xlUp)(2)
End Sub
Mais avec les inconvénients suivants :
a ) copie de la police, la couleur et du format ( différents sur feuille 1 & 2 )
b ) la date étant une formule ( =aujourd'hui ), la date change tous les jours sur la feuille 2
Dans l'attente de vos réponses.
Un grand merci par avance !!!
Cordialement
Je souhaite mener à bien un projet très simple pour le commun des excelliens mais qui reste un grand mystère pour moi petit novice. 🙂 Voici donc ce que je veux :
1 ) Copier les données contenues dans les cellules ( uniquement pas le format ni la police... ) de la feuille 1 pour les coller sur la 1ère ligne vide dans un tableau sur la feuille 2. ( cf. document ci-joint )
2 ) La feuille 2 doit impérativement tout sauvegarder.
3 ) J'ai bien trouver une formule qui réponds partiellement à ma demande que voici :
Sub SAV()
Sheets(1).Cells(4, 2).Copy Sheets(3).Cells(65535, 1).End(xlUp)(2)
Sheets(1).Cells(7, 2).Copy Sheets(3).Cells(65535, 2).End(xlUp)(2)
Sheets(1).Cells(21, 1).Copy Sheets(3).Cells(65535, 7).End(xlUp)(2)
Sheets(1).Cells(3, 4).Copy Sheets(3).Cells(65535, 5).End(xlUp)(2)
Sheets(1).Cells(5, 3).Copy Sheets(3).Cells(65535, 4).End(xlUp)(2)
Sheets(1).Cells(9, 3).Copy Sheets(3).Cells(65535, 3).End(xlUp)(2)
Sheets(1).Cells(22, 8).Copy Sheets(3).Cells(65535, 9).End(xlUp)(2)
Sheets(1).Cells(23, 6).Copy Sheets(3).Cells(65535, 6).End(xlUp)(2)
End Sub
Mais avec les inconvénients suivants :
a ) copie de la police, la couleur et du format ( différents sur feuille 1 & 2 )
b ) la date étant une formule ( =aujourd'hui ), la date change tous les jours sur la feuille 2
Dans l'attente de vos réponses.
Un grand merci par avance !!!
Cordialement