Discussion :

[bilbin]

Bonjour à toute la communauté !!
Je suis nouveau sur ce forum et je débute aussi depuis quelques jours le language VBA donc j'espère que j'arriverai à trouver ici les solutions à mes problèmes car ils s'élèvent au nom de 2.

Le premier traite de l'affichage d'une textBox. J'aimerai en effet, grâce à un spinbutton changer le texte affiché dans une textbox. Dans le classeur mis en PJ, un tableau à une colonne contient plusieurs valeurs (A. , B. , C. etc ) et j'aimerai que quand on appuie sur la flèche descendante du spinbutton, la textbox affiche la valeur suivante du tableau ("B."). Puis quand on réappuie sur la flèche descendante, que la texte box affiche "C." et ainsi de suite. Et dans le cas où on appuie sur la flèche ascendante, cela revienne à la valeur précédente.

Le deuxième problème que je rencontre et qui est plus complexe je pense et à propos d'une ListBox. J'aimerai exporter depuis excel LES lignes sélectionnées par l'utilisateur d'une ListBox vers un signet se trouvant dans un document word déjà ouvert. J'arrive à exporter une ligne de la listBox vers le signet Word mais pas plusieurs lignes de la listBox. Quel est le code VBA qu'il faut écrire pour pouvoir exporter toutes les lignes sélectionnées par l'utilisateur ?

Je joins les deux classeur excel ainsi que des captures des problèmes.

Merci d'avance pour l'aide que vous pourrez m'apporter. En espérant que certains pourront m'aider

[anasecu]

Bonjour,

J'aimerai en effet, grâce à un spinbutton changer le texte affiché dans une textbox.

Tu n'as pas très bien compris le fonctionnement du 'spinbutton' dont il te faut fixer la valeur minimum à la plus petite ligne à afficher et maximum à la plus grande dans les propriétés,
et il ne faut pas lier ta textbox à B3 car sinon tu écrases ton tableau.

Si ensuite tu mets ce code sur ta feuille cela devrait fonctionner :

Code :

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

1
2
3
Private Sub SpinButton1_Change()
    Me.TextBox1 = ActiveSheet.Range("B" & SpinButton1.Value).Value
End Sub

[bilbin]

Bonjour anasecu,

Je te remercie de ta réponse. En effet, je n'avais pas saisi le fonctionnement du spinbutton. La subtilité du :"B" & SpinButtonValue permet de faire exactement ce que je voulais. Merci pour ces informations qui vont me faire progresser dans mon projet.

As-tu cependant une idée pour le deuxième problème que j'ai énoncé précédemment ?

[anasecu]

Bonjour bilbin,

As-tu cependant une idée pour le deuxième problème que j'ai énoncé précédemment ?

Si j'ai compris, tu peux essayer ceci si ton code envoie déjà une ligne :

Code :

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

1
2
3
4
5
6
7
8
Dim i As Long
Dim envoi As String
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            envoi = envoi & ListBox1.List(i) & vbLf
        End If
    Next i
    Word.ActiveDocument.Bookmarks("warning").Range = envoi

[bilbin]

Bonsoir anasecu,

Merci de ce retour rapide et fonctionnel !! J'ai intégré ce bout de code à celui que j'avais déjà fait et ça marche !!

Deux dernières questions : pourquoi avoir mis le -1 au ListCount -1 ? (ligne 3 de votre code précédant)
Le "& vblf" utilisé à la fin de la ligne de code 5 a quelle fonction ?

En tout cas, merci encore pour cette précieuse aide et bonne continuation

[anasecu]

Bonsoir,

pourquoi avoir mis le -1 au ListCount -1 ?

L'index de la listbox commence à zéro (For i = 0 To) mais le compteur commence à 1
et donc si tu as 6 lignes il faut aller de 0 à 5

Le "& vblf" utilisé à la fin de la ligne de code 5 a quelle fonction ?

le Visual Basic Line Feed, vblf rajoute simplement un saut de ligne après chaque élément car sinon tes sélections se seraient retrouvées collées sans espace de séparation.

C'est parfait d'essayer de comprendre ce que tu fais dans le code car c'est ainsi que l'on progresse : bonne continuation.