Suppression tableau VBA via textbox

Bonjour à tous et à toutes,

J'ai créer un bouton qui va chercher un userform afin de pouvoir supprimer un tableau parmis "n" tableaux de ma feuille "Achat".

Le userform est composé d'un textbox1, qui prendra une valeur string, et j'aimerai donc comparé ce textbox1 avec le nom de tout mes tableaux puis de supprimer entièrement ce tableau.

Je pensais donc à comparé le textbox avec ma colonne "C" (début de mon tableau) et une fois que dans la colonne "C", le nom du textbox coordonne avec le nom présent alors supprimer la ligne + les 17 lignes suivantes puisque un tableau est composé de 18 lignes.

I need help :(

Merci d'avance

Bonjour,

Ci dessous un bout de code qui devrait te mettre sur la voie

Code:

---

1 2 3 4 5 6 7 8 9

Dim Rg As Range   'Cherche la cellule qui contient le nom du tableau Set Rg = Sheets("Feuil1").Range("C:C").Find(what:=textbox1.Text, lookat:=xlWhole)   If Not Rg Is Nothing Then 'Si le nom est trouvé on supprimes les lignes Sheets("Feuil1").Rows(Rg.Row & ":" & Rg.Row + 18).Delete End If

---

Parfait ;)

Bonjour

Connaissez vous une fonction rapide pour tester si une cellule se trouve dans une plage précise

Voici mon code mais il n'est pas bon

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Rg2 As Range   Set Rg2 = Sheets("Matrices").Range("K:K").Find(what:=UserForm4.TextBox1.Text, lookat:=xlWhole)   If Rg2 = Sheets("Matrices").Range("Blé") Then With Worksheets("Matrices").Range("P45") .Value = .Value - 1 End With End If

---

Bien Cordialement,

Essais avec Intersect

Code:

---

1 2 3 4 5 6 7 8 9

Dim Rg2 As Range   Set Rg2 = Sheets("Matrices").Range("K:K").Find(what:=UserForm4.TextBox1.Text, lookat:=xlWhole)   If Not Intersect(Rg2,Sheets("Matrices").Range("Blé")) Is Nothing Then With Worksheets("Matrices").Range("P45") .Value = .Value - 1 End With End If

---

De nouveau parfait