Enregistrement des données saisies dans un Userform

elanor2 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je suis en train de réaliser un outil de saisie qui permet de saisir des données sur une interface VB (Userform) et de les envoyer directement sur plusieurs feuilles Excel dans un seul fichier Excel. Jusqu'ici tout va bien, le code marche très bien, je fais la saisie de mes données, enregistre le fichier sous un autre nom, et nettoie grâce à un bouton de commande tous les champs que j'avais déjà rempli, pour un usage ultérieur.

Cependant, quand je fais ma saisie sur l'interface je clique sur un bouton de commande et tout s'envoie directement aux feuilles, mais quand j'ai une seule modification à faire sur un champ (Textbox), je suis obligée de refaire la saisie pour tous les autres champ sinon ils seront effacés dès que je ré-exécute la commande. Est ce qu'il y a moyen de ne toucher qu'au textbox que je modifie (avec les cellules concernées biensûr), et que le reste des données reste sauvegardé??
Je vous remercie par avance
A voir également:

3 réponses

Réponse 1 / 3
skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   54
 
Montre nous ton code :)
0
Réponse 2 / 3
elanor2 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour SKK201, mon code est simple:
sheet(feuille).range(cellule).value=Textbox.value

rien de sorcier, pour affecter à chaque champ une valeur saisie dans un textbox, je modifie que les noms des cellules et des feuilles. Je nettoie avec un bouton de commande avec le code" .clearcontents" et c'est tout mon programme.

Pour résoudre le problème de ma question précédente, j'ai créé un bouton de commande avec le code inverse, j'ai réaffecté les champs saisis aux textbox que j'ai sur mon interface: Textbox.value=sheet(feuille).range(cellule).value

comme ça je récupère tout ce que j'avais saisi au départ, je modifie et je clique sur le bouton du départ (saisie) pour envoyer les données aux cellules.
Je ne sais pas s'il y a un moyen plus simple pour le faire, mais celui là marche pour le moment :)

Merci
0
Réponse 3 / 3
skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   54
 
Bah jsutement c'est parce que c'est trop simple :)

Essaye ça (si j'ai bien compris le problème) 


If Textbox.value = ""
Else: sheet(feuille).range(cellule).value=Textbox.value 
End If
0