Supprimer la ligne que j'ai selectioné précédemment

bonjour,

j'aimerai supprimer la ligne que j'ai sélectionné précédemment je m'explique dans la feuille (BT en cours) je sélectionne la ligne que je veux modifier puis je clique sur le bouton modifier qui me re transcrit tout la ligne dans des cellule de la feuille (Rapport intervention)

la je fini de remplir les champs de la feuille rapport intervention et quand je clique sur valide j'aimerai que la ligne sélectionné de la feuille (BT en cours) soit supprimé

je ne vois pas comment faire.. avez un code VBA pour mettre dans le bouton validé ?

merci de votre aide

voici mon fichier

nom utilisateur : toto

MDP: toto

protection feuille : aaa

slt,

en ajoutat ce code aprés la boucle FOR?

Rows(LI).EntireRow.Delete

bonjour m3ellem1 ,

si je mais ce code dans mon bouton modifier ça fonctionne merci

mais j'aimerai si possible que la ligne sélectionné se supprime uniquement quand le bouton valide de autre feuille sois actionné

comme une sorte de condition

stp merci =)

Ah oui mais c‘est fcile a faire!

Tu vas sur le code du boutton validation et tu pointe sur la feuille voulue et t‘efface la ligne avec la cellule active! Comment supprimer tu as un exemple, sinon le soir je vois ca 😂

Re,

Sub valider_BT()
Sheets("Rapport intervention").Unprotect Password:="aaa"
Sheets("BT terminé").Unprotect Password:="aaa"
Sheets("BT en cours").Unprotect Password:="aaa"
ActiveSheet.Unprotect Password:="aaa"

Range("C9").Value = Now()

Sheets("BT terminé").Activate
derligne = Sheets("BT terminé").Range("A65536").End(xlUp).Row + 1

Cells(derligne, 1) = Range("date_2").Value
Cells(derligne, 2) = Range("demandeur_2").Value
Cells(derligne, 3) = Range("réalisé_par_2").Value
Cells(derligne, 4) = Range("typinterv_2").Value
Cells(derligne, 5) = Range("priorité_2").Value
Cells(derligne, 6) = Range("equipement_2").Value
Cells(derligne, 7) = Range("sous_ensemble_2").Value
Cells(derligne, 8) = Range("bt_2").Value
Cells(derligne, 9) = Range("OBJET_2").Value
Cells(derligne, 10) = Range("technicien").Value
Cells(derligne, 11) = Range("piece").Value
Cells(derligne, 12) = Range("date_fin_inter").Value
Cells(derligne, 13) = Range("heure_redemarage").Value
Cells(derligne, 14) = Range("heure_inter").Value
Cells(derligne, 15) = Range("conclusion").Value
Cells(derligne, 16) = Range("date_fin").Value
Cells(derligne, 17) = Range("heure_debut").Value

Range("date_2").Value = ""
Range("demandeur_2").Value = ""
Range("réalisé_par_2").Value = ""
Range("typinterv_2").Value = ""
Range("priorité_2").Value = ""
Range("equipement_2").Value = ""
Range("sous_ensemble_2").Value = ""
Range("bt_2").Value = ""
Range("objet_2").Value = ""
Range("technicien").Value = ""
Range("piece").Value = ""
Range("date_fin_inter").Value = ""
Range("heure_redemarage").Value = ""
Range("heure_inter").Value = ""
Range("conclusion").Value = ""
Range("date_fin").Value = ""
Range("heure_debut").Value = ""

Sheets("BT en cours").Activate
Sheets("BT en cours").Rows(ActiveCell.Row).EntireRow.Delete

Sheets("Rapport intervention").Activate
 ActiveSheet.Protect Password:="aaa"
 Sheets("BT terminé").Protect Password:="aaa"
 Sheets("BT en cours").Protect Password:="aaa"
 Sheets("Rapport intervention").Protect Password:="aaa"

End Sub

re bonjour m3ellem1 ,

je viens de tester ce matin et ça fonction du tonnerre je te remercie grandement =) !!!!

merci merci