Modification du Code supprime

[apdf1]

Bonjour

J'ai besoin d'un coup de main pour finir mon formulaire, quand j'enregistre les valeurs à l'aide du bouton "ajouter" j'enregistre sur la feuille active et sur la feuille "Récap".

Quand je veut supprimer une ligne, avec le code actuel je ne peut que supprimer une ligne sur la feuille active et j'aimerais aussi supprimé sur la feuille "Récap"

Si quelqu'un à une idée pour modifier mon code je suis preneur.
Mon code;

' supprimer
Private Sub CommandButton4_Click()

  Range("B" & 5 + Me.ComboBox1.ListIndex).EntireRow.Delete
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
     TextBox5 = ""
      TextBox6 = ""
       TextBox7 = ""
        TextBox8 = ""
         TextBox9 = ""
          TextBox10 = ""
           TextBox11 = ""
            TxtHT = ""
             TxtTva = ""
            TxtTTC = ""
    ComboBox1 = ""
End Sub

Ci joint mon fichier
Cordialement
Max

 

[apdf1]

Re : Modification du Code supprime

Re

En faite c'est supprimer sur deux Feuilles.

Max

 

[fhoest]

Re : Modification du Code supprime

Rebonjour,
voici une solution pour ton projet:

Private Sub CommandButton4_Click()
Dim c As Range
Dim ligne As Long
With Sheets("Recap")
For Each c In .Range("b4:b" & .UsedRange.Rows.Count)
If c.Text = ComboBox1 Then c.EntireRow.Delete
Next
End With
  Range("B" & 5 + Me.ComboBox1.ListIndex).EntireRow.Delete
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
     TextBox5 = ""
      TextBox6 = ""
       TextBox7 = ""
        TextBox8 = ""
         TextBox9 = ""
          TextBox10 = ""
           TextBox11 = ""
            TxtHT = ""
             TxtTva = ""
            TxtTTC = ""
           
           
           
    ComboBox1 = ""
End Sub

Test et retourne moi un message si tu as un problème car je n'ai pas tester a 100% la solution.
A+

 

[stefan373]

Bonsoir apdf et le forum.
Si je peux me permettre pour vider les textbox de 1 à 11.

Dim i As Long
For i = 1 To 11
Controls("textbox" & i).Value = ""
Next

A +