Discussion :

[chris6666]

Bonjour,
J'ai un USF avec une zone de texte alimentée par une cellule...peut on l'alimenter par d'autres cellules si une case à cocher ou un bouton de commande ?
ex zone alimente par ab3
si je selectionne a4 je voudrais qu'elle soit alimenté par ab4..

merci de votre aide
Christian

[tototiti2008]

Bonjour,

Comment est-elle alimentée ?
Par quel code (ou quelle propriété de la zone de texte) ?

Sinon, la réponse est oui

[chris6666]

Bonjour j'ai réussi a alimenter ma textbox depuis ma cellule ,mes petits problémes restant
- quand je l'affiche.....j'ai le curseur dans la zone texte et je peut modifier
- Le texte pris dans la cellule et une concatenation d'abreges de 15 cellules séparés par des virgules , y a t'il un moyen pour que dans
la zone de texte cela passe a la ligne en dessous a chaque virgule!
j'espere etre assez clair ..

merci de ton aide

Chris

[tototiti2008]

Re,

Je demandais comment la Textbox est alimentée en fonction de la cellule
Y a t-il du code évènementiel qui remplit la Textbox ? Est-ce grace à la propriété ControlSource de la Textbox ?
S'il y a du code VBA qui remplit la Textbox, quel est-il ? Peux-tu fournir ce code ?
Il y a potentiellement la possibilité d'afficher plusieurs lignes de texte dans une Textbox, en jouant avec sa propriété Multiline

Mais si tu ne nous fournis ni fichier exemple, ni code, ni réponse aux questions, on ne pourra pas beaucoup t'aider plus

[chris6666]

Re,

Je demandais comment la Textbox est alimentée en fonction de la cellule
Y a t-il du code évènementiel qui remplit la Textbox ? Est-ce grace à la propriété ControlSource de la Textbox ?
S'il y a du code VBA qui remplit la Textbox, quel est-il ? Peux-tu fournir ce code ?
Il y a potentiellement la possibilité d'afficher plusieurs lignes de texte dans une Textbox, en jouant avec sa propriété Multiline

Mais si tu ne nous fournis ni fichier exemple, ni code, ni réponse aux questions, on ne pourra pas beaucoup t'aider plus

[tototiti2008]

Re,

Oui, j'ai besoin de savoir comment tu as fait ce que tu as déjà fait pour répondre correctement à la question suivante, désolé

[Valtrase]

Bonjour à tous,
@chris6666, Il y a plusieurs étapes pour arriver à ce résultat.

• Mettre la propriété Multiline de la zone de texte sur 'True'
• Mettre la propriété WordWrap sur 'True'
• A l'importation de la valeur de la cellule remplacer la virgule par la constante 'vbNewLine'

N'ayant pas plus d'informations que cela, voici un exemple de formatage quand on clique sur le bouton 'CommandButton1'

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
    Dim newFormatTextBox As String                          ' // Déclaration d'une variable temporaire.
    newFormatTextBox = Feuil1.Range("AB4").Value            ' // Modifier ici le nom de la feuille source, ainsi que la cellule.
    With TextBox1                                           ' // On travaille avec les propriété de TexBox1. Au besoin changez son nom.
        .Multiline = True                                   ' // Obligation de passer la propriété multiline à 'True' pour les retours à la ligne.
        .WordWrap = True
        .Value = Replace(newFormatTextBox, ",", vbNewLine, 1, -1, vbTextCompare) '// On affecte la nouvelle valeur à la zonz de texte.
    End With
End Sub

[deedolith]

Hello,

En mettant a jour le propriété ControlSource ?
Exemple:

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
    If (TextBox1.ControlSource = "A1") Then
        TextBox1.ControlSource = "A2"
    Else
        TextBox1.ControlSource = "A1"
    End If
End Sub