Copie dans la même colonne

[Pias]

Bonsoir le Forum,

Est-ce que quelqu'un peut m'aider a modifier le macro ci-dessus de manière a ce qu’il copie la plage ( D5:E29 ) de la feuille de saisie dans ma feuille de sauvegarde mais toujours dans la même colonne.

Merci d’avance et je profite pour remercier toutes les personnes
Que répondent aux questions car ça permet a des débutants en Excel comme moi de progresser..



Sub Macro1()
Sheets("saisie").Select
Range("D5:E29").Select
Selection.Copy
Sheets("sauvegarde").Select
If Range("D5") <> "" Then
Range("D5").End(xlToRight).Offset(0, 1).Select
Else: Range("D5").Select
End If
ActiveSheet.Paste
End Sub

 

[wape]

Bonsoir Pias et le forum,

Essaye ceci :

Sub Macro1()
Sheets("saisie").Select
Range("D5:E29").Select
Selection.Copy
Sheets("sauvegarde").Select
Range("D5").Select
ActiveSheet.Paste
End Sub


@+
wape

 

[Gérard DEZAMIS]

Bonsoir Pias

la partie ci-dessous de votre macro :
If Range("D5") <> "" Then
Range("D5").End(xlToRight).Offset(0, 1).Select
Else: Range("D5").Select
End If
deplace la copie de la selection D5:E9 si la cellule D5 est
"occupée"
Evidemment la première sauvegarde fonctionne très bien mais à la suivante
le décalage se produit.
Il faut donc supprimer de If à End If

Bonne soirée

 

[Pias]

Merci wape pour ta réponse, mais lorsque le macro redémarre une deuxième fois il faut pas effacer les donnes enregistre avant .

Mais qu’ils soient enregistres dans la première ligne vide de la même colonne (D5).

Je sais c’est pas facile …mais possible je pense.
@pias

 

[Gérard DEZAMIS]

Bonsoir

1000 excuses pour cette redite mais une interruption d'activité a permis à Wape de dégainer plus vite ! que mon ombre ! sans que je verifie si QQ 1 avait trouvé qq chose
Erreur !

 

[Pias]

Bonsoir, Gérard DEZAMIS j'ai bon effacer le if ça provoque un erreur merci de la réponse rapide et bonne soirée aussi . moi je continue encore une demi heure après dodo...
@pias

 

[wape]

Re Pias et le forum,

Dans ce cas, essaye ceci :

Sub Macro1()
Sheets("saisie").Select
Range("D5:E29").Select
Selection.Copy
Sheets("sauvegarde").Select
Range("D65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub


@+
wape

 

[Pias]

Merci wape c'est exactement ça que je voulais.

Tu as raison pour et le Forum .....

Amicalment

@pias