Microsoft 365 recherche colonne a partir d'une variable VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

PETIT YANNICK

XLDnaute Occasionnel
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

2020_09_07_10_55_02_Window.png





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
 

Pièces jointes

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 )
 
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 )
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
Réponses
4
Affichages
311
DidPouAxi
D
Retour