J'ai encore besoin d'un petit coup de main.
Je travaille dans un fichier Excel : Feuille = Questions / 1ère ligne =
titres / colonne J = les réponses
Sur ma userform, j'ai, entre autre, un bouton (bt_afficher) et une cbox
(cbox_questions_no) . J'ai besoin, lorsqu'on clique sur le bouton, qu'il
m'affiche une msgbox avec la valeur qui est contenue dans une des cellulle de
la colonne J en fonction du No de question choisie (question 1 = ligne 2 et
réponse = J2 etc...). Comme il y a 120 questions, je pensais faire un truc du
genre :
Private Sub bt_afficher_Click()
If cbox_questions_no.Value = 1 Then
MsgBox "La réponse est " &
ActiveWorkbook.Sheets("Questions").Range(cbox_questions_no.Value + 1).Value
&, vbOKOnly + vbInformation, "* * * MAIS QUELLE EST LA BONNE REPONSE...???
* * *"
End If
End Sub
Mais évidemment ça ne fonctionne pas... et je ne sais pas comment faire
:-(( alors si quelqu'un a une solution, je suis preneur.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LSteph
Bonjour Congelator,
Private Sub bt_afficher_Click()
If cbox_questions_no.ListIndex > -1 Then MsgBox "La réponse est " & _ Worksheets("Questions") _ .Cells(cbox_questions_no.ListIndex + 2, 10), _ vbOKOnly, "Mais quelle réponse" Else MsgBox "Faut choisir"
End If
End Sub
'lSteph "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de news:
Salut tout le monde,
J'ai encore besoin d'un petit coup de main. Je travaille dans un fichier Excel : Feuille = Questions / 1ère ligne > titres / colonne J = les réponses Sur ma userform, j'ai, entre autre, un bouton (bt_afficher) et une cbox (cbox_questions_no) . J'ai besoin, lorsqu'on clique sur le bouton, qu'il m'affiche une msgbox avec la valeur qui est contenue dans une des cellulle de la colonne J en fonction du No de question choisie (question 1 = ligne 2 et réponse = J2 etc...). Comme il y a 120 questions, je pensais faire un truc du genre :
Private Sub bt_afficher_Click()
If cbox_questions_no.Value = 1 Then MsgBox "La réponse est " & ActiveWorkbook.Sheets("Questions").Range(cbox_questions_no.Value + 1).Value &, vbOKOnly + vbInformation, "* * * MAIS QUELLE EST LA BONNE REPONSE...??? * * *" End If End Sub
Mais évidemment ça ne fonctionne pas... et je ne sais pas comment faire :-(( alors si quelqu'un a une solution, je suis preneur.
Merci ! -- Céd / Lausanne
Bonjour Congelator,
Private Sub bt_afficher_Click()
If cbox_questions_no.ListIndex > -1 Then
MsgBox "La réponse est " & _
Worksheets("Questions") _
.Cells(cbox_questions_no.ListIndex + 2, 10), _
vbOKOnly, "Mais quelle réponse"
Else
MsgBox "Faut choisir"
End If
End Sub
'lSteph
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news: 2FF34DD3-E095-4EC4-ADAF-BACF0E07344E@microsoft.com...
Salut tout le monde,
J'ai encore besoin d'un petit coup de main.
Je travaille dans un fichier Excel : Feuille = Questions / 1ère ligne > titres / colonne J = les réponses
Sur ma userform, j'ai, entre autre, un bouton (bt_afficher) et une cbox
(cbox_questions_no) . J'ai besoin, lorsqu'on clique sur le bouton, qu'il
m'affiche une msgbox avec la valeur qui est contenue dans une des cellulle
de
la colonne J en fonction du No de question choisie (question 1 = ligne 2
et
réponse = J2 etc...). Comme il y a 120 questions, je pensais faire un truc
du
genre :
Private Sub bt_afficher_Click()
If cbox_questions_no.Value = 1 Then
MsgBox "La réponse est " &
ActiveWorkbook.Sheets("Questions").Range(cbox_questions_no.Value +
1).Value
&, vbOKOnly + vbInformation, "* * * MAIS QUELLE EST LA BONNE
REPONSE...???
* * *"
End If
End Sub
Mais évidemment ça ne fonctionne pas... et je ne sais pas comment faire
:-(( alors si quelqu'un a une solution, je suis preneur.
If cbox_questions_no.ListIndex > -1 Then MsgBox "La réponse est " & _ Worksheets("Questions") _ .Cells(cbox_questions_no.ListIndex + 2, 10), _ vbOKOnly, "Mais quelle réponse" Else MsgBox "Faut choisir"
End If
End Sub
'lSteph "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de news:
Salut tout le monde,
J'ai encore besoin d'un petit coup de main. Je travaille dans un fichier Excel : Feuille = Questions / 1ère ligne > titres / colonne J = les réponses Sur ma userform, j'ai, entre autre, un bouton (bt_afficher) et une cbox (cbox_questions_no) . J'ai besoin, lorsqu'on clique sur le bouton, qu'il m'affiche une msgbox avec la valeur qui est contenue dans une des cellulle de la colonne J en fonction du No de question choisie (question 1 = ligne 2 et réponse = J2 etc...). Comme il y a 120 questions, je pensais faire un truc du genre :
Private Sub bt_afficher_Click()
If cbox_questions_no.Value = 1 Then MsgBox "La réponse est " & ActiveWorkbook.Sheets("Questions").Range(cbox_questions_no.Value + 1).Value &, vbOKOnly + vbInformation, "* * * MAIS QUELLE EST LA BONNE REPONSE...??? * * *" End If End Sub
Mais évidemment ça ne fonctionne pas... et je ne sais pas comment faire :-(( alors si quelqu'un a une solution, je suis preneur.
Merci ! -- Céd / Lausanne
Congelator
Salut LSteph
FA-BU-LEUX... c'est tout à fait ce que je voulais faire et en plus je m'attendais à devoir le faire pour chaque question (120) et ton code le fait tout seul... Je n'ai pas tout compris comment il le fait mais ça marche.
M E R C I ! -- Céd / Lausanne
Bonjour Congelator,
Private Sub bt_afficher_Click()
If cbox_questions_no.ListIndex > -1 Then MsgBox "La réponse est " & _ Worksheets("Questions") _ .Cells(cbox_questions_no.ListIndex + 2, 10), _ vbOKOnly, "Mais quelle réponse" Else MsgBox "Faut choisir"
End If
End Sub
'lSteph "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de news:
Salut tout le monde,
J'ai encore besoin d'un petit coup de main. Je travaille dans un fichier Excel : Feuille = Questions / 1ère ligne > > titres / colonne J = les réponses Sur ma userform, j'ai, entre autre, un bouton (bt_afficher) et une cbox (cbox_questions_no) . J'ai besoin, lorsqu'on clique sur le bouton, qu'il m'affiche une msgbox avec la valeur qui est contenue dans une des cellulle de la colonne J en fonction du No de question choisie (question 1 = ligne 2 et réponse = J2 etc...). Comme il y a 120 questions, je pensais faire un truc du genre :
Private Sub bt_afficher_Click()
If cbox_questions_no.Value = 1 Then MsgBox "La réponse est " & ActiveWorkbook.Sheets("Questions").Range(cbox_questions_no.Value + 1).Value &, vbOKOnly + vbInformation, "* * * MAIS QUELLE EST LA BONNE REPONSE...??? * * *" End If End Sub
Mais évidemment ça ne fonctionne pas... et je ne sais pas comment faire :-(( alors si quelqu'un a une solution, je suis preneur.
Merci ! -- Céd / Lausanne
Salut LSteph
FA-BU-LEUX... c'est tout à fait ce que je voulais faire et en plus je
m'attendais à devoir le faire pour chaque question (120) et ton code le fait
tout seul... Je n'ai pas tout compris comment il le fait mais ça marche.
M E R C I !
--
Céd / Lausanne
Bonjour Congelator,
Private Sub bt_afficher_Click()
If cbox_questions_no.ListIndex > -1 Then
MsgBox "La réponse est " & _
Worksheets("Questions") _
.Cells(cbox_questions_no.ListIndex + 2, 10), _
vbOKOnly, "Mais quelle réponse"
Else
MsgBox "Faut choisir"
End If
End Sub
'lSteph
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news: 2FF34DD3-E095-4EC4-ADAF-BACF0E07344E@microsoft.com...
Salut tout le monde,
J'ai encore besoin d'un petit coup de main.
Je travaille dans un fichier Excel : Feuille = Questions / 1ère ligne > > titres / colonne J = les réponses
Sur ma userform, j'ai, entre autre, un bouton (bt_afficher) et une cbox
(cbox_questions_no) . J'ai besoin, lorsqu'on clique sur le bouton, qu'il
m'affiche une msgbox avec la valeur qui est contenue dans une des cellulle
de
la colonne J en fonction du No de question choisie (question 1 = ligne 2
et
réponse = J2 etc...). Comme il y a 120 questions, je pensais faire un truc
du
genre :
Private Sub bt_afficher_Click()
If cbox_questions_no.Value = 1 Then
MsgBox "La réponse est " &
ActiveWorkbook.Sheets("Questions").Range(cbox_questions_no.Value +
1).Value
&, vbOKOnly + vbInformation, "* * * MAIS QUELLE EST LA BONNE
REPONSE...???
* * *"
End If
End Sub
Mais évidemment ça ne fonctionne pas... et je ne sais pas comment faire
:-(( alors si quelqu'un a une solution, je suis preneur.
FA-BU-LEUX... c'est tout à fait ce que je voulais faire et en plus je m'attendais à devoir le faire pour chaque question (120) et ton code le fait tout seul... Je n'ai pas tout compris comment il le fait mais ça marche.
M E R C I ! -- Céd / Lausanne
Bonjour Congelator,
Private Sub bt_afficher_Click()
If cbox_questions_no.ListIndex > -1 Then MsgBox "La réponse est " & _ Worksheets("Questions") _ .Cells(cbox_questions_no.ListIndex + 2, 10), _ vbOKOnly, "Mais quelle réponse" Else MsgBox "Faut choisir"
End If
End Sub
'lSteph "Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de news:
Salut tout le monde,
J'ai encore besoin d'un petit coup de main. Je travaille dans un fichier Excel : Feuille = Questions / 1ère ligne > > titres / colonne J = les réponses Sur ma userform, j'ai, entre autre, un bouton (bt_afficher) et une cbox (cbox_questions_no) . J'ai besoin, lorsqu'on clique sur le bouton, qu'il m'affiche une msgbox avec la valeur qui est contenue dans une des cellulle de la colonne J en fonction du No de question choisie (question 1 = ligne 2 et réponse = J2 etc...). Comme il y a 120 questions, je pensais faire un truc du genre :
Private Sub bt_afficher_Click()
If cbox_questions_no.Value = 1 Then MsgBox "La réponse est " & ActiveWorkbook.Sheets("Questions").Range(cbox_questions_no.Value + 1).Value &, vbOKOnly + vbInformation, "* * * MAIS QUELLE EST LA BONNE REPONSE...??? * * *" End If End Sub
Mais évidemment ça ne fonctionne pas... et je ne sais pas comment faire :-(( alors si quelqu'un a une solution, je suis preneur.
