suppression après selection dans combobox

[paul87]

Bonsoir à tous, Bonsoir le Forum.
Voilà, dans l'appli que j'ai mis en fichier joint, j'ai des cellules D11 à D18 que je souhaite remplir avec 2 combobox..(1 et 2).
jusque là tout est OK..ça marche!!!
mais je souhaiterais qu'après une sélection de date dans le ou les combos, la date disparaisse de la liste en feuille"STOCK"...ce qui me permettrait d'avoir l'état de mes stock..après utilsation..
je ne sais pas si c'est tres clair..
mais je n'y arrive pas
Merci..

 

[skoobi]

Re : suppression après selection dans combobox

Bonsoir paul87,

voici le nouveau code pour le bouton "valider/quitter":

Private Sub CommandButton1_Click()
Dim dat As Range
With Sheets("STOCK")
    If ComboBox1.Value <> "" Then
        Set dat = .Columns("B").Find(DateValue(ComboBox1.Value), LookIn:=xlValues)
        If Not dat Is Nothing Then
            dat.Delete Shift:=xlShiftUp
        End If
    ElseIf ComboBox2.Value <> "" Then
        Set dat = .Columns("E").Find(DateValue(ComboBox2.Value), LookIn:=xlValues)
        If Not dat Is Nothing Then
            dat.Delete Shift:=xlShiftUp
        End If
    End If
End With
UserForm2.Hide
End Sub

 

[paul87]

Re : suppression après selection dans combobox

re bonsoir...
Et merci à toi skoobi
ça à l'air de fonctionner tres bien,....c'est pile ce qu'il me fallait...genial!!
juste un petit problème..
lorsqu'on fait plusieurs saisies dans les dates de péremption...(ex KitD)..
il y a donc plusieurs ouvertures consécutives du UF...mais les dates déja sélectionnées apparaissent toujours...
problème de mise à jour de la combobox à l'ouverture du UF...rafraichissement du UF...
penses tu que ce soit modifiable..?

 

[skoobi]

Re : suppression après selection dans combobox

Re,

remplace

UserForm2.Hide

par

Unload UserFom2

Explication:
.Hide ferme uniquement la macro. Les valeurs restent en mémoire ("Private Sub UserForm_Initialize()" n'est pas relue).
Unload ferme et vide les valeurs en mémoire ("Private Sub UserForm_Initialize()" est relue).

Edit: du coup cette macro devient inutile:

Private Sub UserForm_Activate()
Me.ComboBox1 = ""
Me.ComboBox2 = ""
End Sub

😉

 

[paul87]

Re : suppression après selection dans combobox

re,
un grand grand merci,..
c'est nickel.....
effectivement la difference entre hide et unload est fondamentale..
Encore merci beaucoup
A bientôt