Macro formulaire de saisie

0

Au départ de mon formulaire de saisie, dès que je veux faire l'ajout dans le tableau, il écrase la dernière ligne entrée au lieu de passer à la ligne vide suivante...

Pouvez-vous m'éclairer ?
Merci.

Sheets("TABLEAU DE BORD").Select
Range("A7").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select 'on se décale d'une ligne vers le bas
Sheets("formulaire de saisie").Select
Range("F6").Select
Selection.Copy
Sheets("TABLEAU DE BORD").Select
Posté le 10 décembre 2016, 16:27
par didnic
Répondre
3

Bonsoir, un début pour sauver la mise :

Sub test()
    Sheets("TABLEAU DE BORD").Range("A7").Activate
    Selection.End(xlDown).Offset(1, 0).Select 'on se décale d'une ligne vers le bas
    Sheets("formulaire de saisie").Range("F6").Copy
    Sheets("TABLEAU DE BORD").Paste
    Sheets("TABLEAU DE BORD").Activate
End Sub
Posté le 10 décembre 2016, 20:30

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :