Copier/Coller dans une base

[nandou66]

Bonjour,

je suis nouveaux sur le forum et j'ai besoin d'une petite aide.
J'ai essayé de trouver une réponse à mon problème mais malgré mais recherche
je n'y arrive pas.
Dans un tableur j'ai une base de données que je souhaiterais alimenter via un Userform, j'arrive à incrémenter sur une feuille ma saisie mais pas à l'enregistrer
dans la base sur l'enregistrement correspondant.
Merci à la communauté de m'aider à résoudre mon problème, je joint le fichier exemple.
Merci à tous

 

[job75]

Re : Copier/Coller dans une base

Bonjour nandou66, bienvenue sur XLD,

Tout dépend de votre niveau en VBA. Voici quelques guides.

1) Si le but est uniquement de remplir le tableau en Feuil1, la ligne 10 de la feuille Menu n'est pas utile.

2) Renommez les 18 TextBox de telle manière qu'on puisse leur faire correspondre une colonne du tableau : TextBox12 correspondra à la colonne L (la 12ème) du tableau.

3) Créez un bouton "Valider" dans l'UserForm et affectez-lui la macro suivante :

Private Sub CommandButton1_Click()
Dim lig As Long, col As Byte
On Error Resume Next
lig = Application.Match(CInt(ComboBox1), Sheets("Feuil1").Columns(1), 0)
For col = 2 To 19
Sheets("Feuil1").Cells(lig, col) = CInt(Controls("Textbox" & col))
Next
End Sub

4) Enfin pour l'alimentation de la ComboBox, affectez à sa propriété RowSource une plage dynamique : définir le nom Liste par la formule :

=DECALER(Feuil1!$A$3;;;NB(Feuil1!$A:$A))

A+

 

[nandou66]

Re : Copier/Coller dans une base

Merci beaucoup pour votre aide, c'est sympa
@+