Réinitialiser un TextBox

Version imprimable

Bonjour,

La cellule A1 se remplie à partir d'un Textbox.

Dans le UF, j'ai le choix de valider ou d'effacer la saisie.
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Valider_Click() [a1] = TextBox1.Value Unload Me 'Vide et ferme le UserForm End Sub Private Sub Effacer_Click() 'If TextkBox1 Then TextBox1 = "" [a1].ClearContents End Sub Private Sub UserForm_Initialize() Me.TextBox1 = Sheets("Feuil1").[a1] End Sub
J'ai besoin de voir apparaitre le contenu de A1 dans le Textbox à l'ouverture du UF (pour le corriger éventuellement).

Comment puis-je supprimer le contenu du Textbox ?
Avec le code ci-dessus, A1 se vide mais pas le Textbox (sauf si je le ferme).

Merci d'avance pour vos lumières,
Cdt

26/02/2018, 17h30
Marc-L

Bonjour,

pourquoi alors avoir mis la ligne de code n°6 en commentaire ?!

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
26/02/2018, 17h36
jpma75

Bonjour,

Parce que c'est avec ce code que j'effaçais mon Textbox.
Mais depuis, j'ai ajouté :

Code:

UserForm_Initialize

et il m'a semblé que c'était incompatible avec la ligne 6 (si j'efface le Textbox, il se réinitialise avec le contenu de A1).
Cdt
26/02/2018, 19h28
unparia

Bonjour
Et dire qu'il suffirait de lier la textbox de l'userform à la cellule en cause ... (propriété Controlsource de la textbox) !
26/02/2018, 19h49
jpma75

Bonjour,

J'ai ajouté A1 dans Controlsource de la textbox et ma question est résolue !

Merci beaucoup !!

Cdt
26/02/2018, 19h58
unparia

Je te conseille de ne pas utiliser A1 tout seul, mais de préciser la feuille, genre :
Feuil1!A1
de sorte à ne pas avoir de surprise lorsque, par hasard, la feuille active est autre que celle de la cellule A1.
26/02/2018, 20h00
jpma75

J'y ai pensé juste après avoir posté.
Merci pour ce précieux conseil !
Cdt
27/02/2018, 14h43
jpma75

Bonjour,

Appliqué à mon classeur, cet essai ne fonctionne plus.

En effet, le ControlSource doit maintenant faire référence à une plage de cellules fusionnées.
Si j'ajoute A1:A10 dans la fenêtre de propriétés, j'obtiens le message d'erreur : "Impossible de définir la propriété ControlSource. Valeur de propriété non valide".

Besoin de votre aide, svp !
Cdt
27/02/2018, 18h14
clementmarcotte

Ne jamais utiliser de cellules fusionnées. C'est du trouble par-dessus du trouble par-dessus du trouble.

Habituellement, l'adresse des cellules fusionnées, c'est celle de la première cellule.
27/02/2018, 18h21
jpma75

Bonjour,

Certes, mais avant que j'applique cette recommandation et que je renonce aux cellules fusionnées, y aurait-il une solution à mon "problème" ?

Cdt
27/02/2018, 18h42
unparia

Citation:

mais avant que j'applique cette recommandation et que je renonce aux cellules fusionnées, y aurait-il une solution à mon "problème" ?

Non. Défusionne ces cellules.
27/02/2018, 19h19
jpma75
Non, pour cette fois !

J'ai ajouté ça et ça fonctionne... pour l'instant :
(Ma zone fusionnée est K6:O7)
Code:

1 2 3 4 5 6 7 Private Sub Effacer_Click() ' If TextkBox1 Then TextBox1 = "" ' [k6].ClearContents With ActiveSheet.Range("k6") .MergeArea.ClearContents End With End Sub
Et j'ai laissé K6 en ControlSource

Cdt

Question subsidiaire :
J'ai mis True à MultiLine
Mais peut-on limiter le nombre de lignes possibles ? Ex : N'autoriser que 3 lignes de saisies dans le Textbox
27/02/2018, 19h42
unparia

1) je ne saurais trop insister :
---a) ne jamais mettre des données à exploiter dans des cellules fusionnées. VBA n'aimera jamais et tu auras toujours une épée de Damoclès au-dessus de ta tête.
---b) si cellules fusionnées avec autre chose que des données, ne jamais travailler sur une plage incluant ces cellules.
2) pour répondre à ta question relative au nombre de lignes (entendons par là lignes REELLES - séparées par un vrai saut de ligne - et non lignes de simple "affichages") : iol t'est bien évidemment possible de le limiter (dans une textbox multiligne). Il te suffit pour cela de compter le nombre de fois que tu utilises la constante vbcrlf lors de la saisie (dans l'évènement Change de la textbox, par exemple)

Code:

toto = UBound(Split(TextBox1.Text, vbCrLf))+1 ' t'indiquera ce nombre

A toi de gérer si toto > ton nombre maxi admis.

Ceci étant dit : je ne comprends vraiment pas l'utilité réelle d'une telle démarche.
Un tableur efficace est composé de "champs" (des cellules). On ne met jamais plusieurs données dans un même champ (que ce soit sur un tableur ou dans une table de données SGBD !)
27/02/2018, 19h55
jpma75

Merci unparia,

Pour permettre mon retour à la ligne dans le TextBox, j'ai mis :

Code:

EnterKeyBehavior True

sauf si je n'ai pas bien compris ta proposition, il m'est donc impossible de compter les vbCrLf

En fait, le contenu du TextBox va être recopié dans ma zone... fusionnée. Comme l'utilisateur peut ajouter autant de lignes qu'il veut (par Entrée) dans le cadre du TextBox (même si je l'ai calibré sur la taille de ma zone fusionnée), le résultat peut être inesthétique.

A moins qu'on puisse limiter la saisie dans un TextBox à sa taille visible par l'utilisateur, et pas au-delà ?!

Cdt
27/02/2018, 20h00
unparia

Citation:

En fait, le contenu du TextBox va être recopié dans ma zone... fusionnée.

Je t'abandonne avec le même entêtement que le tien (je ne participe jamais à des manoeuvres que je réprouve). Désolé.
27/02/2018, 20h02
jpma75

vu
27/02/2018, 22h17
clementmarcotte

Citation:

Envoyé par jpma75

En fait, le contenu du TextBox va être recopié dans ma zone... fusionnée.Cdt

Donc, tu veux que la prochaine fois que tu vas arriver à l'hôpital avec la jambe cassée, ce soit le psychiatre qui te soignes.

Excel n'est pas un traitement de texte. Si au moins tu mettais un TextBox sur ta feuille pour afficher ton texte, ce serait moins pire...