Probleme de Macro simple

[arnaud7474]

Bonsoir,

je débute en Macro et tout ça alors je viens chercher votre aider 😉

Mon probleme est simple mais je n'ai pas réussit a trouver une solution tout seul (en essayant d'enregister une macro et de bidouiller)


je m'explique :

Sur ma premier feuille il y a 1 case que j'aimerais -par une macro- Copier/coller sur la 3eme feuille a la suite de la liste deja existante

Cette macro sera sur un bouton(ça je sais faire)
1ere activation du bouton : la case est copiée en A1 dans la 3eme feuille
2eme activation du bouton : la case est copiée en A2 dans la 3eme feuille

Etc.. c'est simple, mais dur quand on débute :-(



Voila mon code qui ne marche pas car il copie toujours en A1 :

Sub Macro1()
'
' Macro1 Macro
'

'
Range("F5").Select
Selection.Copy
Sheets("Feuil3").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
End Sub


Merci d'avance 😉

 

[kjin]

Re : Probleme de Macro simple

Bonsoir,
Il faut que tu incrémentes le N° de la première ligne vide de ton tableau à chaque copie

Range("F5").Copy
    With Sheets("Feuil3")
        DerniereLigne = .Range("A65000").End(xlUp).Row
       .Range("A" & DerniereLigne + 1).PasteSpecial Paste:=xlValues
    End With

ou sans copier/coller

x = Range("F5")
    With Sheets("Feuil3")
        DerniereLigne = .Range("A65000").End(xlUp).Row
       .Range("A" & DerniereLigne + 1) = x
    End With

A+
kjin

 

[skoobi]

Re : Probleme de Macro simple

Bonsoir arnaud,

alors pour commencer, comme tu débutes, un réflexe à prendre: enlever les Select qui sont inutiles presque toujours dans une macro:

Range("F5").Select
    Selection.Copy

devient:

Range("F5").Copy

Et pour répondre à ta demande:

Range("F5").Copy Sheets("Feuil3").Range("A65536").End(Xlup).Offset(1,0)

Bonne soirée.

Edit: bonsoir kjin 🙂

 

[mth]

Re : Probleme de Macro simple

Bonsoir arnaud7474,

Un essai dans le fichier ci joint, avec le code suivant (à améliorer sans doute 😱):

Sub Macro1()
    Sheets("Feuil3").Range("A65536").End(xlUp).Offset(1, 0).Value = Sheets("Feuil1").Range("F5").Value
    Sheets("Feuil3").Range("B65536").End(xlUp).Offset(1, 0).Value = Sheets("Feuil1").Range("F5").Value
 
End Sub

@ +

mth

Edit: oups... bonsoir kjin 🙂, et bonsoir skoobi 🙂
pas vu que vous étiez là (si non vu mon niveau VBA je me serais abstenue ...)
mais bien contente de vous croiser 🙂
@ +
m

 

[arnaud7474]

Re : Probleme de Macro simple

Merci a vous tous pour vos réponses, je vais me mettre au boulot des maintenant !

😉