Discussion :

[jackborogar]

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

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jackborogar]

Parfait

[jackborogar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[jfontaine]

Essais avec Intersect

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jackborogar]

De nouveau parfait