Retour a la ligne dans un textbox.

[DUCL44]

BONJOUR @ TOUS

Voila mon probleme, Je suis en train de réalisé (grace a votre aide ) un programme dans lequel j'ai des texbox. Lorsque je rempli un texbox il me rempli une cellule défini.
Mais comment faire pour revenir a la ligne?
Lorsque l'on tape du texte dans une cellule pour revenir a la ligne il suffit de faire ALT+ENTREE
Qu est ce qu'il faut que je tape dans le texbox pour qu'il revienne a la ligne (dans la cellule defini)

Merci @ vous

DUCL

 

[Vériland]

Bah!...c'est p'têt pas dispo dans ton Excel...C'est quoi ta version ?....

Oups ! je vois que tu viens de répondre...donc c'est bon...

Ben moi aussi j'ai Excel 2000...!!??!!

Alors...dans ton menu Format as-tu bien ouvert toutes les options qu'il contient ?

j'veux dire en cliquant sur >> (à l'envers) ?? il doit y être normalement...

à suivre...

 

[DUCL44]

non vériland j'ai juste cellule en gris et feuille

Bon ca va etre simple je vais réinstallé et pis c tous

On va voir ce que ca donne

Merci de ton aide

@+

DUCL

 

[Vériland]

Attends Ducl44...supprime juste ton fichier "Excel.XLB"...j'suis sûr qu'il est en cause...Tu sais comment on fait ?

 

[Vériland]

bon ben si tu ne sais pas de quoi il s'agit suis Lien supprimé...il y a plus qu'à suivre les étapes...

après j'suis presque sûr que tu auras une barre d'outils toute neuve...vas-y çà coûte rien...c'est déjà plus simple que de faire un réinstalle complète...

 

[DUCL44]

Trop tard veriland j'ai réinstaller mais ca na rien changer alors j'essai ton truc

je te dis si ca marche

A toute suite

DUCL

 

[DUCL44]

OUF je viens de réussir

En effet sous windows xp application data est un dossier caché et donc je ne trouvais pas le fichier.

Mais bon c'est de l'histoire ancienne maintenant ;-)

Aller encore merci et moi je me remet au boulot

Bonne soiré

DUCL

 

[Vériland]

Allez...bon courage pour la suite

 

[DUCL44]

Merci ;-)

 

[DUCL44]

Salut c'est encore moi et mon probleme de cellule qui ne s'agrandit pas automatiquement.
En fait c'est à cause de mes cellules qui sont fusionnée. Si vous tester la piece jointe dans une cellule normal elle va s'agrandir automatiquement et si vous la tester dans une cellule normal elle va etre redimentionnée.

Idem si vous ouvrez un nouveau classeur vierge, si vous tapez du texte dans une cellule et que vous faite un retour a la ligne avec alt+enter la cellule va ce mettre a jour. En revanche si c'est une cellule fusionné non.

Si quelqu'un a une idée pour les retours a la ligne avec les cellules fussionnées merci de m'aider

@+ tous le monde et bonne nuit

DUCL

 

[Vériland]

re...

oui c'est le problème avec les cellules fusionnées...il faudrait p'têt une macro qui défusionne et qui fusionne après...mazis bon...c'est p'têt un peu lourd...

Donc voici une autre solution pour les cellules fusionnées...

tu rajoutes ceci dans la procédure...

Selection.RowHeight = 36

cela consiste à agrandir la hauteur de ligne de 36 quelle soit fusionnées ou non...alors bien sûr tu pourrais faire en sorte d'appliquer des conditions différentes selon les réponses

par exemple

si une ligne = 12
si deux lignes = 24
si trois lignes = 36

etc...

C'est une idée...

 

[DUCL44]

Oui merci veriland ca devrais le faire ca.
en tous les cas je vais essayer

Merci

DUCL.

 

[DUCL44]

Je viens de tester ca marche

Bon ce qu'il serait bien maintenant c'est de faire l'inverse.
La je rempli les 3 textbox et il me l'affiche dans une seul cellule.
exemple si je suis dans la cellule A1 et que je clique sur le bouton et que je rempli 1 dans le texbox1, 2 dans le textbox2 et 3 dans le textbox3 je vais avoir en A1:
1
2
3

Maintenant ce que j'aimerais c'est si je reclique sur cette case A1(maintenant rempli) et que je clique sur le bouton, texbox1 affiche 1 texbox2 affiche 2 et texbox3 affiche 3. (Pour ne pas avoir a tous retaper si je dois modifier.)

et la je ne sais pas comment faire non plus et je ne sais pas si c possible.

En tous les cas merci d'avance et @ demain maintenant (quoique peut etre qu a vendredi on verra )

DUCL

 

[DUCL44]

Pas d'idée? :-(

 

[@+Thierry]

SAlut Ducl44, Vériland, Thomas, Ch'ti Minick

Pas encore fini ce fil !!! et dire que j'attends tes commentaire pour les ComboBox ...

Bon pour tous tes problèmes, voici le code complet du Private Module de Ton UserForm...


Option Explicit

Dim LeTexte As String
Private Sub UserForm_Initialize()
If ActiveCell <> "" Then RecoverCell
End Sub

Sub RecoverCell()
Dim Contenu
On Error Resume Next
Contenu = Split(ActiveCell.Value, Chr(10))
TextBox1 = Contenu(0)
TextBox2 = Contenu(1)
TextBox3 = Contenu(2)
End Sub


Private Sub CommandButton1_Click()
Dim Test As Byte
If TextBox1 <> "" Then Test = 1
If TextBox2 <> "" Then Test = 2
If TextBox3 <> "" Then Test = 3

Select Case Test
Case Is = 1: LeTexte = TextBox1
Case Is = 2: LeTexte = TextBox1 & vbCrLf & TextBox2
Case Is > 2: LeTexte = TextBox1 & vbCrLf & TextBox2 & vbCrLf & TextBox3
End Select

LeTexte = Application.WorksheetFunction.Substitute(LeTexte, vbCrLf, Chr(10))
ActiveCell.Value = LeTexte
AutoFiting
Unload UserForm1
End Sub

Sub AutoFiting()
Dim L1 As Byte, L2 As Byte, L3 As Byte, H As Single
L1 = Len(TextBox1)
L2 = Len(TextBox2)
L3 = Len(TextBox3)

If L1 > 0 Then H = 12.75
If L2 > 0 Then H = H + 12.75
If L3 > 0 Then H = H + 12.75

ActiveCell.RowHeight = H

End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub




La macro AutoFiting est là pour le Fun avec une Méthode Len... mais en mettant la variable Test en Public on saurait déjà si les trois Textbox sont remplies....

Bonne Soirée
@+Thierry

PS La Fonction SPLIT utilisée ici, je crois, n'est pas valable sous XL 97

 

[DUCL44]

Merci @+thierry c vraiment super tous ce que tu fait pour moi je te remerci encore une fois.
Le code je le testerais et l'etudirais demain car la je vais me coucher.
Pour les combobox j'ai commencé a regarder le code mais ca a l'air vraiment compliquer mais je n'abdique pas. J'ai tous sauvgarder sur mon disque dur .

En plus je suis bientot en vacance et j'aurais donc plus de temps pour mon apprentissage .

En tous les cas encore merci pour ce code et les autres.

@ bientôt sur le net

DUCL