traduire en VBA "si format date"

[PhilinOZ]

Bonjour,
Sauriez vous comment remplacer la condition "<>0" par
"Si la cellule contient une donnee de type date" dans la macro suivante :

Sub test()
Dim i As Long
Dim DerLig As Long
DerLig = ActiveCell.SpecialCells(xlLastCell).Row
For i = 12 To DerLig Step 4
If (Range("D" & i) <> 0) Then Range("H" & i + 1).Cut Destination:=Range("F" & i)
Next
End Sub
ca devrait etre un truc du genre : "If (Range("D" & i) isdate"
ou qqc comme ca mais je n'y arrive pas.
Merci
Philippe

 

[Compte Supprimé 979]

Re : traduire en VBA "si format date"

Salut,

Tu y étais presque 🙂 l'instruction exacte est : IF Isdate(Expression)

Ce qui donne dans ton code :

If Isdate(Range("D" & i)) Then Range("H" & i + 1).Cut Destination:=Range("F" & i)

A+

 

[Pierrot93]

Re : traduire en VBA "si format date"

Bonjour Philippe

regarde l'exemple ci-dessous si il peut t'aider :

If IsDate(Range("A1").Value) Then MsgBox "ok c'est une date"

bonne journée
@+

Edition : Bonjour Bruno, aarf un peu en retard moi...

 

[Compte Supprimé 979]

Re : traduire en VBA "si format date"

Salut Pierrot93,

Edition : Bonjour Bruno, aarf un peu en retard moi...

T'inquiète, 2 réponses identiquent valent toujours mieux que ....
pas de réponse du tout 🙂😀

A+

 

[PhilinOZ]

Re : traduire en VBA "si format date"

Merci a tous les deux.
Parfois -surtout quand a la reponse- on se sent un peu cretin 🙂