copier coller dans 1ere ligne vide colonne B

[pascal21]

bonjour le forum
je cherche le moyen de sectionner un tableau (nombre de lignes variables)
et de le recopier dans la feuille 2
avec mise en place de la date de la copie
ex:
copier ("A7: D16") feuil1
Coller dans feuil2 à partir de la 1ere ligne vide de la colonne B
et mettre la date de la copie colonne A
explications plus limpides dans le fichier joint
j'ai essayé de mon coté, mais je n'arrive à rien avec les codes de copier coller et select ligne vide
merci de votre aide

 

[pascal21]

Re : copier coller dans 1ere ligne vide colonne B

With Sheets("Feuil1")
.Range("A7:D30" & .Range("A65536").End(xlUp).Row).Copy Sheets("Feuil2").Range("B65536").End(xlUp).Offset(2, 0)
End With

Je viens de trouver le code pour le copier coller
me reste la date en colonne A

 

[JCGL]

Re : copier coller dans 1ere ligne vide colonne B

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit
Sub Copie()

Feuil1.Range("A7:D" & Feuil1.Range("A65536").End(xlUp).Row).Copy Feuil2.Range("B65536").End(xlUp).Offset(2, 0)
Feuil2.Range("A" & Range("B65536").End(xlUp).Row) = Date
End Sub

A+ à tous

 

[pascal21]

Re : copier coller dans 1ere ligne vide colonne B

bonjour JCGL
la copie fonctionne, mais pas le code de la date
voir le fichier joint que j'ai modifié avec ton code
en fait en appuyant sur le bouton feuil1
je devrais avoir la date dans les cellules ("A10:A22")
autant de dates que de lignes copiées

 

[Guest]

Re : copier coller dans 1ere ligne vide colonne B

bonjour Pascal,
Hello JC🙂🙂

Et comme ceci:

Sub Copie()
Dim Ligne2 As Long
Ligne2 = Feuil2.Range("B65536").End(xlUp).Offset(2, 0).Row
Feuil1.Range("A7:D" & Feuil1.Range("A65536").End(xlUp).Row).Copy Feuil2.Range("B65536").End(xlUp).Offset(2, 0)
Feuil2.Range("A" & Ligne2).Resize(Feuil1.Range("A7:D" & Feuil1.Range("A65536").End(xlUp).Row).Rows.Count).Value = Date
End Sub

A+
A+++JC

 

[pascal21]

Re : copier coller dans 1ere ligne vide colonne B

bonjour hasco
ça m'a l'air parfait
ça fonctionne
de mon coté j'étais en train de contourner le problème en mettant la date de la saisie dans la feuille 1 avec ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("a6:a100"), Target) Is Nothing Then Exit Sub
Cells(Target.Row, Target.Column + 4) = Now()
End Sub

ça fonctionnait aussi
je vais garder ton code puisque c'est ce que voulais au départ
je vous remercie Hasco et JCGL pour votre aide précieuse
bon dimanche

 

[JCGL]

Re : copier coller dans 1ere ligne vide colonne B

Bonjour à tous,
Salut l'ami Ges 🙂 🙂,

Merci pour le SAV

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B1:B100"), Target) Is Nothing Then Exit Sub
Cells(Target.Row, 1) = Now
End Sub

Toutes saisies en B1:B100 génère une date en A et sur la ligne correspondante

A++ 🙂 🙂
A+ à tous