Suppression de lignes en fonction du numéro de ligne

[Michael86]

Bonjour,

Le fichier annexé (exporté depuis le logiciel R) est composé de numéros de lignes que je dois supprimer de ma base de données. Il ne faut pas tenir compte du premier nombre de chaque ligne (le nombre entre crochet [...]).

Mes connaissances en Excel sont minimes, je n'ai aucune idée comment m'y prendre.

Merci d'avance pour votre aide.

 

[camarchepas]

Re : Suppression de lignes en fonction du numéro de ligne

Bonsoir Mickael ,

Ta base de données , c'est une feuille Excel ou autre chose ?

 

[Michael86]

Re : Suppression de lignes en fonction du numéro de ligne

Oui c'est une feuille Excel.

 

[camarchepas]

Re : Suppression de lignes en fonction du numéro de ligne

Bonjour Michael,

En principe cela doit marcher : A paramètrer l'emplacement de la base de données : Ici simulée en Feuil2

Dim Lecture As String
Dim ASupprimer As Variant
Dim Inter1 As String
Dim Tourne As Long
Dim LigneEnCourt As Long
With Sheets("Feuil1")
'l'on commence par la fin
LigneEnCourt = .Range("A" & Rows.Count).End(xlUp).Row
Do
  Lecture = .Range("A" & LigneEnCourt)
  Inter1 = Split(Lecture, "] ")(1)
  ASupprimer = Split(Inter1, " ")
  For Tourne = UBound(ASupprimer) To 0 Step -1
    If ASupprimer(Tourne) <> "" Then Sheets("Feuil2").Rows(ASupprimer(Tourne)).Delete
  Next Tourne
  LigneEnCourt = LigneEnCourt - 1
Loop Until LigneEnCourt = 0
End With
End Sub

 

[Michael86]

Re : Suppression de lignes en fonction du numéro de ligne

Merci beaucoup, ça fonctionne. 🙂