Remplissage automatique de database à partir de userform

jf27

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Re : Remplissage automatique de database à partir de userform

Bonjour jf27,

Modifies ton code comme suit :

Code:
'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
Code:
Cells(Ligne, Colonne).Value = ctr.Value
en
Code:
Sheets("Raw_Database").Cells(Ligne, Colonne).Value = ctr.Value

Espérant avoir répondu.

Cordialement.
 

Discussions similaires

Statistiques des forums

Discussions
311 723
Messages
2 081 934
Membres
101 844
dernier inscrit
pktla