Discussion :

[apdf1]

Bonjour,

J'ai un userform , quand j'enregistre les valeurs à l'aide du bouton "ajouter" j'enregistre sur deux feuilles, la feuille active et la feuille "Récap".
Quand je veut supprimer une ligne avec le bouton supprime de l'userform, avec le code actuel je ne peut que supprimer une ligne sur la feuille active et j'aimerais aussi supprimé la même ligne qui se trouve sur la feuille "Récap"
Si quelqu'un à une idée je le remercie d'avance.

Cordialement

Max

[Theze]

Bonjour,

Sans ouvrir ton classeur (chose que je fait rarement car sinon, tout le monde va se mettre à poster son classeur à chaque post :0(( ), teste ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Supprimer(NbLigne As Long)
 
    Dim Fe1 As Worksheet
    Dim Fe2 As Worksheet
 
    Set Fe1 = ActiveSheet
    Set Fe2 = Worksheets("Recap")
 
    Fe1.Rows(NbLigne).EntireRow.Delete
    Fe2.Rows(NbLigne).EntireRow.Delete
 
End Sub
 
Sub test()
 
    'supprime la 5ème ligne
    Supprimer 5
 
End Sub

Hervé.

[apdf1]

Bonjour

Et merci d'avoir répondu mais ce n'est pas exactement se que je recherche.
Ou peut être je n'est pas compris, je joint mon code qui seras plus parlant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
' 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

Si tu veut bien jeter un oeil

Je te remercie d'avance

Bonne journée

Max

[casefayere]

Bonjour le forum,Theze, apdf1

avant toute chose, tu as oublié de mettre "option explicit" en haut de tes codes, 2 conseils :
1 - ajoutes cette option et executes ton code car tu risques d'avoir des surprises comme les messages "variable on déclarée",
2 - il serait utile de déclarer certaines de tes variables en "Public" dans un module ou avec dim mais en haut de ton code USF.
maintenant, n'ayant pas regardé ou analyser plus loin ton code sur les lignes à supprimer et les textbox à vider :
à tester :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton4_Click()
Dim objControl As Control 'ne pas oublier
ActiveSheet.Range("B" & 5 + Me.ComboBox1.ListIndex).EntireRow.Delete
Sheets("Recap").Range("B" & ligne + 5).EntireRow.Delete 'vérifier la ligne
For Each objControl In UserForm1.Controls
   objControl.Text = ""
Next
ComboBox1 = ""
End Sub

[apdf1]

Bonjour et merci beaucoup d'avoir répondu.

Voila j'ai fait comme tu me la souscrit mais comme tu avais dit sa plante et je ne vois pas quoi faire de temps plus que je suis sur ce problème depuis hier et je n'arrive pas m'en dépatouiller.

Je joint mon fichier qui seras plus parlant

J'ai besoin d'un coup de main pour finir mon formulaire
Je recherche mon client par le Combobox1 et je doit pouvoir le supprimer dans la feuille active et la feuille Recap

Cordialement
Max

[casefayere]

re,
Executes ton code (précises lequel sur ton post) en pas à pas, donnes le message d'erreur et la ligne où ça plante

[apdf1]

re,

Quand j'exécute mon code au moment je supprime un Message d'erreur
"Variable objet ou variable de bloc With non definie"
et objControl.Text = "" se met en sur brillant

Mais la ligne s'efface bien sur les deux feuilles

@+

Max

[casefayere]

Excuses-moi,
rectifie cette partie :

Code :

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

1
2
3
4
5
For Each objControl In UserForm1.Controls
   If TypeOf objControl Is msforms.TextBox Then'à ajouter
      objControl.Text = ""
   End If'à ajouter
Next

[apdf1]

Re,

Je te remercie beaucoup et te souhaite un bon Week end

Max