Problème boucle VBA
Résolu
margir4233
Messages postés
67
Date d'inscription
Statut
Membre
Dernière intervention
-
margir4233 Messages postés 67 Date d'inscription Statut Membre Dernière intervention -
margir4233 Messages postés 67 Date d'inscription Statut Membre Dernière intervention -
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!
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
Bonjour,
Essaies :
Option Explicit
Cordialement
Patrice
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
margir4233
Messages postés
67
Date d'inscription
Statut
Membre
Dernière intervention
Ca fonctionne super bien, merci beaucoup!!!