Suppression d'une ligne dans excel

Résolu/Fermé
julemoque Messages postés 21 Date d'inscription mercredi 4 juillet 2012 Statut Membre Dernière intervention 4 mars 2013 - 4 juil. 2012 à 14:25
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 - 5 juil. 2012 à 13:08
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 !!!



A voir également:

2 réponses

Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
4 juil. 2012 à 15:34
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 avec
ActiveCell.EntireRow.Delete
A+
0
julemoque Messages postés 21 Date d'inscription mercredi 4 juillet 2012 Statut Membre Dernière intervention 4 mars 2013
4 juil. 2012 à 16:07
Merci pour ta reponse ,mais il ne me supprime pas la demande de ma feuille 1,étant novice je ne doit pas faire tout bien comme il faut. Peux-tu m'en dire plus? Merci A+
0
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
4 juil. 2012 à 16:09
dans la feuille 3 "consultation" je peut retrouver n'importe quelle demande par rapport a son n°
Il faudrait préciser de quelle façon tu peux retrouver ta demande dans la feuille 3
0
julemoque Messages postés 21 Date d'inscription mercredi 4 juillet 2012 Statut Membre Dernière intervention 4 mars 2013
4 juil. 2012 à 16:28
Quand je saisi une nouvelle demande un n° se mets automatiquement et pour la rechercher je tape son n° dans la cellule de la feuille consultation ou j'ai mis une formule avec recherchev.
0
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
4 juil. 2012 à 16:47
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+
0
julemoque Messages postés 21 Date d'inscription mercredi 4 juillet 2012 Statut Membre Dernière intervention 4 mars 2013
4 juil. 2012 à 18:26
Je te remercie mais j'ai un message qui me dit microsoft vb avec une croix rouge 400 OK AIDE

A+
0
julemoque Messages postés 21 Date d'inscription mercredi 4 juillet 2012 Statut Membre Dernière intervention 4 mars 2013
5 juil. 2012 à 08:42
Bonjour, je n'ai toujours pas trouvé mais je voulais te remercier pour ton éfficacité ,ton aide et tes competances qui m'ont appris .
Bonne journée A+.
0
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
5 juil. 2012 à 08:53
Bonjour,
Il faut initialiser la variable "ligne" au premier enregistrement, si tes n° auto commencent ligne 2, il faut que :
ligne = 2

A+
0
julemoque Messages postés 21 Date d'inscription mercredi 4 juillet 2012 Statut Membre Dernière intervention 4 mars 2013
5 juil. 2012 à 09:17
Je suis désolé mais j'ai un messange incompatibilité, je suis sur excel 2007

A+
0
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
Modifié par Morgothal le 5/07/2012 à 09:51
Ç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 
0