Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Insérer le contenu d'une cellule dans un msgbox

6 réponses
Avatar
Caroline L.
Bonsoir,

Je cherche à insérer le contenu d'une cellule dans un msgbox.
J'aimerais bien que la valeur de la cellule B7 s'inscrive dans un msgbox.
Exemple : en B7 il est inscrit : Jeudi
Je voudrais que le msgbox soit "Attention, le jour sélectionnez est Jeudi.
Voulez-vous poursuivre ?"
Donc le mot Jeudi est le contenu de B7 de la feuille "Horaire"

Merci encore pour votre précieuse aide

Caroline

6 réponses

Avatar
garnote
Bonsoir Caroline,

Quelque chose comme :

Sub MessageB7()
MsgBox "Attention, le jour sélectionné est " & _
Sheets("Horaire").Range("B7") & vbLf & _
"Voulez-vous poursuivre ?", vbYesNo, " Message de Caroline"
End Sub

Serge


"Caroline L." a écrit dans le message de news:

Bonsoir,

Je cherche à insérer le contenu d'une cellule dans un msgbox.
J'aimerais bien que la valeur de la cellule B7 s'inscrive dans un msgbox.
Exemple : en B7 il est inscrit : Jeudi
Je voudrais que le msgbox soit "Attention, le jour sélectionnez est Jeudi.
Voulez-vous poursuivre ?"
Donc le mot Jeudi est le contenu de B7 de la feuille "Horaire"

Merci encore pour votre précieuse aide

Caroline




Avatar
Caroline L.
Bonsoir Garnote (drôle de nom :-)))

merci beaucoup, c'est en plein ça.

Bonne soirée



"garnote" a écrit dans le message de news:
e$
Bonsoir Caroline,

Quelque chose comme :

Sub MessageB7()
MsgBox "Attention, le jour sélectionné est " & _
Sheets("Horaire").Range("B7") & vbLf & _
"Voulez-vous poursuivre ?", vbYesNo, " Message de Caroline"
End Sub

Serge


"Caroline L." a écrit dans le message de news:

Bonsoir,

Je cherche à insérer le contenu d'une cellule dans un msgbox.
J'aimerais bien que la valeur de la cellule B7 s'inscrive dans un
msgbox.


Exemple : en B7 il est inscrit : Jeudi
Je voudrais que le msgbox soit "Attention, le jour sélectionnez est
Jeudi.


Voulez-vous poursuivre ?"
Donc le mot Jeudi est le contenu de B7 de la feuille "Horaire"

Merci encore pour votre précieuse aide

Caroline








Avatar
garnote
Gar pour Garneau et note because
je suis prof ;-)

Serge

"Caroline L." a écrit dans le message de news:

Bonsoir Garnote (drôle de nom :-)))

merci beaucoup, c'est en plein ça.

Bonne soirée



"garnote" a écrit dans le message de news:
e$
Bonsoir Caroline,

Quelque chose comme :

Sub MessageB7()
MsgBox "Attention, le jour sélectionné est " & _
Sheets("Horaire").Range("B7") & vbLf & _
"Voulez-vous poursuivre ?", vbYesNo, " Message de Caroline"
End Sub

Serge


"Caroline L." a écrit dans le message de news:

Bonsoir,

Je cherche à insérer le contenu d'une cellule dans un msgbox.
J'aimerais bien que la valeur de la cellule B7 s'inscrive dans un
msgbox.


Exemple : en B7 il est inscrit : Jeudi
Je voudrais que le msgbox soit "Attention, le jour sélectionnez est
Jeudi.


Voulez-vous poursuivre ?"
Donc le mot Jeudi est le contenu de B7 de la feuille "Horaire"

Merci encore pour votre précieuse aide

Caroline












Avatar
Caroline L.
Voilà, tout s'explique..... ;-)


"garnote" a écrit dans le message de news:
#
Gar pour Garneau et note because
je suis prof ;-)

Serge

"Caroline L." a écrit dans le message de news:

Bonsoir Garnote (drôle de nom :-)))

merci beaucoup, c'est en plein ça.

Bonne soirée



"garnote" a écrit dans le message de news:
e$
Bonsoir Caroline,

Quelque chose comme :

Sub MessageB7()
MsgBox "Attention, le jour sélectionné est " & _
Sheets("Horaire").Range("B7") & vbLf & _
"Voulez-vous poursuivre ?", vbYesNo, " Message de Caroline"
End Sub

Serge


"Caroline L." a écrit dans le message de news:

Bonsoir,

Je cherche à insérer le contenu d'une cellule dans un msgbox.
J'aimerais bien que la valeur de la cellule B7 s'inscrive dans un
msgbox.


Exemple : en B7 il est inscrit : Jeudi
Je voudrais que le msgbox soit "Attention, le jour sélectionnez est
Jeudi.


Voulez-vous poursuivre ?"
Donc le mot Jeudi est le contenu de B7 de la feuille "Horaire"

Merci encore pour votre précieuse aide

Caroline
















Avatar
LSteph
Re, bonjour,
Voulez-vous poursuivre ?"
tu ne dis pas l'alternative donc..s'il n'y en a pas:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$7" Then _
MsgBox "Attention, vous avez entré " & Target
End Sub

'lSteph






"Caroline L." a écrit dans le message de news:

Bonsoir,

Je cherche à insérer le contenu d'une cellule dans un msgbox.
J'aimerais bien que la valeur de la cellule B7 s'inscrive dans un msgbox.
Exemple : en B7 il est inscrit : Jeudi
Je voudrais que le msgbox soit "Attention, le jour sélectionnez est Jeudi.
Voulez-vous poursuivre ?"
Donc le mot Jeudi est le contenu de B7 de la feuille "Horaire"

Merci encore pour votre précieuse aide

Caroline




Avatar
Caroline L.
Re,

oui tu as raison... mon exemple était ambigu. En réalité, il y a un vbYes
then...

Merci à toi !

Caroline

"LSteph" a écrit dans le message de news:

Re, bonjour,
Voulez-vous poursuivre ?"
tu ne dis pas l'alternative donc..s'il n'y en a pas:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$7" Then _
MsgBox "Attention, vous avez entré " & Target
End Sub

'lSteph






"Caroline L." a écrit dans le message de news:

Bonsoir,

Je cherche à insérer le contenu d'une cellule dans un msgbox.
J'aimerais bien que la valeur de la cellule B7 s'inscrive dans un
msgbox.


Exemple : en B7 il est inscrit : Jeudi
Je voudrais que le msgbox soit "Attention, le jour sélectionnez est
Jeudi.


Voulez-vous poursuivre ?"
Donc le mot Jeudi est le contenu de B7 de la feuille "Horaire"

Merci encore pour votre précieuse aide

Caroline