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.

3 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    & ActiveCell.Address &

    Indique quelle cellule est active, si pas besoin vous enlevez.
    0
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    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
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour cs_Le Pivert,
      Y a pas d'lezard. Ca roule
      0