cibleo
XLDnaute Impliqué
Bonsoir le forum,
Le code que je vous présente a été créé il y quelques mois par Gael, il fonctionne à merveille.
Il est associé au bouton noir dans la feuille "Recherche" et me permet de rechercher un mot dans la colonne C de toutes les feuilles "Encais..." et d'en reporter les lignes correspondantes. (le fichier est allégé, l'original comporte 12 feuilles "Encais").
Aujourd'hui, je fais appel à votre aide pour décliner ce code (Bouton orange) afin d'effectuer une autre recherche qui doit désormais s'effectuer en colonne A à partir d'un jour (ex : lundi) que je saisis dans la textbox1.
Par rapport au code initial, voici ce que j'ai essayé de changer :
à la place de :
Mais là, cela ne marche pas, j'ai une erreur.
Les lignes dont les dates correspondent à des lundis figurant dans mes feuilles "Encais..." ne s'affichent pas.
Par contre, si je saisis 39839, il m'affiche bien les lignes concernant le lundi 26 janvier 2009.
Le code à modifier est dans le formulaire "Rechercher".
Les dates figurant en colonne A des feuilles "Encais..." sont au format jjj jj mmm aa.
Faut-il aussi changer la variable :
et l'instrucion suivante :
J'ai aussi songé à utiliser "Weekday" et "WeekdayName" pour parvenir à mes fins, mais je dois m'égarer.
Pouvez-vous me venir en aide, je patauge 😱
Amicalement Cibleo
Le code que je vous présente a été créé il y quelques mois par Gael, il fonctionne à merveille.
Il est associé au bouton noir dans la feuille "Recherche" et me permet de rechercher un mot dans la colonne C de toutes les feuilles "Encais..." et d'en reporter les lignes correspondantes. (le fichier est allégé, l'original comporte 12 feuilles "Encais").
Aujourd'hui, je fais appel à votre aide pour décliner ce code (Bouton orange) afin d'effectuer une autre recherche qui doit désormais s'effectuer en colonne A à partir d'un jour (ex : lundi) que je saisis dans la textbox1.
Par rapport au code initial, voici ce que j'ai essayé de changer :
Code:
With plage
Set Cel = .Find([B][COLOR=red]CDate[/COLOR][/B](Me.TextBox1), LookAt:=xlPart)
Code:
With plage
Set Cel = .Find(VSearch, LookAt:=xlPart)Mais là, cela ne marche pas, j'ai une erreur.
Les lignes dont les dates correspondent à des lundis figurant dans mes feuilles "Encais..." ne s'affichent pas.
Par contre, si je saisis 39839, il m'affiche bien les lignes concernant le lundi 26 janvier 2009.
Le code à modifier est dans le formulaire "Rechercher".
Les dates figurant en colonne A des feuilles "Encais..." sont au format jjj jj mmm aa.
Faut-il aussi changer la variable :
Code:
Dim VSearch As String
Code:
VSearch = Me.TextBox1.ValueJ'ai aussi songé à utiliser "Weekday" et "WeekdayName" pour parvenir à mes fins, mais je dois m'égarer.
Pouvez-vous me venir en aide, je patauge 😱
Amicalement Cibleo