Suppression d'une ligne dans excel
Résolu
julemoque
Messages postés
21
Statut
Membre
-
Morgothal Messages postés 1350 Statut Membre -
Morgothal Messages postés 1350 Statut Membre -
Bonjour à tous,
Je mets en place une base de données pour des travaux à exécutés et je recherche une formule qui me permetterais de supprimer la ligne avec son contenu;Je m'explique:Jai 1 feuille nommée "bdaf"qui dans a1 n°auto, dans a2 batiment, dans a3 demandeur etc...,dans la 2eme feuille nomée formulaire de saisie qui me donne le n° de la demande , je rentre toutes les données j'enregistre par une macro et qui s'ajoute dans "bdaf"dans la feuille 3 "consultation" je peut retrouver n'importe quelle demande par rapport a son n° et voila la question comment de ma feuille 3 supprimer la demande une fois réalisée.
Un grand merci !!!
Je mets en place une base de données pour des travaux à exécutés et je recherche une formule qui me permetterais de supprimer la ligne avec son contenu;Je m'explique:Jai 1 feuille nommée "bdaf"qui dans a1 n°auto, dans a2 batiment, dans a3 demandeur etc...,dans la 2eme feuille nomée formulaire de saisie qui me donne le n° de la demande , je rentre toutes les données j'enregistre par une macro et qui s'ajoute dans "bdaf"dans la feuille 3 "consultation" je peut retrouver n'importe quelle demande par rapport a son n° et voila la question comment de ma feuille 3 supprimer la demande une fois réalisée.
Un grand merci !!!
2 réponses
-
Salut,
Dans la 3e feuille, si tu peux y retrouver toutes tes infos grâce au numéro auto, c'est que tu dois y faire une recherche de numéro auto.
Si tu peux retrouver cette ligne et sélectionner la cellule en question, tu peux faire un bouton qui la supprime avecActiveCell.EntireRow.Delete
A+ -
J'ai fait cet Excel pour que tu puisses l'appliquer dans ton classeur :
https://www.cjoint.com/?BGeqSRHP0R4
Lorsque tu exécutes le raccourci Alt+F11, tu peux voir le code qu'exécute le bouton. Tu peux tout copier dans ton classeur, au même endroit (donc dans l'éditeur VBA de ton classeur), puis créer un bouton sur ta feuille Excel, puis affecter la macro que tu as copiée à ce bouton (clique droit sur le bouton, affecter macro, choisir la macro "suppr").
Puis en cliquant sur le bouton, tu peux tester. (Attention, je te conseille de faire une copie de ton classeur, supprimer des données ce n'est pas anodin).
A ta disposition,
A+-
-
-
-
-
Ça doit venir de la comparaison entre le numéro de demande en entrée et le format du numéro auto, remplace tout le code par celui-ci :
Sub suppr() Dim ligne As Long Dim demande As String demande = InputBox("Saisir le numéro de la demande à supprimer") ligne = 2 'le 2 désigne le n° de ligne où commencent les n°auto While CInt(Cells(ligne, 1).Value) <> CInt(demande) 'le 1 désigne le numéro de colonne des n°auto ligne = ligne + 1 Wend Cells(ligne, 1).EntireRow.Delete MsgBox ("La demande n° " & demande & " a été supprimée avec succès") End Sub
-
