Comprendre ecriture MsgBox
micky
-
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.
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
-
Bonjour,
& ActiveCell.Address &
Indique quelle cellule est active, si pas besoin vous enlevez. -
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 -