Copie dans la même colonne

W

wape

Guest

• 19 Février 2004

• #2

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

 

Vote positif 0 Vote négatif

G

Gérard DEZAMIS

Guest

• 19 Février 2004

• #3

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

 

Vote positif 0 Vote négatif

P

Pias

Guest

• 19 Février 2004

• #4

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

 

Vote positif 0 Vote négatif

G

Gérard DEZAMIS

Guest

• 19 Février 2004

• #5

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 !

 

Vote positif 0 Vote négatif

P

Pias

Guest

• 20 Février 2004

• #6

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

 

Vote positif 0 Vote négatif

W

wape

Guest

• 20 Février 2004

• #7

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

 

Vote positif 0 Vote négatif

P

Pias

Guest

• 20 Février 2004

• #8

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

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

Amicalment

@pias

 

Vote positif 0 Vote négatif