Macro pour copier données dans BDD après lignes déjà remplies

[Résolu/Fermé]
Signaler
Messages postés
8
Date d'inscription
vendredi 22 janvier 2016
Statut
Membre
Dernière intervention
7 mars 2016
-
Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
-
Bonjour à tous,

J'aimerai avoir une macro qui me permette de copier les données d'un onglet dans un autre, mais uniquement après avoir vérifié que la ligne est bien vide pour ne pas écraser les données existantes.

Concrètement :

Onglet Import : 1 ligne de données
Onglet BDD: 5 lignes déjà renseignées

La macro doit me permettre de copier la ligne de données de l'onglet "Import" en valeurs dans l'onglet "BDD" juste après les 5 lignes déjà renseignées.

Il y a donc 2 problématiques dans une macro :)

Merci de votre aide !

Greg

1 réponse

Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
25
Bjr,

Essayez :
Sub test()
Dim DernLigne As Long
DernLigne = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row
Sheets("BDD").Rows(DernLigne + 1).Value = Sheets("Import").Rows(1).Value
End Sub


A adapter si besoin ;)

Cdt,
Messages postés
8
Date d'inscription
vendredi 22 janvier 2016
Statut
Membre
Dernière intervention
7 mars 2016

Ah bah ça c'est de la rapidité :)

Oui, j'ai eu besoin de l'adapter un tout petit peu mais ça fonctionne parfaitement !

Merci beaucoup Théo !

Cdt,
Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
25
De rien bonne continuation ;)