Problème boucle VBA Résolu/Fermé

Question

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!

Patrice33740 · Answer

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

Problème boucle VBA

1 réponse

Discussions similaires