Microsoft 365 recherche colonne a partir d'une variable VBA

[PETIT YANNICK]

Bonjour à tous,

Je cherche à trouver et sélectionner la colonne contenant la semaine du jour dans la ligne 1
j'ai créé mes variables suivantes

datedujour = Date
semaine = "S" & Format(datedujour, "ww", vbMonday, vbFirstFourDays)

Je voudrais faire une recherche de la colonne comportant la valeur de la variable ''semaine ''
Je voulais travailler avec la fonction .find mais j'ai le message d’erreur d’exécution 91 qui s'affiche

je vous joint le bout de code que j'ai écrit


Je ne vois pas trop comment procéder?

Merci d'avance de votre aide

Yannick

 

[sylvanu]

Bonjour Petit Yannick,
Vous auriez pu inclure votre code dans le fichier, juste pour éviter de le recréer.
Avec cette macro, vous sélectionnez la colonne de la semaine en cours :

Sub essai()
    datedujour = Date
    semaine = "S" & Format(datedujour, "ww", vbMonday, vbFirstFourDays)
    NoColonne = Application.Match("*" & semaine, [1:1], 0)
    Range(Cells(1, NoColonne), Cells(65000, NoColonne)).Select
End Sub

( j'ai limité la sélection à 65000 juste pour l'exemple )

 

[PETIT YANNICK]

Désolé, je n'ai pas fournit le bon fichier.
Merci beaucoup pour votre retour
pourriez vous m'expliquer la ligne de code NoColonne = Application.Match("*" & semaine, [1:1], 0) ?

 

[sylvanu]

En XL cela correspond à : =Equiv("*" & semaine;1:1;0)
Je recherche la chaîne où il y a "semaine" ( c'est le role de *) dans la ligne 1.
"Application" car Match n'existe pas en VBA, donc on lui dit d'utiliser la formule XL.
( c'est le cas de quelques formules qui existent en XL mais pas en VBA )

 

[PETIT YANNICK]

Ok je comprend mieux maintenant
Merci