Definir le Type d'une cellule excel par VBA

b-guicha

XLDnaute Nouveau
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.:)
 
G

Guest

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

Bonjour,

Est-ce que ceci te conviendra?

Code:
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
 

Discussions similaires

Réponses
1
Affichages
405

Statistiques des forums

Discussions
312 927
Messages
2 093 681
Membres
105 782
dernier inscrit
obelix76