Automatiser un UserForm
Bonjour,
J'ai lu quelques cours qui m'ont permis de faire des petites choses mais cela ne fait pas ce que je veux je vous partage ce que j'ai fais, si quelqu'un peu m'aider à comprendre
Private Sub UserForm_Initialize()
Dim Q As Range
Dim Question As String
For Each Q In Worksheets("Questions").Range("A2:A35")
Label5 = Worksheets("Questions").Cells(Q.Row, 1)
If CommandButton1 = True Then
Q = Q + 1
End If
If CommandButton4 = True Then
End If
Next
End Sub
Le but de cela est de prendre dans la feuille "Questions", le "question 1", l'afficher dans le label5 et ensuite si la réponse est positive (bouton vert) alors passer à la question suivante.
Il faut que je fasse la même chose avec la colonne juste à côté qui eux vont aller dans le label2.
Merci d'avance aux personnes qui pourront avoir une idée de comment faire.
Bonne journée
J'ai lu quelques cours qui m'ont permis de faire des petites choses mais cela ne fait pas ce que je veux je vous partage ce que j'ai fais, si quelqu'un peu m'aider à comprendre
Private Sub UserForm_Initialize()
Dim Q As Range
Dim Question As String
For Each Q In Worksheets("Questions").Range("A2:A35")
Label5 = Worksheets("Questions").Cells(Q.Row, 1)
If CommandButton1 = True Then
Q = Q + 1
End If
If CommandButton4 = True Then
End If
Next
End Sub
Le but de cela est de prendre dans la feuille "Questions", le "question 1", l'afficher dans le label5 et ensuite si la réponse est positive (bouton vert) alors passer à la question suivante.
Il faut que je fasse la même chose avec la colonne juste à côté qui eux vont aller dans le label2.
Merci d'avance aux personnes qui pourront avoir une idée de comment faire.
Bonne journée
E
C'est la même chose qu'ici ? Marcau86
Oui, je n'ai fait que copier - coller ses messages de sorte à ce qu'il ait potentiellement plus de réponses (même chose pour la question par rapport à l'en tête :) )