Discussion :

[midge]

bonjour
J'ai besoin de rechercher un mot dans une cellule qui change de ligne en fonction des export csv mais toujours dans la même colonne ; lorsque le mot est trouvé, j'aimerai supprimer les lignes qui précèdent la cellule contenant le mot.
En faisant des recherches il semblerait qu'une utilisation de Offset combiné avec Resize pourrait être la solution mais je coince sur la syntaxe et le fait que les lignes à supprimer soient changeantes. Merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  Sub test()
Dim i As Integer
Application.ScreenUpdating = False
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Range("A" & i).Value = "ID" Then  ....................
Next i
Application.ScreenUpdating = True
End Sub

Je suis parti de là mais après ?
Autrement dit, "ID" peut se trouver en ligne 5 comme en ligne 12 dans la colonne A et je veux supprimer tout ce qui précède.

[Jean-Philippe André]

Salut,

la suppression se ferait sur toutes les lignes de 1 à i-1 ?

une idée de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("1:" & i-1).EntireRow.Delete
Exit For

[midge]

Merci pour le retour ! Mais rien ne se passe lorsque je rajoute ce que tu proposes, soit je pige pas (mon niveau en macro est très basique) soit je sais pas recopier !

Bla bla bla bla bla bla - ligne 1
Re bla bla bla bla
Re re re bla bla bla

ID	Nom	Prénom	Résultat	Ligne 4
11111H	ALLALA	truc	Présent
22222G	BIBI	machin	Absent
33333FF	BOUBOU	Baba	Présent
77777MH	TERRE	riri	Présent

Ci-dessus un exemple, ce qui est rouge doit disparaître donc avant la ligne où se trouve "ID" qui se trouve en numéro de ligne aléatoire.
merci d'avance ou pour une autre approche ?

[unparia]

Bonjour midge


Voilà ton code transformé (il y a mieux à faire, mais j'ai voulu rester à un niveau le moins éloigné possible du tien) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim i As long
 For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
  If Left(Range("A" & i).Value, 3) = "ID " Then
      Range("A1:A" & i - 1).EntireRow.Delete
      Exit For
  End If
  Next i

ceci dit :
Ta réaction est plutôt inquiétante et met en exergue que tu devrais consacrer du temps à l'apprentissage des bases essentielles.

[midge]

Merci pour le "corrigé", l'autoformation n'est pas toujours simple mais j'essaye d'apprendre au fur et à mesure grâce aux conseils notamment du forum ... bonnes fêtes de fin d'année