Microsoft 365 recherche colonne a partir d'une variable VBA

PETIT YANNICK · 7 Septembre 2020

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 · 7 Septembre 2020

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 :

VB:

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 · 7 Septembre 2020

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 · 7 Septembre 2020

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 · 7 Septembre 2020

Ok je comprend mieux maintenant
Merci

Microsoft 365 recherche colonne a partir d'une variable VBA

PETIT YANNICK

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

PETIT YANNICK

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

PETIT YANNICK

XLDnaute Occasionnel

Discussions similaires