Bonjour a tout le monde
je vous contacte car je percute sur un souci
voila j'ai un listbox qui marche bien mais il y a une partie du code qui ne marche pas:
la voici
---------------------------------------------------------------------
finn = Range("c65536").End(xlUp).Row
keyword = Application.InputBox("enter a keyword to search in colum E", "keyword")
result = Application.InputBox("enter a keyword to search in colum E", "keyword")
For ending = 6 To finn
If Cells(ending, 3).Value = unknown.ListBox1.Text _
And Cells(ending, 6).Interior.Color <> 10025880 And Cells(ending, 4) = "Error" Then
If Cells(ending, 5).Value Like keyword Then
Cells(ending, 6) = result
End If
End If
Next
---------------------------------------
le probleme est clairement situe sur
If Cells(ending, 5).Value Like keyword Then
la macro ne met pas le result (rentré dans l'inputboxe ) dans la colonne 5
si vous avez une idee, je vous en serai reconnaissant
Merci a tous
je vous contacte car je percute sur un souci
voila j'ai un listbox qui marche bien mais il y a une partie du code qui ne marche pas:
la voici
---------------------------------------------------------------------
finn = Range("c65536").End(xlUp).Row
keyword = Application.InputBox("enter a keyword to search in colum E", "keyword")
result = Application.InputBox("enter a keyword to search in colum E", "keyword")
For ending = 6 To finn
If Cells(ending, 3).Value = unknown.ListBox1.Text _
And Cells(ending, 6).Interior.Color <> 10025880 And Cells(ending, 4) = "Error" Then
If Cells(ending, 5).Value Like keyword Then
Cells(ending, 6) = result
End If
End If
Next
---------------------------------------
le probleme est clairement situe sur
If Cells(ending, 5).Value Like keyword Then
la macro ne met pas le result (rentré dans l'inputboxe ) dans la colonne 5
si vous avez une idee, je vous en serai reconnaissant
Merci a tous