archivage?

[stef]

salut tout le monde,

J'ai un petit souci pour archiver mes données. J'espere que qqun pourra me donner la marche à suivre.

Pb: En fait j'ai des données qui st sur ma 1ere feuille et j'aimerais les
archiver ds une 2eme feuille mais a chaque fois sur la ligne svte.
comment faire?

voila mon petit souci, peut etre que la solution est deja sur le forum mais vu que je debute je n't vois que du feu....

merci bcps de votre aide et a bientot

 

[renato]

salut stef et le forum
je ne visualise pas très bien ton fichier
mais peu etre qu'en copiant tout simplement ta 1ère feuille et en inserant une ligne à la
premiere place cela solutionnera ton problème?
renato

 

[SYL'S]

Salut Stef, Rénato et la planète excel

J'ai fouillé dans mon grenier et miracle...un fichier d'un illustre inconnu (john..) qui répond, je crois, à ta demande.

Bonne nuit les petits...et travailler bien. Syl's.

 

[stef]

Salut, syl's renato et les autres du forum
je remercie vivement renato et syl's pour leurs aide c'est tres sympa de leur part
pour syl's : le petit truc que tu m'as envoyé c'est pil-poil ce qui me fallait!
par contre comment rentrer ds la macro car elle est verouillée et je ne pas la copiée ds un autre fichier...
si tu peux me dire comment faire merci d'avance
en tout cas sympa de m'avoir renseigné et a charge de revanche si un jour je peux depanner qqun je le ferais
tchuss stef

 

[SYL'S]

Salut Stef,

C'est john qui faut remercier ))

Il faut aller le chercher par Alt+F11....

Private Sub CommandButton1_Click()
Dim cpt, coller As Integer
Application.ScreenUpdating = False
Range("A1:C1").Select
Selection.Copy
cpt = 1
coller = 0
Do
If Sheets("Feuil2").Cells(cpt, 1).Value = "" Then
Sheets("Feuil2").Cells(cpt, 1).PasteSpecial
coller = 1
Else
cpt = cpt + 1
End If
Loop Until coller = 1
Sheets("Feuil1").Select
Range("A1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Bonne idée de renseigner les autres....on devrait le mettre dans la charte...pour une aide recue, deux aides à donner )))

bonne appétit mon petit....