Problème avec le fonction Match - VB/VBA/VBS - Programmation
Marsh Posté le 12-02-2012 à 18:56:57
voici un exemple de ce que j'essaye
For boucle = 1 To nb_lignes
If Application.WorksheetFunction.Match(Sheets("import" ).Cells(boucle, 1), Sheets("bdd" ).Range("A:A" ), 0) = -1 Then
lastrow = Sheets("bdd" ).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Sheets("bdd" ).Cells(lastrow + 1, 1) = Sheets("import" ).Cells(boucle, 1)
Sheets("bdd" ).Cells(lastrow + 1, 2) = Sheets("import" ).Cells(boucle, 2)
End If
boucle = boucle + 1
Next
mois j'ai une erreur sur le match
un petit peu d'aide serait la bienvenue
Marsh Posté le 12-02-2012 à 18:10:27
Bonjour,
j'ai une petite question à vous soumettre.
Dans un classeur excel j'ai 2 listes de références chacune dans une feuille. L'une est mise à jour à chaque lancement de la macro, l'autre est constante.
Ce que je cherche à faire c'est d'ajouter dans la liste de la feuil1 les références de la liste de la feuil2 n'y figurant pas encore.
La clé se trouve sans doute dans une boucle avec une fonction Match, mais malgré pas mal d'essais je n'y arrive pas
Message édité par snipecmoileretour le 12-02-2012 à 19:19:27
---------------
Mon Feedback | galerie Photo