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
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