max.lander
XLDnaute Occasionnel
Bonsoir à tous,
Ce bout de code incrémente une base de données en copiant les données des cellules
de la feuille "Demandes" vers la feuille "Base" en reprenant à chaque fois la première ligne vide comme point de départ.
Le souci est que le code est vraiment trop basique et très long à l’exécution, j'ai du mal à mettre en place une boucle pour simplifier.
Avez-vous une idée pou faire plus propre?
Merci à tous,
Ce bout de code incrémente une base de données en copiant les données des cellules
de la feuille "Demandes" vers la feuille "Base" en reprenant à chaque fois la première ligne vide comme point de départ.
Le souci est que le code est vraiment trop basique et très long à l’exécution, j'ai du mal à mettre en place une boucle pour simplifier.
Avez-vous une idée pou faire plus propre?
Merci à tous,
Code:
ligne = Sheets("Base Congés").Range("a65536").End(xlUp).Row + 1
Sheets("Base").Cells(ligne, 1).Value = Sheets("Demandes").Range("C14")
Sheets("Base").Cells(ligne, 2).Value = Sheets("Demandes").Range("D14")
Sheets("Base").Cells(ligne, 3).Value = Sheets("Demandes").Range("E14")
Sheets("Base").Cells(ligne, 4).Value = Sheets("Demandes").Range("F14")
ligne = ligne + 1
Sheets("Base").Cells(ligne, 1).Value = Sheets("Demandes").Range("C15")
Sheets("Base").Cells(ligne, 2).Value = Sheets("Demandes").Range("D15")
Sheets("Base ").Cells(ligne, 3).Value = Sheets("Demandes").Range("E15")
Sheets("Base").Cells(ligne, 4).Value = Sheets("Demandes").Range("F15")
ligne = ligne + 1
Sheets("Base").Cells(ligne, 1).Value = Sheets("Demandes").Range("C16")
Sheets("Base").Cells(ligne, 2).Value = Sheets("Demandes").Range("D16")
Sheets("Base").Cells(ligne, 3).Value = Sheets("Demandes").Range("E16")
Sheets("Base").Cells(ligne, 4).Value = Sheets("Demandes").Range("F16")
ligne = ligne + 1
Sheets("Base").Cells(ligne, 1).Value = Sheets("Demandes").Range("C17")
Sheets("Base").Cells(ligne, 2).Value = Sheets("Demandes").Range("D17")
Sheets("Base").Cells(ligne, 3).Value = Sheets("Demandes").Range("E17")
Sheets("Base").Cells(ligne, 4).Value = Sheets("Demandes").Range("F17")
ligne = ligne + 1
Sheets("Base").Cells(ligne, 1).Value = Sheets("Demandes").Range("C18")
Sheets("Base").Cells(ligne, 2).Value = Sheets("Demandes").Range("D18")
Sheets("Base").Cells(ligne, 3).Value = Sheets("Demandes").Range("E18")
Sheets("Base").Cells(ligne, 4).Value = Sheets("Demandes").Range("F18")
Range("DEMANDES_EN_COURS").Value = ""
End Sub
Dernière édition: