Remplissage automatique de database à partir de userform

[jf27]

salut tt le monde,

je suis en train d'améliorer mon appli pour la rendre plus flexible aux modifs futures.
Je rentre des infos via un USF multipages pour chaque produit que je veux sauver dans ma database.


je recopie une à une ces infos dans ma database. Cela devient vite lourd.

J'essaie donc d'automatiser ca= quand je valide ma dernière page de l'userform, je cherche la première ligne non vide de ma database et j'y recopie dans lo'rdre toutes les valeurs des contrôles de l'userform.
Voilà la théorie.
En pratique, cela ne fonctionne pas, cela boucle bien sur tout mes ctrl mais rien n'est rempli dans la database

voici le code:
je ne suis pas sur de mon truc pour la recherche de la première cellule non vide


'Create and fill new line in database worksheet
Sheets("Raw_Database").Activate
ActiveSheet.Unprotect
Range("A65536").End(xlUp).Offset(4, 0).Select

For Each ctr In UserForm.Controls
If TypeName(ctr) = "textbox" Then
ActiveCell.Offset(0, 1).Value = ctr.Value
End If
Next ctr


voilà, une fois encore je compte sur vous !
@+
jf27

 

[Papou-net]

Re : Remplissage automatique de database à partir de userform

Bonjour jf27,

Modifies ton code comme suit :

'Create and fill new line in database worksheet
Sheets("Raw_Database").Activate
ActiveSheet.Unprotect
Ligne=Range("A65536").End(xlUp).Row+1
Colonne=1

For Each ctr In UserForm.Controls
If TypeName(ctr) = "textbox" Then
Cells(Ligne, Colonne).Value = ctr.Value
Colonne = Colonne + 1
End If
Next ctr

Je n'ai pas testé, mais celà devrait fonctionner.

Ps : tu n'est pas obligé de sélectionner la feuille. Dans ce cas, modifies la ligne

Cells(Ligne, Colonne).Value = ctr.Value

en

Sheets("Raw_Database").Cells(Ligne, Colonne).Value = ctr.Value

Espérant avoir répondu.

Cordialement.

 

[jf27]

Re : Remplissage automatique de database à partir de userform

Merci cela fonctionne très bien.

Cordialement
JF