Comprendre ecriture MsgBox

Fermé
micky - 19 oct. 2017 à 15:36
 Micky - 19 oct. 2017 à 15:59
Bonjour,

ma fonction examine la cellule active de mon tableau et affiche un message décrivant le contenu.

Sub VérifCellule()
Dim Msg As String
Select Case IsEmpty(ActiveCell)
Case True
Msg = "est vide"
Case Else
Select Case ActiveCell.HasFormula
Case True
Msg = "contient une formule"
Case False
Select Case IsNumeric(ActiveCell)
Case True
Msg = "contient un nombre"
Case Else
Msg = "contient du texte"
End Select
End Select
End Select
MsgBox "La cellule " & ActiveCell.Address & " " & Msg
End Sub

Je ne comprend pas pourquoi dans le MsgBox, la partie active cell entre guillement, pour moi j aurai mis,
MsgBox "La cellule" & Msg

Je maitrise mal l ecriture vba encore, merci d'avance.

A voir également:

3 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
19 oct. 2017 à 15:38
Bonjour,

& ActiveCell.Address &

Indique quelle cellule est active, si pas besoin vous enlevez.
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 19 oct. 2017 à 15:46
Bonjour,

C'est simple cela donne

MsgBox "La cellule " & ActiveCell.Address & " " & Msg 

La cellule A1 contient du texte

et avec toi:

MsgBox "La cellule" & Msg 

La cellule contient du texte

salut f894009, suis un peu en retard sur ce coup là!!

@+ Le Pivert
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
19 oct. 2017 à 15:56
Bonjour cs_Le Pivert,
Y a pas d'lezard. Ca roule
0
MERCi pour vos réponse
0