IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Supprimer cellules contenant du texte en format date [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de Runsh63
    Homme Profil pro
    Contrôleur de gestion
    Inscrit en
    Mars 2011
    Messages
    476
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Contrôleur de gestion
    Secteur : Transports

    Informations forums :
    Inscription : Mars 2011
    Messages : 476
    Par défaut Supprimer cellules contenant du texte en format date
    Bonjour le forum !

    Je m'adresse à vous pour bénéficier de vos conseils avisés sur le problème suivant sur lequel je bloque.

    Après compilation de données, je me retrouve avec des données dont certaines lignes sont à supprimer. Je me base sur la colonne B, qui au final ne doit comporter que des dates. Le fichier est pollué par certaines lignes dont la cellule B est soit vide, soit contenant du texte, au format "dd/mm/yyyy".
    Avec le code suivant :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Dim FormDate As Long
     
                For FormDate = LR1 To 2 Step -1
                    If .Cells(FormDate, 2).NumberFormat <> "dd/mm/yyyy" Or .Cells(FormDate, 2).Value = "" Then
                        .Cells(FormDate, 2).EntireRow.Delete
                    End If
                Next FormDate
    mes lignes dont la cellule Bx est vide sont bien supprimées mais celles contenant du texte au format date ne le sont pas...
    Avez-vous une idée de la façon dont je pourrai également supprimer ces lignes SVP ?

    Merci d'avance pour votre aide !

    PS : LR1 a été défini plus haut dans le code.

  2. #2
    Membre éclairé Avatar de Runsh63
    Homme Profil pro
    Contrôleur de gestion
    Inscrit en
    Mars 2011
    Messages
    476
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Contrôleur de gestion
    Secteur : Transports

    Informations forums :
    Inscription : Mars 2011
    Messages : 476
    Par défaut
    J'ai finalement trouvé tout seul. Toutes mes cellules exceptées les vides étant au format date, j'ai opté pour :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Dim FormDate As Long
     
                For FormDate = LR1 To 2 Step -1
                    If Not IsNumeric(Left(.Cells(FormDate, 2), 1)) Or .Cells(FormDate, 2).Value = "" Then
                        .Cells(FormDate, 2).EntireRow.Delete
                    End If
                Next FormDate
    qui fonctionne parfaitement.

    Bonne journée !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [WD-2000] Technique pour supprimer cellule contenant un certain texte
    Par ruliann dans le forum Word
    Réponses: 13
    Dernier message: 12/01/2011, 10h34
  2. Détecter si une cellule a une valeur au format date
    Par thierry_b dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 15/06/2009, 23h52
  3. importation d'un fichier texte: Pb format Date
    Par steph1964 dans le forum Macros et VBA Excel
    Réponses: 16
    Dernier message: 28/06/2007, 09h00
  4. [Requête]Convertir une chaine de texte en format date
    Par emjie dans le forum Requêtes et SQL.
    Réponses: 3
    Dernier message: 19/04/2007, 00h44
  5. Convertir Texte en format Date
    Par bouba_95 dans le forum Access
    Réponses: 17
    Dernier message: 30/01/2007, 15h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo