Discussion :

[zepeto]

Bonjour au forum,
je fait appel à vous car je posséde un code (voir PJ), mais je voudrais que quand je clique sur le bouton "supprimer" cela détruise les informations correspondantes à la recherche?
Merci par avance et je reste disponible pour plus d'informations.

[zandru]

Bonjour,

une fois que tu connais la ligne à supprimer (un numero dans une variable) :

Code :

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

1
2
ligne = 20
Rows(ligne).Delete Shift:=xlUp

dans cet exemple, la ligne 20 est supprimé


PS : n'hésite pas à mettre du code dans tes messages, c'est plus simple que des pièces jointes pour discuter dessus.

[zepeto]

Merci pour ton aide,
sinon je connait le code permettant la suppression mais je ne sais pas par rapport à mon code lui dire quelle ligne il doit supprimer
Comme tu l'as dit il faut surment déclarer une variable à laquelle tu affecte la valeur de la ligne à supprimer mais je n'y arrive pas.
Merci

[zandru]

pour connaitre la ligne à supprimer il suffit de faire une boucle qui recherche un élément particulier dans une colonne et d'incrémenter la variable. si c'est pas clair un exemple :

Code :

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

1
2
3
4
 ligne = 1
    While feuil.Cells(ligne, 1) = ElementSelection
        ligne = ligne + 1
    Wend

donc dès que tu trouve ce qu'il y a dans la variable ElementSelection, ligne correspond à la ligne à supprimer.

[zepeto]

Je tape sa et sa ne marche pas saurait tu pourquoi?

Code :

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

1
2
3
4
5
6
7
8
 
    ligne = 2
    Selection = montextbox
    While Sheets("proc").Cells(ligne, 1) <> Selection
        ligne = ligne + 1
    Wend
    Sheets("proc").Rows(ligne).Delete
    MsgBox (" Suppression réalisé avec succès")

[zandru]

Je pense qu'il faudrait les correction suivantes :

Code :

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

1
2
3
4
5
6
7
ligne = 2
    Selection = montextbox.Value
    While StrComp(Cstr(Sheets("proc").Cells(ligne, 1), Selection,vbTextCompare)<>0
        ligne = ligne + 1
    Wend
    Sheets("proc").Rows(ligne).Delete
    MsgBox (" Suppression réalisé avec succès")

il ne reste plus qu'à tester


Désolé pour cette réponse tardive, mais je ne me suis pas connecté dépuis...