Bonjour Hasardeux
Re Papy
çà fait un bail que je ne t'avais vu trainer sur le Forum...
Pas sur d'avoir bien capté ta demande... Donc j'ai fait deux Soluces !
SOLUCE 1 :
Si Tu veux remplacer tout ce qui n'est pas une réelle valeur date, par une date que tu saisis dans une inputbox : (cependant les valeurs Num seront tout de même considérées comme une date....)
Sub test1()
Dim Valeur As Date
Dim Maplage As Range
Dim Cell As Range
Valeur = InputBox("Entrez une Date", "Date", "Format dd/mm/yy")
Set Maplage = Sheets(1).Range("A1:A20")
For Each Cell In Maplage
If IsDate(Cell.Value) = False Then
Cell.Value = Valeur
End If
Next
End Sub
SOLUCE 2 :
Si Tu veux remplacer tout ce qui n'est pas une réelle valeur date, avec une date limite inférieur (24/07/98 = 36000) ... par une date que tu saisis dans une inputbox :
Sub test2()
Dim Valeur As Date
Dim Maplage As Range
Dim Cell As Range
Valeur = InputBox("Entrez une Date", "Date", "Format dd/mm/yy")
Set Maplage = Sheets(1).Range("A1:A20")
For Each Cell In Maplage
If IsDate(Cell.Value) = False Then
Cell.Value = Valeur
End If
If Cell.Value < 36000 Then
Cell.Value = Valeur
End If
Next
End Sub
SOLUCE 3 :
Si je n'ai rien compris et que tu veux simplement remplacer tout ce qui ne correspond pas à la date saisie dans l'inputbox par une autre valeur....
Sub test3()
Dim Valeur As Date
Dim Maplage As Range
Dim Cell As Range
Valeur = InputBox("Entrez une Date", "Date", "Format dd/mm/yy")
Set Maplage = Sheets(1).Range("A1:A20")
For Each Cell In Maplage
If Cell.Value <> Valeur Then
Cell.Value = "TOTO"
End If
Next
End Sub
Enfin je crois qu'avec çà on a fait le tour de la question !!!
Bon App
@+Thierry
