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


A voir également:

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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