Renvoi d'information dans une base de données par macro

Arthur -  
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,

Je souhaiterai renvoyer des informations dans une ligne d'une base de données à partir d'une saisie d'un autre onglet.

J'ai 2 feuilles : base de données et choix

Le lien entre les deux est le NOM. Dans la base de données c'est la première colonne et dans le choix c'est une liste déroulante.

Le but est de compléter au fur et à mesure l'onglet choix en sélectionnant le bon NOM et que ca renvoie dans la base de données dès que je clique sur le bouton.

Un fichier pour y voir plus clair : https://www.cjoint.com/c/MCnpJ61MdML

Merci d'avance,

Bien à vous

1 réponse

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 

Bonjour

macro à associer au bouton :

Sub actualisation()
With Sheets("BDD")
ligne = .Columns(1).Find(Range("A1"), , , , xlByColumns, xlPrevious).Row
.Cells(ligne, 2) = Range("D1")
.Cells(ligne, 3) = Range("E1")
.Cells(ligne, 4) = Range("D2")
.Cells(ligne, 5) = Range("E2")
End With
MsgBox "BD actualisée"
End Sub

Cdlmnt

Via


0