Userform suppression de ligne

[aborsell]

Bonjour à tous,

Je ne maîtrise pas bien VBA et la je bloque,

Je souhaite créer un userform qui s'ouvre lorsqu'on clique sur un bouton. Sur cet userform, on rentre le N° de la ligne que supprimer.
Jusque la ça va lol.

On clique sur ok et un autre userform nous demande si on est bien sûr de vouloir supprimer cette ligne (ok ou annuler).
Si ok la ligne en question est supprimée entièrement (pas uniquement le continu).

Je bloque sur ce point.

Si quelqu'un peut me venir en aide, je lui en serait très reconnaissant.

Merci
Adrien

 

[vbacrumble]

Re : Userform suppression de ligne

Bonjour


Tu peux passer par un Msgbox à la plage de l'userform2, non ?

(Ton classeur s'en trouvera allégé)

EDITION: même suggestion que PascalXLD

Private Sub CommandButton1_Click()
Dim Ligne&, Sur
Ligne = TextBox1
Sur = MsgBox("Etes-vous sur de vouloir supprimer la ligne :" & Ligne & " ?", vbYesNo)
If Sur = vbYes Then
Cells(Ligne, 1).EntireRow.Delete
Me.Hide
Else
Exit Sub
End If
End Sub

 

[PascalXLD]

Re : Userform suppression de ligne

Bonjour

tu peux mettre ceci sur le code de ton bouton sans avoir 2 UF

Private Sub CommandButton1_Click()
If MsgBox("Etes vous sûr de supprimer cette ligne?", vbYesNo) = vbYes Then Rows(Val(TextBox1)).Delete
unload me
End Sub

 

[tanerbus]

Re : Userform suppression de ligne

ou bien encore

dans ton userform2

Private Sub CommandButton1_Click()

Rows(UserForm1.TextBox1.Value & ":" & UserForm1.TextBox1.Value).Select

Selection.Delete Shift:=xlUp
End Sub

 

[PascalXLD]

Re : Userform suppression de ligne

ou bien encore

dans ton userform2

Private Sub CommandButton1_Click()

Rows(UserForm1.TextBox1.Value & ":" & UserForm1.TextBox1.Value).Select

Selection.Delete Shift:=xlUp
End Sub

Re

Tu n'es pas obligé de passer par un select. Regardes mon code et tu verras. C'est beaucoup plus pratique et rapide et c'est une bonne habitude à prendre d'oublier les select

 

[aborsell]

Re : Userform suppression de ligne

Yes !!

Merci beaucoup à vous tous !! Quelle efficacité !!

Je souhaiterais juste rajouter un message d'erreur "entrez un N° de ligne !!" sur on clique sur ok sans avoir mis de N°.

J'essaye mais j'y arrive po lol..

Un chti coup de pouce SVP ???

Merci
Adrien

 

[PascalXLD]

Re : Userform suppression de ligne

RE

modifies ainsi, j'ai rajouter le cas ou quelqu'un met une lettre ou autre

Private Sub CommandButton1_Click()
On Error GoTo erreur
If TextBox1 = "" Then
MsgBox ("Merci d'indiquer une ligne")
Exit Sub
End If
If MsgBox("Etes vous sûr de supprimer cette ligne?", vbYesNo) = vbYes Then Rows(Val(TextBox1)).Delete
Unload Me
Exit Sub
erreur:
MsgBox ("Il faut indiquer un nombre pour une ligne.")

End Sub

 

[aborsell]

Re : Userform suppression de ligne

Rolala, c'est génial !!

J'étais dessus depuis 2 heures ... (faut vraiment que je fasse des tutos vba ...)

Merci BEAUCOUP !!

Adrien

 

[PascalXLD]

Re : Userform suppression de ligne

Rolala, c'est génial !!

J'étais dessus depuis 2 heures ... (faut vraiment que je fasse des tutos vba ...)

Merci BEAUCOUP !!

Adrien

DE rien, mais t'inquiètes pas de la pratique encore de la pratique et ça vient rapidement