Tom's Guide > Forum > Programmation > copier le resultat d'une recherche excel

copier le resultat d'une recherche excel

Forum Programmation : copier le resultat d'une recherche excel

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Mot :    Pseudo :           
 


Bonjour à tous,

Voila mon problème, sous excel je compare 2 feuilles et je voudrais copier le resultat de cette comparaison sur une 3ieme Feuilles.
J'ai écrit une petite procédure en VB toute simple mais je n'arrive pas à copier et coller sur ma 3ieme feuille tout en décalant les lignes.

Pour etre plus clair voici mon code :

Sub recherche()

Dim MotCherche, L, C, InL, InC, OutL, i, j, b
Dim Origine, Destination

b = 1
j = 1
i = 2
Set Origine = Workbooks("internet.xls" ).Sheets("Gestion des abonnements" )
Set origine2 = Workbooks("internet.xls" ).Sheets("Etablissement traction Centres" )
Set Destination = Workbooks("internet.xls" ).Sheets("Feuil3" )


For L = 1 To 467

Do Until Origine.Cells(L, 3).Value = origine2.Cells(j, 1) Or j = 467

j = j + 1

Loop


If Origine.Cells(L, 3).Value = origine2.Cells(j, 1) Then

'ligne à copier

End If

Next

End Sub

Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
Tom's Guide > Forum > Programmation > copier le resultat d'une recherche excel
Aller à :

Il y a 803 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens