Formule pour définir le type de cellule

[Claudy]

Bonjour,
existe t il une formule pour definer le type de cellule:
un nombre , une formule ou du texte?
Merci d'avance
Claudy

 

[Claudy]

Re : Formule pour définir le type de cellule

Et voilà j'ai trouvé:
Function TypeCellule(c)
Application.Volatile
Set c = c.Range("A1")
Select Case True
Case IsEmpty(c): TypeCellule = "Vide"
Case Application.IsText(c): TypeCellule = "Texte"
Case Application.IsLogical(c): TypeCellule = "Logique"
Case Application.IsErr(c): TypeCellule = "Erreur"
Case IsDate(c): TypeCellule = "Date"
Case InStr(1, c.Text, ":") <> 0: CellType = "Heure"
Case IsNumeric(c): TypeCellule = "Numérique"
End Select
'Facultatif: détermine si la cellule est le résultat d'un formule
If c.HasFormula Then TypeCellule = CellType & "True"
End Function

Cela me permet de mettre un format conditionnel si on éfface mes formules!
A+Claudy

 

[Papou-net]

Re : Formule pour définir le type de cellule

Bonjour Claudy,

Un exemple de formule:

=TYPE(A1)

Elle renvoie les valeurs suivantes:

1 ---> Nombre ou
2 ---> Texte
4 ---> Valeur logique
8 ---> Valeur d'erreur
64 --> Matrice

Il n'est pas possible de déterminer si la cellule contient une formule, la valeur renvoyée dépend du résultat de cette formule.

Autrement, on peut détecter une formule par macro.

Cordialement.

Edit
Oups, trop tard!

 

[Dranreb]

Re : Formule pour définir le type de cellule

Bonsoir.

Personnellement j'utilise ça :

Function TypeDon(ByVal Cel As Range) As String
TypeDon = TypeName(Cel.Value)
End Function

[TABLE="class: grid, width: 247"]
[TR]
[TD][/TD]
[TD]=TypeDon(A2)[/TD]
[TD]=TYPE(A2)[/TD]
[/TR]
[TR]
[TD="align: center"]#DIV/0![/TD]
[TD]Error[/TD]
[TD="align: right"]16[/TD]
[/TR]
[TR]
[TD="align: center"]VRAI[/TD]
[TD]Boolean[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD]ABC[/TD]
[TD]String
[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]26/11/2015[/TD]
[TD]Date[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD="align: right"]1234[/TD]
[TD]Double[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD="align: right"]10 €[/TD]
[TD]Currency[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Empty[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD]=TypeDon(A2:C8)[/TD]
[TD]=TYPE(A2:C8)[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Variant()[/TD]
[TD="align: right"]16[/TD]
[/TR]
[/TABLE]