pb de listbox

[difovelo]

Bonsoir,
Je suis débutant, et j'ai un pb qui ne doit pas etre tres compliqué, mais qui me bloque...
En fait, a l'aide de 2 listbox, j'envois des données dans une 3ème listbox. Ensuite je voudrais que si les données ne sont pas dans la 3ème listbox, la ligne correspondante soit effacée quand on clic sur un commandbutton ('terminer'):
Je pense à quelque chose comme:
Private sub terminer_click()
If aaaaaa n'est pas dans la listbox then
rows('5:5').clearcontents
End if
End sub

Je vous joint mon fichier pour que ce soit plus clair.
Merci pour votre aide!

[file name=difovelo.zip size=15800]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/difovelo.zip[/file]

 

[Robert]

Bonsoir Greg Difovelo, bonsoir le forum,

Je te propose ce code pour le bouton Terminer :

Private Sub CB_Terminer_Click()
For Each cel In Range('B2:B' & Range('B65536').End(xlUp).Row)
For x = 0 To ListBox2.ListCount - 1
If cel.Value = ListBox2.List(x) Then
GoTo Suite
End If
Next x
cel.EntireRow.ClearContents
Suite:
Next cel
End Sub

Message édité par: Robert, à: 16/05/2005 21:14

 

[difovelo]

Re bonsoir Robert,
Merci beaucoup de ton aide, c'est exactement ce qu'il me fallait!
C'est gentil, ça fait plusieurs fois que tu m'aides depuis 15 jours!
Bonne soirée, A+.