Probl suppression de donnée ( VBA )

[mikepers]

Bonsoir le forum, merci pour votre aide.
Mon problème : une simple liste de dates, et via un userform
la gestion de cette liste ( rajout d'une date avec calendar - rappel d'une date
via un combobox - possibilité de retirer la date de la liste )
j'ai appliqué un code standard, qui fonctionne sur la majorité de mes bases de
données, mais là rien à faire pour ce qui concerne le code du bouton de retrait!!!
la macro s'exécute sans déboguage, mais la date reste présente dans la liste...
Voici le code; quelqu'un voit il un souci ????
Merci par avance.
............................................................................
Private Sub CommandButton3_Click()
' Retirer DATE de liste de choix


Application.ScreenUpdating = False
Sheets("listes de choix").Select
Dim config As Integer
Dim réponse As Integer
Dim L, i As Integer
L = Sheets("listes de choix").Range("F200").End(xlUp).Row
For i = 2 To L
If Sheets("listes de choix").Range("F" & i) = Userform3.ComboBox1.Value Then
Sheets("listes de choix").Range("F" & i).Select
ActiveCell.ClearContents
ActiveCell.Offset(0, 0).ClearContents

End If
Next

Unload Userform3
Load Userform3
MultiPage1.Value = 0
Userform3.Show
Sheets("travail").Select
Application.ScreenUpdating = True
end sub
.................................................................
Je vois pas ce qui cloche, et pourtant la date ne se retire pas de la liste...

 

[PascalXLD]

Re : Probl suppression de donnée ( VBA )

Bonjour

essaies en modifiant ainsi

If Sheets("listes de choix").Range("F" & i) = CDate(Userform3.ComboBox1.Value) Then

 

[mikepers]

Re : Probl suppression de donnée ( VBA )

Salut Pascal, merci pour ta réponse.
Bien vu, la date se retire bien de la liste mais:
le débogueur n'apprécie pas et m'envoie une erreur
"incompatibilité de type".
Tu vois ce que c'est ??

Merci encore

 

[PascalXLD]

Re : Probl suppression de donnée ( VBA )

RE

Et tu as quelle ligne de surlignée ???

 

[mikepers]

Re : Probl suppression de donnée ( VBA )

If Sheets("listes de choix").Range("F" & i) = CDate(Userform3.ComboBox1.Value) Then
( la tienne )

 

[PascalXLD]

Re : Probl suppression de donnée ( VBA )

RE

bizarre tu pourrais mettre ton fichier sans données confidentielles pour voir STP

 

[mikepers]

Re : Probl suppression de donnée ( VBA )

le fichier dispo sur rapidshare ( .rar )- le lien:
RapidShare Webhosting + Webspace
mot de passe VBA = mon pseudo forum
**********************************
note : le fichier est complexe : le problème est
sur le USF3

MERCI BEAUCOUP.

 

[porcinet82]

Re : Probl suppression de donnée ( VBA )

Salut Mikepers, Pascal,

Je viens de jeter un oeil a ton fichier et j'ai apporté quelques modif et ca a l'air de fontionner. Comme je ne peux pas te le poster, je vais te donner les bout de code que j'ai modifié.
Tout d'abord dans la propriété RowSource de la combobox1, tu enleves ce que tu avais mis, tu laisses vide. En faite, on remplit le combo lors de l'initialisation du USF3, de plus ca permet d'eviter les trous dans la combo. Pour ca, il te suffit de modifier le code suivant :

Private Sub UserForm_Initialize()
MultiPage1.Value = 0
Me.Calendar1.Value = Date
'on remplit ici la combo, ce qui permet d'eviter les trous
ComboBox1.Clear
With Sheets("listes de choix")
    For i = 2 To .Range("F65536").End(xlUp).Row
        If IsEmpty(Cells(i, 6)) = False Then ComboBox1.AddItem (.Cells(i, 6).Value)
    Next i
End With
End Sub

Ensuite, pour le code qui merdouillait, met plutot ca :

Private Sub CommandButton3_Click()
' Retirer DATE de liste de choix
Application.ScreenUpdating = False
Sheets("listes de choix").Select
Dim config As Integer
Dim réponse As Integer
Dim L, i As Integer
L = Sheets("listes de choix").Range("F65536").End(xlUp).Row
For i = 2 To L
    If Sheets("listes de choix").Range("F" & i) = CDate(Userform3.ComboBox1.Value) Then
        Sheets("listes de choix").Range("F" & i).ClearContents
        Exit For
    End If
Next
Unload Userform3
MultiPage1.Value = 0
Userform3.Show
Sheets("travail").Select
Application.ScreenUpdating = True
End Sub

@+

 

[mikepers]

Re : Probl suppression de donnée ( VBA )

Salut, Porcinet et pascal.
Un immense merci à vous deux: je récupére le code que je placerai en soirée
( et oui, je bosse ce soir...).
Mais ques que je ferais sans vous???

Bien à vous, et bonne soirée

 

[PascalXLD]

Re : Probl suppression de donnée ( VBA )

Re

Bon je vois que porcinet a fait le boutlot pendant mon abscence

Alors je retourne à ma sieste LOL 😀

Bon WE

 

[mikepers]

Re : Probl suppression de donnée ( VBA )

Merci à vous deux, le code est extra !!