Bonjour,
Dans une colonne je dois effacer toutes les celulles qui contiennent la valeur 7 ou 7/01/1900 (format date) ainsi que les cellules qui contiennent #VALEUR! (format texte).
J'ai également des cellules vides qui ne peuvent pas êtres complétées.
Comment puis je corriger l'erreur d'incomptabilité de type ?
Je joins un fichier exemple
Merci beaucoup
Dans une colonne je dois effacer toutes les celulles qui contiennent la valeur 7 ou 7/01/1900 (format date) ainsi que les cellules qui contiennent #VALEUR! (format texte).
J'ai également des cellules vides qui ne peuvent pas êtres complétées.
Comment puis je corriger l'erreur d'incomptabilité de type ?
Je joins un fichier exemple
VB:
Sub EffaceDate()
Dim cellule As Range
Dim rngETDprevue As Range
Set rngETDprevue = Sheets("PS").Range("Tableau1[Date]")
Application.ScreenUpdating = False
rngETDprevue.Select
For Each cellule In rngETDprevue
If cellule = 7 Then cellule.ClearContents
If cellule = "#VALEUR!" Then cellule.ClearContents
Next cellule
Application.ScreenUpdating = True
End Sub
Merci beaucoup