Copier des valeurs dans une base de données

Hello,

Je saisi des données et je souhaite que cela alimente une base de données à l'aide d'un bouton macro...Il y'a des valeurs à recopier plusieurs fois.

J'ai tout expliqué dans le fichier joint......Un gros merci pour votre aide

Bonjour Gravlix, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim DLV As Integer 'déclare la variable DLV (Dernière Lignes des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim PLB As Integer 'déclare la variable PLB (Première Ligne de la Base))

DLV = Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DLV des valeurs
For I = 8 To DLV 'boucle sur toutes les ligne de 8 à DLV
    PLB = IIf(Range("H2").Value = "", 2, Range("H1").End(xlDown).Row + 1) 'définit la première ligne vide PLB de la base de donnée
    Cells(PLB, "G").Value = Range("B3").Value 'renvoie le TROU
    Cells(PLB, "H").Value = Cells(I, "A").Value 'renvoie l'aliment
    Cells(PLB, "J").Value = Range("B4").Value 'renvoie le PER
    Cells(PLB, "M").Value = Cells(I, "B").Value 'renvoie la quantité
    Cells(PLB, "O").Value = Cells(I, "C").Value 'renvoie l'AR
Next I 'prochaine ligne de la boucle
End Sub

merci THAUTHEME, c'est nickel...

Du coup est-il possible d'archiver la base de données sur une feuille nommée archive.

En gros quand je décide d'archiver la base de données il faut que cela copie et que sur la colonne F avant TROU cela indique 2018 v1 sur l'ensemble des cellule de la colonne...si je décide d'archiver encore que cela se copie en dessous et inscrive 2018 v2.....

Re,

Et pourquoi tu ne le dis que maintenant tout ça !? Pfff...

C'est nickel....c'est exactement ce que je veux....

Après je souhaite copier coller la base de données sur une autre feuille et que cela indique sur la colonne tout à droite ou gauche une version style année v1 année v2 sur l'ensemble des lignes.....C'est tout

c'est une demande à part...

Re,

Regarde cet exemple en pièce jointe...

Merci THAUTHEME,

Dans le principe c'est tout à fait sa....Par contre il vaut mieux partir du fichier de départ....c'est à dire :

Quand je souhaite faire une archive, que cela copie la base de donnée (en valeur) de G1 à U1 sur la feuille ARCHIVE avec la version 2018 v1 comme dans ton fichier...

Comme ca serait nickel

En gros un copier coller de la BDD sur une feuille archive et que cela inscrive une version...A chaque archive une nouvelle version et cela se cumule

Merci super

Re,

Le code est suffisamment commenté il me semble pour que tu y arrives seul...

C'est très bien détaillé, je coince sur certaines choses, j'ai pas besoin d'aller chercher b3 ou b4...il figure dans la base de données

et c'est la que je coince...

Il faut un copier coller de la bdd en rajoutant la version...

Re,

Ben supprime ces deux lignes...

J'ai les explications sur le fichier joint....

Plus simple...car j'essaie d'adapter ton code avec mon besoin mais galère

En tout cas merci de ta précieuse aide