Barre déroulante pour faire défiler le texte ds une cellule

[gdcobra91]

Bonjour,

Est-il possible d'utiliser la barre déroulante pour faire défiler le texte présent dans une cellule? Et quelle est la méthode?

J'ai testé la barre de défilement de la barre d'outil Formulaire, mais cette dernière permet simplement d'augmenter ou de diminuer une valeur d'une cellule.

Pouvez-vous m'aider.

Merci.

 

[BOISGONTIER]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Bonjour,

On peut faire défiler un champ dans une zone de liste


JB

 

[gdcobra91]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Merci pour votre réponse. En réalité, je cherchais la possibilité d'améliorer la lisibilité au texte présent dans la cellule. J'avais pensé pour cela à un ascenseur sur le côté tout en gardant la possibilité de modifier le texte à l'intérieur de la cellule (et directement dans la cellule).

Avez vous une idée?

1 PJ

Merci par avance.

 

[BOISGONTIER]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Bonjour,

Voir PJ

JB

 

[yannick91]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Merci bcp! Ta solution me convient! Par contre, le seul pb, lorsque je double-clic par erreur sur une cellule comportant une formule ou sur une cellule (format= heure) alors la cellule est ds le 1er cas égale à la valeur et non plus à la formule et ds le 2e cas, égale à une valeur numérique de l'heure?!

Comment peut-on restreindre l'affichage du formulaire à certains colonne et non à toute? Ou peut-on empêcher le changement de la valeur d'une cellule comportant une formule ou une heure et laisser la possibilité de modifier les autres cellules?

Merci.

 

[BOISGONTIER]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Solution 1:

Quand on double clic sur une cellule vide, on annule l'événement

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target <> "" Then
       UserForm1.TextBox1 = Target
       UserForm1.Show
    End If
    Cancel = True
End Sub

Solution2:

On limite aux colonnes 1 à 3

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Column >= 1 And Target.Column <= 3 Then
    If Target <> "" Then
       UserForm1.TextBox1 = Target
       UserForm1.Show
    End If
    Cancel = True
   End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  On Error Resume Next
  UserForm1.Hide
End Sub

JB

 

[gdcobra91]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Un gd merci !!! J'ai choisi la 2e méthode pour info, elle répond parfaitement à ce que je voulais faire.

Encore merci pour ton aide.

Ps: Si tu as le temps, j'ai 2 autres sujets en cours sur le forum. Tu auras peut-être une solution ;-)

 

[gdcobra91]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Bonjour,

Je suis parvenu ds les options de la form UserForm1, à modifier l'emplacement de cette forme lors de son affichage mais je ne parviens pas à régler sa taille lors de son affichage et de pouvoir modifier sa taille après son affichage (par l'utilisateur).

Comment dois-je faire?

Merci.

 

[BOISGONTIER]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Bonjour,

Double-clic sur le formulaire pour augmenter sa taille:

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.Zoom = Me.Zoom * 1.05
Me.Width = Me.Width * 1.05
Me.Height = Me.Height * 1.05
End Sub

JB

 

[gdcobra91]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Bonjour,

Si j'ai bien compris la solution que tu me propose est de zoomer le texte donc la fenêtre est plus grande. De plus, il n'est plus possible de modifier le texte à l'intérieur du formulaire (dès que l'on clique sur la croix rouge pour fermer, l'ancien texte reste présent).

Lorsque je double-clique sur la cellule, je voulais obtenir un formulaire 2 fois plus grand tout en laissant la possibilité de modifier le texte à l'intérieur du formulaire. De plus, est-il possible de régler la taille du formulaire lorsqu'il est actif (en tirant sur les bords du formulaire).

Merci.

 

[BOISGONTIER]

Re : Barre déroulante pour faire défiler le texte ds une cellule

J'avais supprimé par erreur une partie de code du formulaire.
Pour agrandir le formulaire avec la souris, je ne sais pas si cela est possible. Post une nouvelle demande.

JB

 

[gdcobra91]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Bonjour,

Je ne parviens à comprendre comment avec ta nouvelle solution, augmenter ou diminuer la taille du formulaire UserForm (taille du champ TEXTE).

J'ai essayé:

Me.Zoom = Me.Zoom * 1
Me.Width = Me.Width * 1
Me.Height = Me.Height * 1

Me.Zoom = Me.Zoom * 200
Me.Width = Me.Width * 200
Me.Height = Me.Height * 200

Et j'obtiens toujours la même taille du formulaire?!!! Je ne comprends pas pourquoi?!

Pouvez-vous m'expliquer?

Merci.

 

[BOISGONTIER]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Bonsoir,

Me.Zoom = Me.Zoom * 1 ne change pas la taille.


Pour doubler, il faut:

Me.Zoom = Me.Zoom * 2

ou

Me.Zoom=200

JB

 

[gdcobra91]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Cela ne marche pas chez moi apparemment. Je ne comprends tjs pas.

Qn peut-il m'envoyer un fichier avec la modification (taille de UserForm1 x 3).

Merci.

 

[BOISGONTIER]

Re : Barre déroulante pour faire défiler le texte ds une cellule

Bonjour,


Voir PJ

Private Sub TextBox1_Change()
   ActiveCell = Replace(Me.TextBox1, Chr(13), "")
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If UserForm1.Zoom = 100 Then
    UserForm1.Zoom = 200
    UserForm1.Width = Me.Width * 2
    UserForm1.Height = Me.Height * 2
  Else
    UserForm1.Zoom = 100
    UserForm1.Width = Me.Width / 2
    UserForm1.Height = Me.Height / 2
  End If

  Cancel = True
End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Me.Zoom = 100 Then
    Me.Zoom = 200
    Me.Width = Me.Width * 2
    Me.Height = Me.Height * 2
  Else
    Me.Zoom = 100
    Me.Width = Me.Width / 2
    Me.Height = Me.Height / 2
  End If
End Sub

JB