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

Résolu
GregBabar Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   31
 
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   31
 
De rien bonne continuation ;)
0

Discussions similaires

dessin avec symbole clavier
JSS -
Adraen -

79 réponses