Verification d'une cellule

Philippe Noss

01/10/2005 à 13:40

BONJOUR !!

Pae exemple
Public Function Exo_Typcell(ByVal Cellule As Object) As String
Exo_Typcell = "Indéterminé ! "
If IsEmpty(Cellule.Value) Then Exit Function
On Error Resume Next

If Application.IsText(Cellule) = True Then

Exo_Typcell = "Texte"
Exit Function
End If
If IsDate(Cellule) = True Then
Exo_Typcell = "Date"
Exit Function
End If
If Application.IsNumeric(Cellule) = True Then
Exo_Typcell = "Numérique"
Exit Function
End If
Exo_Typcell = "Indéterminé ! "
End Function

ou plusprecis
Public Function Exo_TypVar(C As Object)
'Application.Volatile
Select Case VarType(C)
Case 0
Exo_TypVar = "Empty " ' 0 Empty (non initialisée)
Case 1
Exo_TypVar = "Null" '1 Null (aucune donnée valide)
Case 2
Exo_TypVar = "Integer '2 Entier"
Case 3
Exo_TypVar = "Long '3 Entier long"
Case 4
Exo_TypVar = "Single '4 Nombre à virgule flottante en simple
précision"
Case 5
Exo_TypVar = "Double" '5 Nombre à virgule flottante en double
précision"
Case 6
Exo_TypVar = "Currency" '6 Valeur monétaire
Case 7
Exo_TypVar = "�te" ' 7 Valeur de date
Case 8
Exo_TypVar = "String" '8 Chaîne"
Case 9
Exo_TypVar = "Object" '9 Objet"
Case 10
Exo_TypVar = "Error" '10 Valeur d'erreur"
Case 11
Exo_TypVar = "Boolean" '11 Valeur booléenne"
Case 12
Exo_TypVar = "Variant" '12 Variant (utilisée seulement avec des
tableaux de variants)"
Case 13
Exo_TypVar = "DataObject" '13 Objet d'accès aux données"
Case 14
Exo_TypVar = "Decimal" '14 Valeur décimale"
Case 17
Exo_TypVar = "Byte" '17 Octet"
Case 36
Exo_TypVar = "UserDefined" 'Type 36 Variant contenant des types
définis par l'utilisateur"
Case 8192
Exo_TypVar = "Array"
'8192 Tableau"
End Select
End Function

Philippe NOSS
http://nossphil.perso.cegetel.net/exoutils.html

Jacky

01/10/2005 à 14:55

Toujours pas bonjour
'-----------
If IsNumeric([a1]) Then
MsgBox "la cellule est numérique"
Else
MsgBox "la cellule est du texte"
End If
'-----------
Salutations
JJ

"Sylvain Branchu" a écrit dans le message de
news:

Comment vérifier par une macro qu'une cellule contient du texte ou une
valeur numérique ?
Merci

michdenis

01/10/2005 à 15:07

Bonjour Jacky,

Qu'est-ce qui se passe si la cellule est vide ? Est-ce [a1] toujours numérique ?

;-)

Salutations!

"Jacky" a écrit dans le message de news: Ow%
Toujours pas bonjour
'-----------
If IsNumeric([a1]) Then
MsgBox "la cellule est numérique"
Else
MsgBox "la cellule est du texte"
End If
'-----------
Salutations
JJ

"Sylvain Branchu" a écrit dans le message de
news:

Comment vérifier par une macro qu'une cellule contient du texte ou une
valeur numérique ?
Merci

Sylvain Branchu

01/10/2005 à 15:19

Euh bonjour et merci pour l'info ....

Sans vouloir naturellement abuser, existe-t-il un lexique de toues ces
commandes.
Merci
"Jacky" a écrit dans le message de
news:Ow%

Toujours pas bonjour
'-----------
If IsNumeric([a1]) Then
MsgBox "la cellule est numérique"
Else
MsgBox "la cellule est du texte"
End If
'-----------
Salutations
JJ

"Sylvain Branchu" a écrit dans le message de
news:
Comment vérifier par une macro qu'une cellule contient du texte ou une
valeur numérique ?
Merci

Jacky

01/10/2005 à 15:30

Bonjour Michel

Lâchement

Sub jj()
If [a1] = "" Then Exit Sub
If IsNumeric([a1]) Then
MsgBox "la cellule est numérique"
Else
MsgBox "la cellule est du texte"
End If
End Sub

A+
JJ

"michdenis" a écrit dans le message de
news:

Bonjour Jacky,

Qu'est-ce qui se passe si la cellule est vide ? Est-ce [a1] toujours
numérique ?

;-)

Salutations!

"Jacky" a écrit dans le message de news:
Ow%

Toujours pas bonjour
'-----------
If IsNumeric([a1]) Then
MsgBox "la cellule est numérique"
Else
MsgBox "la cellule est du texte"
End If
'-----------
Salutations
JJ

"Sylvain Branchu" a écrit dans le message de
news:
Comment vérifier par une macro qu'une cellule contient du texte ou une
valeur numérique ?
Merci

JLuc

01/10/2005 à 15:50

Bonjour à toutes, tous et à Sylvain Branchu,
dans ton message,tu nous dis :

|| Euh bonjour et merci pour l'info ....
||
|| Sans vouloir naturellement abuser, existe-t-il un lexique de toues
|| ces commandes.
|| Merci
|| "Jacky" a écrit dans le message de
|| news:Ow%
||| Toujours pas bonjour
||| '-----------
||| If IsNumeric([a1]) Then
||| MsgBox "la cellule est numérique"
||| Else
||| MsgBox "la cellule est du texte"
||| End If
||| '-----------
||| Salutations
||| JJ
|||
||| "Sylvain Branchu" a écrit dans le message de
||| news:
|||| Comment vérifier par une macro qu'une cellule contient du texte ou
|||| une valeur numérique ?
|||| Merci

Si tu regarde dans l'aide->sommaire, tu trouveras certainement ton bonheur.
Il est vrai qu'il faut passer pas mal de temps a la lecture ;-)
JLuc

JLuc

01/10/2005 à 15:53

Bonjour à toutes, tous et à JLuc,
dans ton message,tu nous dis :

|| Bonjour à toutes, tous et à Sylvain Branchu,
|| dans ton message,tu nous dis :
||
|||| Euh bonjour et merci pour l'info ....
||||
|||| Sans vouloir naturellement abuser, existe-t-il un lexique de toues
|||| ces commandes.
|||| Merci
|||| "Jacky" a écrit dans le message de
|||| news:Ow%
||||| Toujours pas bonjour
||||| '-----------
||||| If IsNumeric([a1]) Then
||||| MsgBox "la cellule est numérique"
||||| Else
||||| MsgBox "la cellule est du texte"
||||| End If
||||| '-----------
||||| Salutations
||||| JJ
|||||
||||| "Sylvain Branchu" a écrit dans le message de
||||| news:
|||||| Comment vérifier par une macro qu'une cellule contient du texte
|||||| ou une valeur numérique ?
|||||| Merci
||
|| Si tu regarde dans l'aide->sommaire, tu trouveras certainement ton
|| bonheur. Il est vrai qu'il faut passer pas mal de temps a la lecture
|| ;-)
|| JLuc

Regarde dans :
Visual basic:manuel de reference du langage->index/listes
JLuc

michdenis

01/10/2005 à 16:10

Bonjour Jacky,

C'est presque bon ...

Qu'est-ce qui se passe si le contenu est une date ? Est-ce qu'une date, c'est du texte ?

Salutations!

"Jacky" a écrit dans le message de news:
Bonjour Michel

Lâchement

Sub jj()
If [a1] = "" Then Exit Sub
If IsNumeric([a1]) Then
MsgBox "la cellule est numérique"
Else
MsgBox "la cellule est du texte"
End If
End Sub

A+
JJ

"michdenis" a écrit dans le message de
news:

Bonjour Jacky,

Qu'est-ce qui se passe si la cellule est vide ? Est-ce [a1] toujours
numérique ?

;-)

Salutations!

"Jacky" a écrit dans le message de news:
Ow%

Toujours pas bonjour
'-----------
If IsNumeric([a1]) Then
MsgBox "la cellule est numérique"
Else
MsgBox "la cellule est du texte"
End If
'-----------
Salutations
JJ

"Sylvain Branchu" a écrit dans le message de
news:
Comment vérifier par une macro qu'une cellule contient du texte ou une
valeur numérique ?
Merci

Jacky

01/10/2005 à 16:35

Re..
Encore plus lâchement

If [a1] = "" Then Exit Sub
[a1].NumberFormat = "General"
If IsNumeric([a1]) Then
MsgBox "la cellule est numérique"
Else
MsgBox "la cellule est du texte"
End If

Salutations
JJ

"michdenis" a écrit dans le message de
news:

Bonjour Jacky,

C'est presque bon ...

Qu'est-ce qui se passe si le contenu est une date ? Est-ce qu'une date,
c'est du texte ?

Salutations!

"Jacky" a écrit dans le message de news:

Bonjour Michel

Lâchement

Sub jj()
If [a1] = "" Then Exit Sub
If IsNumeric([a1]) Then
MsgBox "la cellule est numérique"
Else
MsgBox "la cellule est du texte"
End If
End Sub

A+
JJ

"michdenis" a écrit dans le message de
news:
Bonjour Jacky,

Qu'est-ce qui se passe si la cellule est vide ? Est-ce [a1] toujours
numérique ?

;-)

Salutations!

"Jacky" a écrit dans le message de news:
Ow%

Toujours pas bonjour
'-----------
If IsNumeric([a1]) Then
MsgBox "la cellule est numérique"
Else
MsgBox "la cellule est du texte"
End If
'-----------
Salutations
JJ

"Sylvain Branchu" a écrit dans le message de
news:
Comment vérifier par une macro qu'une cellule contient du texte ou une
valeur numérique ?
Merci

Verification d'une cellule

9 réponses

Veuillez sélectionner un problème