Comprendre ecriture MsgBox

micky -  
 Micky -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

& ActiveCell.Address &

Indique quelle cellule est active, si pas besoin vous enlevez.
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour cs_Le Pivert,
Y a pas d'lezard. Ca roule
0
Micky
 
MERCi pour vos réponse
0