détecter la cote en debut de cellule avec VBA

bonjour loamar67,

si le message = 8 c'est du texte,

Sub LeType()
x = VarType(Range("A1"))
Select Case x
Case 0
MsgBox "Empty(non initialisée)"
Case 1
MsgBox "Null(aucune donnée valide)"
Case 2
MsgBox "Entier"
Case 3
MsgBox "Entierlong"
Case 4
MsgBox "Nombre à virgule flottante en simple précision"
Case 5
MsgBox "Nombre à virgule flottante en double précision"
Case 6
MsgBox "Valeur monétaire"
Case 7
MsgBox "Valeur de date"
Case 8
MsgBox "Chaîne"
Case 9
MsgBox "Objet"
Case 10
MsgBox "Valeur d'erreur"
Case 11
MsgBox "Valeur booléenne"
Case 12
MsgBox "Variant(utilisée seulement avec des tableaux de variants)"
Case 13
MsgBox "Objet d'accès aux données"
Case 14
MsgBox "Valeur décimale"
Case 17
MsgBox "Octet"
Case 36
MsgBox "Variant contenant des types définis par l'utilisateur"
Case 8192
MsgBox "Tableau"
End Select
End Sub

isabelle

Bonjour,
Commenet detetcter dans vba la cote ' (que l'on met dans une cellule
pour que la valeur soit de type texte (ex : '1234) ) .
En effet, activecell.value me renvoie 1234 alors que je souhaiterai
'1234
merci de votre contribution ...
A +