Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel retour à la ligne dans un MsgBox

retour à la ligne dans un MsgBox

7 réponses
Avatar
Freedo
bonjour =E0 Toutes et =E0 Tous,
1) Est-il possible de r=E9aliser un retour =E0 la ligne
dans un Msgbox, afin d'avoir le message sur 2 lignes ?
2) est-il possible de mettre un commentaire sur un bouton
de commande pour avoir le m=EAme effet qu'un commentaire
sur une cellule ?
Merci de suivre,
Freedo
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Nicolas B.
Salut Freedo,

Pour ce qui est du retour à la ligne :
msgbox "Salut" & chr(13) & "à tous"


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Freedo wrote:
bonjour à Toutes et à Tous,
1) Est-il possible de réaliser un retour à la ligne
dans un Msgbox, afin d'avoir le message sur 2 lignes ?
2) est-il possible de mettre un commentaire sur un bouton
de commande pour avoir le même effet qu'un commentaire
sur une cellule ?
Merci de suivre,
Freedo


Avatar
garnote
Salut Freedo,

Quelque chose de dingue avant de voir des choses raisonnables !
J'ai mis un commentaire dans une zone de texte jaune à côté du bouton.

Private Sub CommandButton1_Click()
MsgBox "Salut tout le monde !"
End Sub

Private Sub CommandButton1_LostFocus()
Call AffichePas
End Sub

Private Sub CommandButton1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
L = CommandButton1.Width
H = CommandButton1.Height
If (X > 0.2 * L And X < 0.8 * L) _
And (Y > 0.2 * H And Y < 0.8 * H) _
Then
Call Affiche
Else
Call AffichePas
End If
End Sub

Sub Affiche()
ActiveSheet.Shapes("un").Visible = True
End Sub

Sub AffichePas()
ActiveSheet.Shapes("un").Visible = False
End Sub

;-)))

Serge

2) est-il possible de mettre un commentaire sur un bouton
de commande pour avoir le même effet qu'un commentaire
sur une cellule ?
Merci de suivre,
Freedo
Avatar
Jean-François Aubert
Serge,
Magistrale démonstration !

A noter que l'évenement CommandButton1_LostFocus,
n'est pas déclenché par le clic du Msgbox ou
d'une autre action qui ne ferait pas perdre le focus au CommandBouton.
Pour combler ceci, il manque une commande : Call AffichePas
après le MsgBox "...."

Private Sub CommandButton1_Click()
MsgBox "Salut tout le monde !"
Call AffichePas
End Sub

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"garnote" a écrit dans le message de
news:SQTpb.9427$
Salut Freedo,

Quelque chose de dingue avant de voir des choses raisonnables !
J'ai mis un commentaire dans une zone de texte jaune à côté du bouton.

Private Sub CommandButton1_Click()
MsgBox "Salut tout le monde !"
End Sub

Private Sub CommandButton1_LostFocus()
Call AffichePas
End Sub

Private Sub CommandButton1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
L = CommandButton1.Width
H = CommandButton1.Height
If (X > 0.2 * L And X < 0.8 * L) _
And (Y > 0.2 * H And Y < 0.8 * H) _
Then
Call Affiche
Else
Call AffichePas
End If
End Sub

Sub Affiche()
ActiveSheet.Shapes("un").Visible = True
End Sub

Sub AffichePas()
ActiveSheet.Shapes("un").Visible = False
End Sub


Avatar
Freedo
Bonjour Serge,
Merci beaucoup pour cette chose dingue , mais c'est
vraiment "dingue" il y a un message d'erreur du genre:
Erreur d'exécution : 21470224809(80070057)
"L'élément portant ce nom est introuvable"
et le déboguage s'arrête en fin de macro sur:
ActiveSheet.Shapes("un").Visible = False
NB j'ai essayé aussi en insérant la ligne proposée par
Jean-François, mais rien n'y fait !
Peux-tu m'en dire plus ?
Merci,
Freedo

-----Message d'origine-----
Salut Freedo,

Quelque chose de dingue avant de voir des choses
raisonnables !

J'ai mis un commentaire dans une zone de texte jaune à
côté du bouton.


Private Sub CommandButton1_Click()
MsgBox "Salut tout le monde !"
End Sub

Private Sub CommandButton1_LostFocus()
Call AffichePas
End Sub

Private Sub CommandButton1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
L = CommandButton1.Width
H = CommandButton1.Height
If (X > 0.2 * L And X < 0.8 * L) _
And (Y > 0.2 * H And Y < 0.8 * H) _
Then
Call Affiche
Else
Call AffichePas
End If
End Sub

Sub Affiche()
ActiveSheet.Shapes("un").Visible = True
End Sub

Sub AffichePas()
ActiveSheet.Shapes("un").Visible = False
End Sub

;-)))

Serge

2) est-il possible de mettre un commentaire sur un bouton
de commande pour avoir le même effet qu'un commentaire
sur une cellule ?
Merci de suivre,
Freedo


.



Avatar
Freedo
Bonjour Nicolas,
exactement ce que je cherchais, Merci beaucoup.
Cordialement,
Freedo
-----Message d'origine-----
Salut Freedo,

Pour ce qui est du retour à la ligne :
msgbox "Salut" & chr(13) & "à tous"


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Freedo wrote:
bonjour à Toutes et à Tous,
1) Est-il possible de réaliser un retour à la ligne
dans un Msgbox, afin d'avoir le message sur 2
lignes ?


2) est-il possible de mettre un commentaire sur un
bouton


de commande pour avoir le même effet qu'un
commentaire


sur une cellule ?
Merci de suivre,
Freedo



.




Avatar
garnote
Salut Freedo,

Oublié de mentionner quelque chose de fondamental !
Une fois ma zone de texte construite et placée à côté
du bouton, je l'ai sélectionné et :
Insertion / Nom / Définir :
Noms dans le classeur : un.

Est-ce mieux ainsi ?

Serge


"Freedo" a écrit dans le
message de news: 07b601c3a372$5651da70$
Bonjour Serge,
Merci beaucoup pour cette chose dingue , mais c'est
vraiment "dingue" il y a un message d'erreur du genre:
Erreur d'exécution : 21470224809(80070057)
"L'élément portant ce nom est introuvable"
et le déboguage s'arrête en fin de macro sur:
ActiveSheet.Shapes("un").Visible = False
NB j'ai essayé aussi en insérant la ligne proposée par
Jean-François, mais rien n'y fait !
Peux-tu m'en dire plus ?
Merci,
Freedo

-----Message d'origine-----
Salut Freedo,

Quelque chose de dingue avant de voir des choses
raisonnables !

J'ai mis un commentaire dans une zone de texte jaune à
côté du bouton.


Private Sub CommandButton1_Click()
MsgBox "Salut tout le monde !"
End Sub

Private Sub CommandButton1_LostFocus()
Call AffichePas
End Sub

Private Sub CommandButton1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
L = CommandButton1.Width
H = CommandButton1.Height
If (X > 0.2 * L And X < 0.8 * L) _
And (Y > 0.2 * H And Y < 0.8 * H) _
Then
Call Affiche
Else
Call AffichePas
End If
End Sub

Sub Affiche()
ActiveSheet.Shapes("un").Visible = True
End Sub

Sub AffichePas()
ActiveSheet.Shapes("un").Visible = False
End Sub

;-)))

Serge

2) est-il possible de mettre un commentaire sur un bouton
de commande pour avoir le même effet qu'un commentaire
sur une cellule ?
Merci de suivre,
Freedo


.



Avatar
Clément Marcotte
http://support.microsoft.com/default.aspx?scid=kb;fr;186063


"Freedo" a écrit dans le
message de news:07b601c3a372$5651da70$
Bonjour Serge,
Merci beaucoup pour cette chose dingue , mais c'est
vraiment "dingue" il y a un message d'erreur du genre:
Erreur d'exécution : 21470224809(80070057)
"L'élément portant ce nom est introuvable"
et le déboguage s'arrête en fin de macro sur:
ActiveSheet.Shapes("un").Visible = False
NB j'ai essayé aussi en insérant la ligne proposée par
Jean-François, mais rien n'y fait !
Peux-tu m'en dire plus ?
Merci,
Freedo

-----Message d'origine-----
Salut Freedo,

Quelque chose de dingue avant de voir des choses
raisonnables !

J'ai mis un commentaire dans une zone de texte jaune à
côté du bouton.


Private Sub CommandButton1_Click()
MsgBox "Salut tout le monde !"
End Sub

Private Sub CommandButton1_LostFocus()
Call AffichePas
End Sub

Private Sub CommandButton1_MouseMove _
(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
L = CommandButton1.Width
H = CommandButton1.Height
If (X > 0.2 * L And X < 0.8 * L) _
And (Y > 0.2 * H And Y < 0.8 * H) _
Then
Call Affiche
Else
Call AffichePas
End If
End Sub

Sub Affiche()
ActiveSheet.Shapes("un").Visible = True
End Sub

Sub AffichePas()
ActiveSheet.Shapes("un").Visible = False
End Sub

;-)))

Serge

2) est-il possible de mettre un commentaire sur un bouton
de commande pour avoir le même effet qu'un commentaire
sur une cellule ?
Merci de suivre,
Freedo


.