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

Résolu/Fermé
GregBabar Messages postés 8 Date d'inscription vendredi 22 janvier 2016 Statut Membre Dernière intervention 7 mars 2016 - Modifié par GregBabar le 7/03/2016 à 17:40
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 8 mars 2016 à 09:57
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
A voir également:

1 réponse

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
7 mars 2016 à 18:20
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,
0
GregBabar Messages postés 8 Date d'inscription vendredi 22 janvier 2016 Statut Membre Dernière intervention 7 mars 2016
7 mars 2016 à 18:33
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,
0
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
8 mars 2016 à 09:57
De rien bonne continuation ;)
0