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