coller data/descendre d'1 case et coller autr data

Hello le forum,

Je souhaite copier une ligne (ex: feuil1!A1:C1) et la coller sur une autre feuille a un endroit précis (ex: feuil4!A10), ensuite, je veut que la ligne (feuil2!A1:C1) soit copier et coller en-dessous (feuil4!A11)
feuil3!A1:C1 --> feuil4!A12. j'aimerais VBAtiser '!' cette action ...

D'autre part, je clic sur un bouton qui me marque en B1 l'heure, je voudrais que quand je clic a nouveau sur ce bouton il me remarque l'heure mais cet fois en B2 et ainsi de suite, en faite une sorte d'incrémentation... ou de boucle...

je sais pas si c clair lol...


Merci d'avance pour votre aide
A+
Guillaume

[Robert]

Bonjour Guigui, bonjour le forum,

Pour le bouton, ce code :

Private Sub CommandButton1_Click()
If Range('B1') = '' Then
Range('B1').Value = Time
Else
Range('B65536').End(xlUp).Offset(1, 0).Value = Time
End If
End Sub

pour le copier/coller cette macro :

Option Explicit

Sub Macro1()
Dim li As Long 'déclare la variable li (LIgne)
Dim d As Range 'déclare la variable d (Destination)
Dim c As Worksheet 'déclare la variable c (Cible)
Dim x As Byte 'déclare la variable x
Set c = Sheets('feuil4') 'définit la variable c
For x = 1 To 3 'boucle sur trois onglets
If c.Range('A10') = '' Then 'condition si A10 (feuil4) est vide
Set d = c.Range('A10') 'définit la variable d
Else 'sinon
li = c.Range('A65536').End(xlUp).Row + 1 'définit la variable li
Set d = c.Range('A' & li) 'définit la vriable d
End If 'fin condition
Sheets('feuil' & x).Range('A1:C1').Copy Destination:=d 'copie/colle A1:C1 de la feuille
Next x 'prochaine onglet de la boucle
End Sub

Message édité par: Robert, à: 21/03/2005 17:26

merci robert je vais essayer de caler tous ceci a mon projet

merci encore

A+ guillaume