Pb OffSet / Resize sur le résultat d'un Find

Bonjour la communauté,

Je galère depuis ce matin et j'en appelle donc à vos lumières. J'ai rédiger le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub EssaiSupp()   Dim NmEssai As String Dim C As Variant Dim firstAddress As Variant   NmEssai = InputBox("Veuillez indiquer le numéro de l'essai à supprimer :", "Suppression d'un essai dans la feuille de saisie") If NmEssai <> "" Then With Worksheets("SAISIE").[C:C] Set C = .Find(NmEssai, LookIn:=xlValues) If Not C Is Nothing Then firstAddress = C.Address Do C.Offset(-2, 0).Resize(0, 9).Delete Shift:=xlUp Set C = .FindNext(C) Loop While Not C Is Nothing End If End With End If   End Sub

---

L'objectif et de trouver dans la colonne C une valeur (qui peut exister sur plusieurs lignes. Une fois la valeur trouvée je supprime les valeurs de cette ligne de la colonne A à J ... ainsi de suite.

Mais arrivé à l'instruction

Code:

---

C.Offset(-2, 0).Resize(0, 9).Delete Shift:=xlUp

---

patatra ça plante !

Erreur d'exécution'1004' : Erreur définie par l'application ou par l'objet

Je pensais que la réponse de Find était un Range stocké dans C et bien non j'ai essayé avec firstAddress qui lui stocke bien une info type Range $C$5 mais ça plante aussi :(

Je suis sur que c'est un truc évident mais je cale.

Merci d'avance.

Les paramètres ligne/colonne de ton Offset sont inversés.

Et le Resize ne doit pas avoir de paramètre "0". Ca signifierait que tu ne prends aucune ligne. Il faut le mettre à 1.
Et si tu veux A à J, il faut mettre 10 et non 9.
Resize n'agrandit pas, il redéfinit la dimension. On ne doit donc pas mettre en paramètre le supplément mais la taille finale.

Cela dit, si c'est toute la ligne que tu veux supprimer, il y a plus simple :

Code:

---

C.EntireRow.Delete

---

Bonjour,

Autre méthode, on passe par un filtre et on supprime la zone filtrée correspondant au critère choisi.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub EssaiSupp() Dim NmEssai As String, firstAddress As String Dim C As Range Dim Sh As Worksheet Set Sh = Sheets("SAISIE") DerLig = Sh.Range("C" & Rows.Count).End(xlUp).Row NmEssai = InputBox("Veuillez indiquer le numéro de l'essai à supprimer :", "Suppression d'un essai dans la feuille de saisie") If NmEssai <> "" Then If Sh.AutoFilterMode = False Then Sh.Rows(1).AutoFilter 'Ajoute un filtre sur la 1ère ligne Sh.Range("A3:J" & DerLig).AutoFilter Field:=3, Criteria1:=NmEssai 'Filtre sur la colonne C Sh.Rows("2:" & DerLig).SpecialCells(xlCellTypeVisible).Delete 'Supprime toutes les lignes avec le critère "NbEssai" ActiveSheet.AutoFilterMode = False 'on enlève le filtre End If End Sub

---

Cdlt

Effectivement j'avais corrigé l'Offset mais pas le Resize dont je ne maitrise pas trop l'utilisation.

Avec cette ligne corrigée :

Code:

---

C.Offset(0, -2).Resize(1,10).Delete Shift:=xlUp

---

La première occurrence est trouvée et supprimée. Par contre cela génère une nouvelle erreur puisque j'ai touché à C

erreur '1004' : Impossible de lire la propriété FindNext de la classe Range :calim2:

Je vais essayé de reboucler avant le

Code:

---

Set C = .Find(NmEssai, LookIn:=xlValues)

---

Citation:

---

Envoyé par ARTURO83

Bonjour,

Autre méthode, on passe par un filtre et on supprime la zone filtrée correspondant au critère choisi.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub EssaiSupp() Dim NmEssai As String, firstAddress As String Dim C As Range Dim Sh As Worksheet Set Sh = Sheets("SAISIE") DerLig = Sh.Range("C" & Rows.Count).End(xlUp).Row NmEssai = InputBox("Veuillez indiquer le numéro de l'essai à supprimer :", "Suppression d'un essai dans la feuille de saisie") If NmEssai <> "" Then If Sh.AutoFilterMode = False Then Sh.Rows(1).AutoFilter 'Ajoute un filtre sur la 1ère ligne Sh.Range("A3:J" & DerLig).AutoFilter Field:=3, Criteria1:=NmEssai 'Filtre sur la colonne C Sh.Rows("2:" & DerLig).SpecialCells(xlCellTypeVisible).Delete 'Supprime toutes les lignes avec le critère "NbEssai" ActiveSheet.AutoFilterMode = False 'on enlève le filtre End If End Sub

---

Cdlt

---

Bonjour ARTURO83,

Merci pour cette proposition mais elle ne me correspond pas il me semble. Voici la feuille en question :

Pièce jointe 566892

Les boutons je peux éventuellement les placer au dessus du tableau pour ne pas les supprimer.

Le plus gênant c'est que par exemple la colonne G contient une formule matricielle type

Code:

---

{=SI(E2 <> "";INDEX(DensitéDATA;EQUIV(A2&" "&B2-1;IDDATA&" "&DateDATA;0));"")}

---

et cela me créé des erreurs #REF dans les cellules restantes.
Je garde tout de même ta solution sous le coude au cas où je n'y arrive pas autrement. J'adapterais mon tableau en fonction.

Merci.

Cordialement.

Pour les boutons, il faut aller dans les propriétés et sélectionner
"Ne pas déplacer ou dimensionner avec les cellules"

Pour la formule, il suffit de l'enregistrer avec l'aide de l'enregistreur de macros, et de la recopier en fin de code pour l'appliquer sur les lignes restantes après filtrage

Voilà la macro avec l'insertion de la formule

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub EssaiSupp() Dim NmEssai As String, firstAddress As String Dim C As Range Dim Sh As Worksheet Set Sh = Sheets("SAISIE") DerLig = Sh.Range("C" & Rows.Count).End(xlUp).Row NmEssai = InputBox("Veuillez indiquer le numéro de l'essai à supprimer :", "Suppression d'un essai dans la feuille de saisie") If NmEssai <> "" Then If Sh.AutoFilterMode = False Then Sh.Rows(1).AutoFilter 'Ajoute un filtre sur la 1ère ligne Sh.Range("A3:J" & DerLig).AutoFilter Field:=3, Criteria1:=NmEssai 'Filtre sur la colonne C Sh.Rows("2:" & DerLig).SpecialCells(xlCellTypeVisible).Delete 'Supprime toutes les lignes avec le critère "NbEssai" ActiveSheet.AutoFilterMode = False 'on enlève le filtre End If DerLig = Sh.Range("C" & Rows.Count).End(xlUp).Row Range("G2").FormulaArray = "=IF(RC[-2] <> """",INDEX(DensitéDATA,MATCH(RC[-6]&"" ""&RC[-5]-1,IDDATA&"" ""&DateDATA,0)),"""")" Range("G2").AutoFill Destination:=Range("G2:G16"), Type:=xlFillDefault End Sub

---

Edit:
j'ai déposé un peu vite, vu qu'il fallait m'absenter, et en ai oublié de modifier la dernière ligne: volilà la correction
Range("G2").AutoFill Destination:=Range("G2:G" & DerLig), Type:=xlFillDefault

Merci beaucoup pour le temps que vous m'avez consacré. Je vais regarder cela plus tard.

Bon week-end à tous. Paul.

Citation:

---

Envoyé par PaulG2B

Par contre cela génère une nouvelle erreur puisque j'ai touché à C
erreur '1004' : Impossible de lire la propriété FindNext de la classe Range :calim2:

---

Supprime le "C" en paramètre dans FindNext.
De toutes façon, il est inutile : étant donné que tu supprimes les lignes trouvées, le FindNext ne risque pas de les trouver de nouveau.

Bonjour,

Je passe juste pour remercier Menhir et ARTURO83 j'ai synthétisais leurs propositions pour ma suppression de ligne et virer la formule matricielle (d'ailleurs j'ai l'impression que cela allège le fichier).

Bonne continuation.