macro : rechercher une donnée

[Poutou75]

Hello !

Quelqu'un pourrait-il m'aider sur la macro suivante :

- une inputbox demande un numéro de dossier
- ce numéro est recherché dans la colonne A de la feuille 2
- la ligne contenant cette donnée est entièrement copiée
- la ligne est collée ensuite dans la ligne 100 de la feuille 1

A votre dispo pour tout info supplémentaire...

Un grand merci pour votre aide !

 

[Jacques87]

Bonsoir

Voici la macro qui devrait te convenir

Dim reponse As Integer, I as Integer, lign As Integer

Reponse = InputBox('numéro de dossier ?')
ForI = 1 to WorkSheets('Feuil2').Range('A65536')End(XlUp)Row
If WorkSheets('Feuil2').Range('A' & I).Value = Reponse Then lign = I
Next I
WorkSheets('Feuil2').Rows(lign).Copy
WorkSheets('Feuil1').Rows('100:100').Select
ActiveSheet.Paste
Application.CutCopyMode = False

Bon courage

 

[myDearFriend!]

Bonsoir Poutou75, Jacques87,

Une autre façon de faire :

On Error Resume Next
Sheets('Feuil2').Rows(Application.Match(Application.InputBox('Numéro de dossier ?', _
      Type:=1), Sheets('Feuil2').Columns(1), 0)).Copy Destination:=Sheets('Feuil1').Rows(100)

Cordialement,

Message édité par: myDearFriend!, à: 16/02/2006 22:48