Supprimer via Userform

Bonsoir le forum,

J'ai essayé de traficoté un code (trouvé) pour supprimer une ligne d'une base via un Userform. J'aurais voulu que le code marche même si je suis pas sur la feuille Base.

Ex : Je suis sur ma feuille Filtre, j'effectue la suppression depuis cette feuille et j'aurais voulu qu'une fois la ligne supprimer je reste dans ma feuille filtre (d'où le K=ActiveSheet pour pouvoir y revenir à la fin avec K.Select.

Voici mon code :

Private Sub CommandButton3_Click() 'SUPPRIMER
Dim K As Variant
Set K = ActiveSheet
Var = Sheets("Base").Range("A:A").End(xlDown).Row + 1
r = MsgBox("Voulez-vous confirmez la suppression", vbYesNo, "Supprimer")
If r <> 6 Then Exit Sub
Selection.EntireRow.Delete
ThisWorkbook.RefreshAll
K.Select
End Sub

Avec ce code, la ligne supprimer se situe sur la feuille active et non pas dans ma base. Pourtant j'ai rajouter la variante K sur tous mes autres boutons; Tous marche bien....

Quelqu'un a-t-il une idée ? Je vous remercie d'avance

A bientôt,

Loris

Tu peux fournir ton fichier?

J'oublie tout le temps,

Le voici, mais je m'aperçois qu'à aucun moment j'ai rentré le nom Combobox1 dans le code, il peut donc pas savoir quelle ligne supprimer...

Et tu le vois comment ton formulaire exactement? Comment veux tu sélectionner la donnée à supprimer? Quel est l'intérêt d'un formulaire si tu peux supprimer directement la donnée en base?

Re-bonsoir,

C'est tout bon, j'me suis débloqué tout seul après plusieurs tests.

Merci quand même d'avoir pris le temps d'étudier ma question

Amicalement

Loris

Bonjour

en principe pour la gestion dune base on commence toujours par une listeview

voila un modèle

A+

Maurice

Bonjour,

Je ne connaissais pas du tout cette possibilité étant novice en la matière.

Cela fonctionne comme ma feuille Filtre visiblement mais c'est plus efficace !

Je vais étudier cette piste pour pouvoir améliorer ma base

Merci beaucoup

@+

bonjour

voile un début de creatmodif

avec des combobox

a toi de finir si ca te va

A+

Maurice

C'est pas mal, mais je vous avoue que je préfère mon formulaire que je trouve bien complet.

Par contre je vous remercie vraiment de m'avoir fait découvrir la listview c'est très pratique ! J'ai essayé de l'améliorer; je redemanderais surement pour les options que je ne sais pas effectuer.

Encore merci

A bientôt

Loris

bonjour

la ses toi qui voie

mes pense que les OptionButton ne sont pas évolutif

et en plus tu ses pas comment ca marche

A+

Maurice