texte aléatoire dans un textbox

[kinel]

bonjour le forum

j'utilise le code suivant pour afficher des textes différents dans un textbox, je remercie encore Robert pour ce code
je voudrais le compléter :

d'une part en plaçant des retours à la ligne dans les "textes numérotés"
d'autre part j'aurais aimé obtenir un affichage aléatoire des textes 1 à 7

Merci de votre aide
Kinel

Private msg(0 To 7) As String 'déclare la tableau de variables msg (MESsages) (nombe de messasges à adapter à ton cas)
Private nm As Integer 'déclare la variable nm (Numéro du Message)

Private Sub UserForm_Initialize()
msg(0) = "texte 1" 'à adapter à ton cas
msg(1) = "texte 2" 'à adapter à ton cas
msg(2) = "texte 3" 'à adapter à ton cas
msg(3) = "texte 4" 'à adapter à ton cas
msg(4) = "texte 5" 'à adapter à ton cas
msg(5) = "texte 6" 'à adapter à ton cas
msg(6) = "texte 7" 'à adapter à ton cas
msg(7) = "texte 8" 'à adapter à ton cas
nm = 0 'définit le numéro du message
Me.TextBox1.Value = msg(nm) 'atttibut le texte du message à la TextBox1
End Sub


Private Sub CommandButton1_Click() 'bouton "Suivant >"
nm = nm + 1 'incrémente le numéro de message
If nm > 7 Then nm = 7 'si le numéro dépasse 7 alors le numéro vaut 7
Me.TextBox1 = msg(nm) 'atttibut le texte du message à la TextBox1
End Sub


Private Sub CommandButton2_Click() 'bouton "< Précédent"
nm = nm - 1 'décrémente le numéro de message
If nm < 0 Then nm = 0 'si le numéro est négatif alors le numéro vaut 0
Me.TextBox1 = msg(nm) 'atttibut le texte du message à la TextBox1
End Sub

 

[Modeste geedee]

Re : texte aléatoire dans un textbox

Bonsour®
il ne sert a rien de definir un n° de message lors de l'utilisation des commandButton si c'est pour un affichage aléatoire ...

nb: la propriété WordWrap de la textbox1 doit etre à True .

Option Explicit
Private msg(0 To 7) As String 'déclare la tableau de variables msg (MESsages) (nombe de messasges à adapter à ton cas)
'Public nm As Integer 'déclare la variable nm (Numéro du Message)

Private Sub UserForm_Initialize()
msg(0) = "texte 1 à adapter à ton cas"
msg(1) = "texte 2 " & Chr(10) & "à adapter à ton cas"
msg(2) = "texte 3 à " & Chr(10) & "adapter à ton cas"
msg(3) = "texte 4 à adapter " & Chr(10) & "à ton cas"
msg(4) = "texte 5 à adapter à " & Chr(10) & "ton cas"
msg(5) = "texte 6 à adapter à ton " & Chr(10) & "cas"
msg(6) = "texte 7 " & Chr(10) & "à adapter" & Chr(10) & " à ton cas"
msg(7) = "texte 8 " & Chr(10) & "à " & Chr(10) & "adapter " & Chr(10) & "à " & Chr(10) & "ton" & Chr(10) & " cas"
'nm = 0 'définit le numéro du message
Me.TextBox1.Value = msg(Int(Rnd() * 8)) 'attribut le texte aleatoire du message à la TextBox1
End Sub

Private Sub CommandButton1_Click() 'bouton "Suivant >"
' nm = nm + 1 'incrémente le numéro de message
Me.TextBox1.Value = msg(Int(Rnd() * 8)) 'attribut le texte aleatoire du message à la TextBox1
End Sub

Private Sub CommandButton2_Click() 'bouton "< Précédent"
'nm = nm - 1 'décrémente le numéro de message
Me.TextBox1.Value = msg(Int(Rnd() * 8)) 'atttibut le texte aleatoire du message à la TextBox1
End Sub

 

[kinel]

Re : texte aléatoire dans un textbox

excel...lent et si rapide cette super réponse de Modeste geedeee

merci beaucoup

Kinel