XL 2010 [RESOLU] Comparer le contenu d'une cellule à celui de plusieurs autres

[jim7963]

Bonjour à tous,

Après une petite recherche, je n'ai pas trouvé de solution que je réussisse à transposer à mon problème.
Je suis en train de construire un fichier et je but sur un problème que je n'arrive pas à résoudre avec mon code vba.

J'ai une date définie sur la 1ère feuille de mon fichier en B2. Dans le fichier joins en exemple j'ai mis le 30/09
Sur la seconde feuille de mon fichier j'ai une liste de date de L1 à W1 (de Janvier à Décembre de l'année en cours).

Je veux comparer le mois de ma 1ère date (celle en B2 c'est à dire Septembre) avec les mois de ma liste et qu'il me retourne le numéro de colonne qui correspond.
Ce numéro de colonne me servira pour la suite de mon code.

Si quelqu'un pouvait m'aider sur cette partie de code je vous en serai très reconnaissant.

 

[djidji59430]

Bonjour,
Va voir ici :
https://www.excel-downloads.com/threads/equivalent-vba-de-la-fonction-excel-equiv.93209/

 

[jim7963]

Merci pour le lien

Effectivement dans mes recherches j'avais trouvé cette fonction MATCH.
Par contre, comme je ne l'ai jamais utilisée auparavant, je n'arrive pas à la programmer pour qu'elle compare uniquement le mois de ma date et pas la cellule entière.

Ce que je tente ne me retourne qu'une erreur à chaque fois.

Dans mon exemple, il devrait me retourner 20 qui est le numéro de la colonne de Septembre.

 

[jim7963]

Ca y est j'ai mas solution grâce à la méthode Find

J'ai écrit

Dim col as Long, moisImport As Byte
moisImport = Month(Sheets("Import").Cells(2, 2))
col = Range(Cells(1, 12), Cells(1, 23)).Find(moisImport, , , xlPart).Column
MsgBox col

Avec cette méthode il me retourne bien mon numéro de colonne