Discussion :

[lio62]

Bonsoir

dans un fichir excel avantt d'imprimer je voudrais que l'utilisateur puisse mettre ses observations
j'ai ddonc crée un userform et je rencontre plusieurs problème voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
[a65536].End(xlUp).Select
 ActiveCell.Offset(2, 0).Value = "OBSERVATIONS"
 ActiveCell.Offset(4, 0).Value = TextBox1
 
 
   'ActiveCell.EntireRow.Offset(0, 0).Range("a1:d1").Select
'With Selection
        '.HorizontalAlignment = xlGeneral
        '.VerticalAlignment = xlBottom
        '.WrapText = True
        '.Orientation = 0
        '.AddIndent = False
        '.ShrinkToFit = False
        '.MergeCells = True
   ' End With

1) premier problème le texte continue sur la meme ligne et depasse les marges
si j'essaye de fusionner il me mets valeur dans la cellule fusionnée

2) a chaque fois que je tape sur la touche entree c'est le bouron ENTRER qui est sélectionné. peut on inhiber la touche ENTREE et obligé l'utilisateur a se servir de la souris pour valider la saisie


merci a+

[ouskel'n'or]

Tu as la propriété Multiligne dans ton textbox, tu as essayé en mettant = true
Tu as la même propriété dans le format de cellule. Regarde dans Format -> Cellule -> Onglet Alignement
A+

[lio62]

bonsoir Ouskel

j'ai passé le text box en multiligne mais c'est la recopie dans la cellule qui pose problème

en ce qui concerne la propriété ce ne sera pas toujours la meme cellule qu'il faudra autoriser le retour a la ligne puis sur une seule cellule ca va me faire un truc énorme
tandis que si je peux "m'exprimer" sur toute la largeur (de la colonne A à la collone M) de la page c plus cool.


merci
a+

[ouskel'n'or]

Alors tu peux fusionner tes cellules et placer ton texte dans la 1ère cellule de la plage fusionnée. Avant ou après fusion. C'est to cool non ?
A+

Attention : Pour faire référence à la plage, c'est toujours l'adresse de la première cellule de la plage : pas commode à utiliser C'est beaucoup moins cool.

[lio62]

j'ai mis ca comme code est j'ai valeur dans la cellule sans fusion j'ai pas de pb mais la??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
[a65536].End(xlUp).Select
 ActiveCell.Offset(2, 0).Value = "OBSERVATIONS"
 ActiveCell.Offset(4, 0).Select
  ActiveCell.EntireRow.Offset(0, 0).Range("a1:m1").Select
With Selection
        .HorizontalAlignment = xlGeneral
       .VerticalAlignment = xlBottom
       .WrapText = True
       .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = True
    End With
 ActiveCell.Offset(0, 0).Value = TextBox1

merci
a+

[ouskel'n'or]

Oui, c'est bien...


Quel est le pb ?