Problème boucle VBA

Résolu/Fermé
Signaler
Messages postés
65
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
7 février 2018
-
Messages postés
65
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
7 février 2018
-
Bonjour,
J'ai un problème avec ma boucle.
Ce que je veux faire c'est
A chaque fois que je trouve le texte "version 2 avec taux" dans ma feuille, sélectionner une plage débutant 2 lignes plus haut et finissant 4 lignes plus bas pour 10 colonnes et détruire ces lignes. Recommencer tant qu'il trouve le texte dans la feuille.


Voici mon code qui ne fonctionne pas :(

Dim i As Integer
For i = 1 To 10000

If Cells.Find(What:="version 2 avec taux", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate Then

ActiveCell.Offset(-2, -1).Select
ActiveCell.Resize(7, 10).Select
Selection.Delete Shift:=xlUp

End If

Next i


End Sub

Merci pour votre aide!

1 réponse

Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 720
Bonjour,

Essaies :
Option Explicit
Sub xxx()
Dim c As Range
  Set c = Cells(1, 1)
  Set c = Cells.Find(What:="version 2 avec taux", After:=c)
  Do Until c Is Nothing
    c.Offset(-2, -1).Resize(7, 10).Delete Shift:=xlUp
    Set c = Cells.FindNext
  Loop
End Sub

Cordialement
Patrice
Messages postés
65
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
7 février 2018

Ca fonctionne super bien, merci beaucoup!!!