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

Résolu
GregBabar Messages postés 8 Statut Membre -  
Theo.R Messages postés 585 Statut Membre -
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

  1.
    Theo.R Messages postés 585 Statut Membre 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
    1. GregBabar Messages postés 8 Statut Membre
       
      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
    2. Theo.R Messages postés 585 Statut Membre 31
       
      De rien bonne continuation ;)
      0

Discussions similaires

Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses