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

Question

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

via55 · Answer

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

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

1 réponse

Discussions similaires

Newsletters