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").NumberFormat = Date

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

D'avance merci.

 

[Guest]

Re : Definir le Type d'une cellule excel par VBA

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]

Re : Definir le Type d'une cellule excel par VBA

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