userform à textbox variable

[kinel]

bonjour le forum

j'ai créé un classeur qui doit être utilisé par de nombreuses personnes (plus ou moins motivées...)

je voudrais qu'à l'ouverture s'affiche un userform ou l'on pourrait lire dans un texbox une partie de la procédure d'utilisation de mon classeur

cette procédure est bien précise, elle reprend aussi les gestes à faire avant et après l'utilisation du classeur excel

si je veux que les informations soient retenues et appliquées il est important d'en afficher qu'une petite partie à la fois

pour créer l'userform, y mettre un textbox et l'oafficher à l'ouverturte du classeur, pas de soucis pour moi

ce qu'il me manque c'est le moyen de varier le contenu du texbox

Merci de votre aide

Kinel

 

[Robert]

Re : userform à textbox variable

Bonjour Kinel, bonjour le forum,

En pièce jointe un proposition avec le code ci-dessous appliqué à une Userform avec un bouton Suivant > et un bouton < Précédent.

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

Le fichier :

 

[kinel]

Re : userform à textbox variable

bonjour Robert

rapide, simple et efficace !

exactement ce que je cherchais à ajouter à mon classeur

salutations d'un chti reconnaissant !

Kinel

 

[kinel]

Re : userform à textbox variable

re bjr

j'installe le super code de notre sétois, c'est lui, c'est Robert ! (désolé pour ce mauvais jeu de mots)

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

dans les textes 0 à 7, je voudrais mettre des retours chariot, comment faut il les écrire ?

merci de vos suggestions

Kinel