Macro pour supprimer lignes dont une case = 01/01/9999 00:00:00

Résolu
jubilofrog Messages postés 6 Statut Membre -  
 jubilofrog -
Bonjour,

J'ai un tableau qui provient d'une base de donnée. Certaines cases comportent la valeur suivante : 01/01/9999 00:00:00

je souhaite pouvoir créer une macro pour supprimer toute les lignes comportant cette dernière.

Merci pour l'aide

4 réponses

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    et pourquoi pas les supprimer en les filtrant plus simplement ?
    eric
    0
    1. jubilofrog
       
      c'est une solution mais j'aimerai bien avoir quelque chose pour que cela soit automatique.

      Merci pour ta solution
      0
  2. foo
     
    Bonjour

    Oui ou avec une macro

    Sub EffaceLigne()
    DebLig = 2
    FinLig = Range("A" & Rows.Count).End(xlUp).Row
    For L = FinLig To DebLig Step -1
    Vdate = Range("H" & L).Value2
    If Vdate = 2958101 Then
    Rows(L).Delete
    End If
    Next
    End Sub

    A+
    Maurice
    0
    1. jubilofrog
       
      je regarde et je te tiens au courant. Merci pour l'aide.
      0
    2. jubilofrog
       
      cela ne fonctionne pas en fait refuse de transformer 01/01/9999 00:00:00 en nombre.....

      pouvez vous m'indiquer comment joindre un fichier et je vous passe le dossier ....
      0
    3. jubilofrog
       
      voici le lien : http://cjoint.com/?3IthAcpLtyV

      j'ai volontairement enlever une 20en de colonnes et plusieurs 100en de lignes pour n'avoir que le nécessaire et surtout identifier vite le PB.
      Encore merci
      0
  3. foo
     
    Bonjour
    mettre ton model sur

    http://www.cjoint.com

    et tu donne le lien

    A+
    Maurice
    0
    1. jubilofrog
       
      voici le lien : http://cjoint.com/?3IthAcpLtyV

      j'ai volontairement enlevé une 20en de colonnes et plusieurs 100en de lignes pour n'avoir que le nécessaire et surtout identifier vite le PB.
      Encore merci
      0
  4. foo
     
    Bonjour

    Voila la modif

    Sub SupLigne()
    FinLig = Range("A" & Rows.Count).End(xlUp).Row
    DebLig = 1
    For L = FinLig To DebLig Step -1
    If Range("G" & L).Value = "01/01/9999 00:00:00" Then
    Rows(L).Delete
    End If
    Next
    End Sub

    A+

    Maurice
    0
    1. jubilofrog
       
      je regarde.

      Merci pour le coup de main
      0
    2. jubilofrog
       
      génial cela fonctionne. Si un jour tu as besoin d'informations sur le Kirghizstan ou sur l'Asie Centrale passe un message
      0

Discussions similaires

cocher des cases
beli -
karine -

6 réponses
Harcèlement téléphonique
Ced -
brucine -

4 réponses
Voxbone ? qui est-ce ?
fanfan54 -
ntrece13 -

159 réponses
Excel : afficher toutes les lignes et colonnes masquées
livlarsen -
Mehdiiii -

27 réponses