bonjour a tous,
voila j'essaie de faire une macro qui consiste a aller dans la feuille ''Global count'' , faire une recherche. si le numero que je rentre dans la boite de dialogue existe alors la ligne a laquelle ce numero se trouve doit etre coupee et etre colle a la suite dans la feuille ''SHIP'' ( c'est a dire a la premiere ligne vide dans la feuille ''ship'').
voici mon code
merci de votre aide
voila j'essaie de faire une macro qui consiste a aller dans la feuille ''Global count'' , faire une recherche. si le numero que je rentre dans la boite de dialogue existe alors la ligne a laquelle ce numero se trouve doit etre coupee et etre colle a la suite dans la feuille ''SHIP'' ( c'est a dire a la premiere ligne vide dans la feuille ''ship'').
voici mon code
Code:
Sub Item_ship()
' macro pour rechercher a partir d'une boite de dialogue les ligne shipper
'creer une boite de dialogue pour faire une recherche
'tranferer les elements trouver dans la feuille ship
Dim resultat As Long
Dim i As Long
i = InputBox("Numero de serie?:") 'La variable reçoit la valeur entrée dans l'InputBox
If i <> "" Then 'Si la valeur est différente de
'couper la ligne
Worksheets("Global count").Range("A" & i & ":AQ" & i).Cut_
Worksheets("SHIP").Range ("A" & Sheets("SHIP").Range("A65536").End(xlUp).Row + 1)
End If
End Sub
merci de votre aide