Supprimer une ligne en fonction d'une textbox

Bonjour,

Je voudrais faire une macro pour supprimer une ligne dans un autre onglet selon le chiffre de la textbox, après avoir appuyé sur le bouton "supprimer"

Genre

Worksheet("autre_onglet").EntireRow.Select

Selection.EntireRow.Delete

Cependant, je n'arrive pas à "appeler" la valeur contenue dans la textbox pour supprimer la ligne correspondante.

Je vous ai mis une petite image.

Est-ce que vous avez une idée?

Merci pour votre aide!

Pauline

J'ai cherché un peu... mais ça ne fonctionne pas.

Le but:

• Il y a une colonne avec des références
• Lorsque je rentre une rérérence dans la textbox et que je clique sur le bouton, ca supprime la ligne dans laquelle apparait cette référence.

Merci de votre aide

Pauline.

Bonsoir

A première vue (j'ai des lunettes) ton image ta macro doit fonctionner

Un vrai fichier Excel serait mieux

Tu notes ce que tu as et ce que tu veux (style Avant .... Après ....)

Donc:

1.Dans l'onglet accueil, je renseigne la textbox, je clique sur le bouton supprimer

2.Dans l'onglet "Données", lorsque le chiffre se trouve dans la colonne C, il faut que ça supprime la ligne entière.

Je suis encore dessus, je ne mets pas la main sur le problème...

Merci pour ton aide.

Pauline.

Bonsoir

Essayes

'supprimer la ligne dont la cellule en colonne C est identique à ce qu'il y a dans la textbox5 lorsque je clique sur le bouton 36
Sub Bouton36_Cliquer()
Dim rng As Range
Dim tx As String
    If Sheets("Accueil").TextBox5 = "" Then Exit Sub
    tx = Sheets("Accueil").TextBox5.Value
    Do
      Set rng = Sheets("Données").Range("C:C").Find(tx)
      If rng Is Nothing Then
        Exit Do
      Else
        Sheets("Données").Rows(rng.Row).Delete
      End If
    Loop
End Sub

Si je met "25" ça supprime les lignes dont les cellules de repérage commencent par "25" ("256","2578"...)

Merci de ton aide et pour le temps que tu passes dessus!

Pauline.

Bonjour à toi aussi

PaulineSavate a écrit :

Dans l'onglet "Données", lorsque le chiffre se trouve dans la colonne C, il faut que ça supprime la ligne entière.

Ce que la macro faisait

Modifie la macro (parties surlignées)

'supprimer la ligne dont la cellule en colonne C est identique à ce qu'il y a dans la textbox5 lorsque je clique sur le bouton 36
Sub Bouton36_Cliquer()
Dim rng As Range
Dim tx As String
    If Sheets("Accueil").TextBox5 = "" Then Exit Sub
    tx = Sheets("Accueil").TextBox5.Value
    Do
      Set rng = Sheets("Données").Range("C:C").Find(what:=tx, LookIn:=xlValues, lookat:=xlWhole)
      If rng Is Nothing Then
        Exit Do
      Else
        Sheets("Données").Rows(rng.Row).Delete
      End If
    Loop
End Sub

Oups pardon, me voilà impolie. Bonjour!

Un grand merci à toi Banzaï64, ce petit rajout fait marcher la macro comme je l'entend!

Merci pour ton aide !

Pauline.