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
Lolote
Salut Christian,
Sub test() Dim Toto Toto = Range("C8").Value If IsNumeric(Toto) = True Then MsgBox "Cellule numérique" Else MsgBox "Cellule non numérique" End If End Sub
Cela te convient-il ????
@+ Lolote
"Christian.L" a écrit dans le message de news: etfoc$
Bonjour à tous
Comment peut on en VBA tester le contenu d'une cellule pour savoir si il est
numérique ou alphabétique
Merci d'avance
C.L.
Salut Christian,
Sub test()
Dim Toto
Toto = Range("C8").Value
If IsNumeric(Toto) = True Then
MsgBox "Cellule numérique"
Else
MsgBox "Cellule non numérique"
End If
End Sub
Cela te convient-il ????
@+ Lolote
"Christian.L" <christian.lecossier@voila.fr> a écrit dans le message de
news: etfoc$nXEHA.1152@TK2MSFTNGP09.phx.gbl...
Bonjour à tous
Comment peut on en VBA tester le contenu d'une cellule pour savoir si il
est
Sub test() Dim Toto Toto = Range("C8").Value If IsNumeric(Toto) = True Then MsgBox "Cellule numérique" Else MsgBox "Cellule non numérique" End If End Sub
Cela te convient-il ????
@+ Lolote
"Christian.L" a écrit dans le message de news: etfoc$
Bonjour à tous
Comment peut on en VBA tester le contenu d'une cellule pour savoir si il est
numérique ou alphabétique
Merci d'avance
C.L.
papou
Bonjour Dim MsgVariable If ActiveCell = "" Then Exit Sub If Not IsNumeric(ActiveCell) Then MsgVariable = "Texte" Else MsgVariable = "Nombre" End If MsgBox MsgVariable
Cordialement Pascal
"Christian.L" a écrit dans le message de news:etfoc$
Bonjour à tous
Comment peut on en VBA tester le contenu d'une cellule pour savoir si il est
numérique ou alphabétique
Merci d'avance
C.L.
Bonjour
Dim MsgVariable
If ActiveCell = "" Then Exit Sub
If Not IsNumeric(ActiveCell) Then
MsgVariable = "Texte"
Else
MsgVariable = "Nombre"
End If
MsgBox MsgVariable
Cordialement
Pascal
"Christian.L" <christian.lecossier@voila.fr> a écrit dans le message de
news:etfoc$nXEHA.1152@TK2MSFTNGP09.phx.gbl...
Bonjour à tous
Comment peut on en VBA tester le contenu d'une cellule pour savoir si il
est
Bonjour Dim MsgVariable If ActiveCell = "" Then Exit Sub If Not IsNumeric(ActiveCell) Then MsgVariable = "Texte" Else MsgVariable = "Nombre" End If MsgBox MsgVariable
Cordialement Pascal
"Christian.L" a écrit dans le message de news:etfoc$
Bonjour à tous
Comment peut on en VBA tester le contenu d'une cellule pour savoir si il est
numérique ou alphabétique
Merci d'avance
C.L.
AV
Comment peut on en VBA tester le contenu d'une cellule pour savoir si il est numérique ou alphabétique
MsgBox [if(isnumber(A1),"num","texte")]
AV
Comment peut on en VBA tester le contenu d'une cellule pour savoir si il est
numérique ou alphabétique
