Discussion :

[RomainG2020]

Bonjour,

Je decouvre VBA et j'essaie de developper une Macro qui me serait tres utile.

J'ai deux feuilles dans un meme fichier.
Je veux comparer la valeurs des cellules en colonne B de la Feuille 2 avec la plage de valeurs de la colonne A de la Feuille 1.

Si pas de correspondance = on efface toute la ligne correspondante dans la Feuille 2.

Si il y a correspondance, je veux ensuite comparer la date de la commande dans la colonne C de la Feuille 2 avec la periode d'inscription precisee dans la Feuille 1 (colonne B et C).

Si la commande a ete effectuee durant cette periode je garde la ligne, sinon j'efface toute la ligne.

Pour le moment j'en suis toujour sa la premiere partie... Et ca ne donne pas ce que je souhaite...

Pouvz vous m'aider?

Un grand Merci !

[Philippe Tulliez]

Bonjour,
La fonction EQUIV est parfaite pour comparer, matcher des données dans un tableau Excel. Elle renvoie la position d'une valeur cherchée dans une ligne ou une colonne.
Une fois cette données trouvée on peut agir ou pas en fonction de ce que l'on souhaite faire

Billets / tutoriel illustrant l'utilisation de cette fonction

• Comment comparer (matcher) des données dans Excel
• Exporter les données comparées (« Matchées »)
• Les fonctions Index et Equiv

[RomainG2020]

Bonjour,

Merci pour cette reponse.
Cependant je cherche a faire un dev. en VBA afin de l'associer a un bouton pour etre utiliser facilement par tous.
Je veux donc automatiser la demarche souhaitee comme decrite dans mon premier message.

Merci pour vos reponses et votre aide

[Philippe Tulliez]

Bonjour,

Cependant je cherche a faire un dev. en VBA afin de l'associer a un bouton pour etre utiliser facilement par tous.
Je veux donc automatiser la demarche souhaitee comme decrite dans mon premier message.

Il est tout à fait possible d'utiliser la fonction EQUIV d'Excel dans VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.WorksheehtFunction.Match

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Match

suivi de ces arguments

ou encore placer la fonction Excel (en anglais) dans la fonction Evaluate de VBA

[EDIT]
et rien ne t'empêche d'insérer une colonne temporaire dans l'une des tables à comparer en y intégrant la formule (deux lignes de code en VBA, Insertion de la colonne et insertion de la formule) et ensuite récupérer tous les True dans une table et ensuite exécuter la procédure souhaitée et enfin supprimer la colonne
Bien plus simple à mettre en place

[Zekraoui_Jakani]

Voici une solution simple applicable à un petit échantillon; si vos données dépassent la 100aine, il y a lieu d'optimiser le code en évitant les mots clefs comme "Select" et en évitant la mise à jour de l'écran (via Application.ScreenUpdating = False)