Supprimer les cellules contenant des dates

Fermé

uly2562 Messages postés 70 Date d'inscription dimanche 9 janvier 2011 Statut Membre Dernière intervention 28 juillet 2014 - 27 juin 2013 à 15:31
Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 - 27 juin 2013 à 16:45

e
Bonjours a tous,
alors voila:
Je cherche de l'aide en programmation VBA, a propos d'un code qui me permettrai de supprimer toute les cellules contenant uniquement des dates.
J'ai donc fais ce code, mais il me supprime le texte, ainsi que des nombre. En fait il me supprime tout se qu'il y a dans la plage. Je vous laisse le code, et merci de me répondre assez rapidement, car c'est ultra urgent. :D

Sub efface_date()
For Each cel In Range("A1:E21")
With cel
Selection.NumberFormat = "mm-dd-yyyy"
.ClearContents
.Delete Shift:=xlToLeft
End With
Next cel
End Sub

A voir également:

Supprimer les cellules contenant des dates
Supprimer une page word - Guide
Formule excel pour additionner plusieurs cellules - Guide
Supprimer compte instagram - Guide
Verrouiller des cellules excel - Guide
Supprimer pub youtube - Accueil - Streaming

2 réponses

Réponse 1 / 2

Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
Modifié par Thorak83 le 27/06/2013 à 15:56

Bonjour,

Essayez ceci

Sub efface_date()
  Dim Cellule As Range
  For Each Cellule In Range("A1:E21")
    If IsDate(Cellule) Then
      Cellule.ClearContents
    End If
  Next
End Sub

Cordialement

Réponse 2 / 2

uly2562 Messages postés 70 Date d'inscription dimanche 9 janvier 2011 Statut Membre Dernière intervention 28 juillet 2014 1
27 juin 2013 à 16:07

Ouai, c'est exactement ce que je voulais. Merciiiii :D
Juste encore un petit détail, sa serai pour decaler les cellules une fois fini.
Mais quand j'essaye de mettre ".Delete Shift:=xlToLeft " , il me met:
"Erreur de compilation, Sub ou fonction non définie"

uly2562 Messages postés 70 Date d'inscription dimanche 9 janvier 2011 Statut Membre Dernière intervention 28 juillet 2014 1
27 juin 2013 à 16:08

Décalage vers la gauche ( précision)

Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
27 juin 2013 à 16:10

vous voulez décaler quelle cellule exactement, celle qui se trouve à droite de la date ?

uly2562 Messages postés 70 Date d'inscription dimanche 9 janvier 2011 Statut Membre Dernière intervention 28 juillet 2014 1
27 juin 2013 à 16:12

exact. celle qui se trouve juste a coté, a droite

uly2562 Messages postés 70 Date d'inscription dimanche 9 janvier 2011 Statut Membre Dernière intervention 28 juillet 2014 1
27 juin 2013 à 16:13

vers la gauche

Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
27 juin 2013 à 16:45

et voila

Sub efface_date()
  Dim Cellule As Range
  For Each Cellule In Range("A1:E5")
    If IsDate(Cellule) Then
      Cellule.ClearContents
      Cellule.Delete Shift:=xlToLeft
    End If
  Next
End Sub

Discussions similaires

Comment supprimer une conversation Messenger pour les 2 personnes ?