ma text box enregistre toutes les saisies!!!

[bomagicmusic]

Bonjour,

J'ai une text box dans un user form et je souhaite récupérer les infos ligne par ligne dans une feuille excel. J'ai écris ce code mais je m'aperçois qu'une ligne est crée par lettre saisie or je veux juste le résultat final?

Private Sub TextBox2_Change()
Sheets("docs & dates").Range("B" & Range("B65536").End(xlUp).Row + 1).Value = TextBox2.Value
End Sub

Merci

 

[porcinet82]

Re : ma text box enregistre toutes les saisies!!!

Salut,

Pas facile de proposer une solution sans savoir ce qu'il y a d'autre sur ton usf, mais peut etre en utilisant ceci :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
[COLOR=seagreen][B]'ton code[/B][/COLOR]
End Sub

Ou alors, avec un bouton...

@+

 

[bomagicmusic]

Re : ma text box enregistre toutes les saisies!!!

ça ne marchait pas avec ma formule alors j'ai fait le code suivant avec ton code et ça marche. Juste une question car je voudrais que le user form se vide une fois les données recopiées. j'ai essayé unload.me UserForm.hide mais ça ne marche pas. c'est la même chose pour mon bouton annuler. Aurais-tu un code sous la main? Merci en tous cas de cette réponse rapide

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("docs & dates").Range("A" & Range("A65536").End(xlUp).Row + 1).Value = TextBox1.Value
End Sub

 

[blord]

Re : ma text box enregistre toutes les saisies!!!

Bonjour,

Si je peux me permettre une suggestion, je pense que l'utilisation d'un bouton est peut-être une meilleure solution car elle donne le contrôle à l'utilisateur qui peut décider du moment ou les données seront envoyées dans la feuille.

Si on fait le transfert en automatique, l'utilisateur ne le saura pas et s'il veut modifier le contenu du textbox avant le transfert, ça se complique....

Blord

 

[bomagicmusic]

Re : ma text box enregistre toutes les saisies!!!

Hello Blord,

En fait j'ai bien crée un bouton valider et un bouton annuler mais le probleme est que je n'arrive pas à vider le user form avec unload me

 

[blord]

Re : ma text box enregistre toutes les saisies!!!

Allo,

Je ne sais pas si tu as beaucoup de contrôles dans ton userform mais tu peux toujours mettre à la fin du code de ton bouton : textbox1.value = ""

Blord

 

[porcinet82]

Re : ma text box enregistre toutes les saisies!!!

re, Salut blord,

Je pense qu'un exemple de ton fichier nous permettrait de te suggérer les choix les plus adaptés, et également, d'adapter exactement le code, parce que je ne saisie pas tres bien le parallèle que tu fais entre tes boutons valider et annuler et le fait de vider le usf...

@+

 

[skoobi]

Re : ma text box enregistre toutes les saisies!!!

Bonjour tout le monde,

le probleme est que je n'arrive pas à vider le user form avec unload me

bizarre...
te serait-il possible d'envoyer un bout de ton fichier (avec le code en entier)?

Edit: porcinet, j'allais le dire...

 

[bomagicmusic]

Re : ma text box enregistre toutes les saisies!!!

Voilà mon fichier...en photo car trop lourd

Code pour 1er text box

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("docs & dates").Range("A" & Range("A65536").End(xlUp).Row + 1).Value = TextBox1.Value
End Sub

Code pour date:
Private Sub DTPickerDateDuDocument_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
Sheets("docs & dates").Range("C" & Range("C65536").End(xlUp).Row + 1) = DTPickerDateDuDocument.Date
End Sub

Code pour bouton valider:

Private Sub CommandButton1_Click()
UserFormDocument.Hide
Sheets("docs & dates").Select
End Sub

 

[alex67800]

Re : ma text box enregistre toutes les saisies!!!

Bonsoir Bomagicmusic, skoobi le forum,

Houla la c'est d'un compliqué ton code, lol
Pour ton bouton valider tape ceci:

Private Sub CommandButton1 ' out le nom de ton bouton valider
With Sheets("docs & dates")
    N1 = .Range("A65536").End(xlUp).Row + 1
    .Range("A" & N1).Value = TextBox1.Value
    .Range("B" & N1).Value = TextBox2.Value
    .Range("C" & N1).Value = DTpickerDateDuDocument.Value 
End with

'La prochaine étape vide tes textbox(s) à mettre si tu ne ferme pas l'usf
Textbox1.value=""
Textbox2.value=""

'sinon
'Sheets("docs & dates").Activate
'Unload Me 'pour déchager l'usf qui le vide de fait
'UserformDocument.Hide 'pour le masquer sans le décharger, il faudra donc passer par les texbox.value=""
End Sub

Pour ton bouton ANNULER:

Private Sub CommandButton2 'ou le nom de ton bouton
Textbox1.value="" 'si tu veux uniquement vider les textbox(s)
Textbox2.value=""

'soit
'Unload Me 'Pour femer l'usf qui vide de fait les textbox(s)
End Sub

Il te suffit d'enlever l'apostrophe pour la partie de code qui t'interresse.

Pas évident de travailler à partir d'une photo. J'ai vu que tu avais un bouton supplémentaire quel est son utilité?

Sinon allège au maximum ton fichier pour le mettre sur le fil!
A te lire.

Edit: En fait tu as 2 boutons supplémentaire "OK" et "Emplacement Document"?

 

[bomagicmusic]

Re : ma text box enregistre toutes les saisies!!!

waouh, merci Alex

Je vais étudier ca tout de suite. En fait mon dernier bouton sert à spécifier l'emplacement du document mais j'ai utilisé get open file name (merci le forum) et ça marche alors...