Fonction recherche puis copier/coller

[Bino]

Bonjour,

Je viens d'intégrer une petite société. De suite on me demande de creer une IHM sous visual basic et un code qui permet de faire la recherche d'un code article dans un tableau d'environ 8000 lignes!. si l'article existe, de recopier 7 colonnes de cette article(Code, Designation, prix, etc) et de copier certaine colonnes de la feuil1 sur la feuil2 du même classeur.

J'ai fais un petit code qui fait deja la recherche mais qui affiche l'adresse du code article(la ligne). Je ne sais plus comment faire pour recopier les données dont j'ai besoin pour les mettre dans la feul2 aux enplacements spécifiques.

Voici mon code:
Sub recherche()
Dim rngTrouve As Range
Dim strChaine As String

strChaine = InputBox("Chaîne à rechercher :")
Set rngTrouve = ActiveSheet.Columns(1).Cells.Find(What:=strChaine)

If rngTrouve Is Nothing Then
MsgBox "Pas trouvé"
Else
MsgBox rngTrouve.Address
End If

Set rngTrouve = Nothing
End Sub


Merci d'avance

 

[xhudi69]

Re : Fonction recherche puis copier/coller

Bonsoir Bino, le Forum,

Il serait bon que tu joignes un petit fichier exemple, édulcoré de toutes infos sensibles, pour être certain d'avoir une réponse.

@+

EDIT: bonsoir Yaloo il est vrai qu'avec ce temps c'est dure de rafraichir

 

[Yaloo]

Re : Fonction recherche puis copier/coller

Bonsoir Bino,

Avec un petit fichier avec des données non confidentielles expliquant ce que tu veux faire. Ce serait mieux.

A+

Martial

Edit : Salut xhudi69, j'ai pas raffraichit !!!!!!