Macro formulaire de saisie

-2

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
signaler
Répondre
Ajouter un commentaire
1

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
signaler
Ajouter un commentaire

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 :