Definir le Type d'une cellule excel par VBA

[b-guicha]

Bonjour,

J'essaye de trouver la ligne de code vb qui permet de definir le type de donnée (numeric, text, date...) d'une plage de cellule, ou d'une cellule unique.
Je voudrais definir les cellules de la plage as Date.
Mon essai :

Worksheets("Nom_feuille").Range("D10:E500").Number Format = Date

Mais ca marche pas. Je suppose que c'est juste une question de synthaxe.

D'avance merci.

[Hasco]

Bonjour,

Est-ce que ceci te conviendra?

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 & "_formule"
End Function

A bientôt

[b-guicha]

ok probleme résolu... pouf "dd/mm/aa".