Sujet Précédent Sujet Suivant

Parcourt d'un fichier excel et suppression

Résolu/Fermé
van_van
Messages postés
60
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
9 janvier 2017
 - 19 avril 2016 à 09:29
van_van
Messages postés
60
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
9 janvier 2017
 - 19 avril 2016 à 15:30
Bonjour,
Quelqu'un aurait une idée d'un code qui fait cela :

Il parcourt donc mon fichier excel, qui ne contient qu'une seule colonne, A, et a partir du moment ou il recontre dans une cellule de la colonne A "TOTAL" alors il supprimer toutes les lignes d'apres .

Merci d'avance


1 réponse

Réponse 1 / 1
michel_m
Messages postés
16569
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mai 2022
 3 280
19 avril 2016 à 10:15
bonjour 
Option Explicit
'-----------------------
Sub vanvan()
Dim Lig_Apres_Total As Long

Lig_Apres_Total = Columns("A").Find("TOTAL", Range("A1"), xlValues).Row + 1
Range("A" & Lig_Apres_Total & ":A" & Cells.Rows.Count).Clear
End Sub
0
van_van
Messages postés
60
Date d'inscription
mercredi 6 avril 2016
Statut
Membre
Dernière intervention
9 janvier 2017
19 avril 2016 à 15:30
Un grand merci a toi michel_m
0