Discussion :

[djoumusic]

Bonjour,
j'essaie d'utiliser la fonction .find,
voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub dujour()
Dim ladate As Date
ladate = 2 'recherche du lundi
lejour = weekdayname(Weekday(ladate), 0, 1) '1er jr de la sem dimanche a pour valeur 1
 
Dim zonedate As Range
    Set zonedate = Sheets("PLLIAISON").Range("D8:AH8")
 
With zonedate
    Set c = .Find((lejour), LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
    End If
 
End With
 
End Sub

lorsque j'execute en pas à pas
c="nothing"
cela vient, je pense de la zonedate qui a des cellules toutes en liaison avec un format de cellule qui affiche le nom des jour et donc, .find, même si "lundi" est affiché pour moi, ne doit pas le trouver puisqu'il recherche une valeur...

y a t il moyen de faire autrement ?

[rvtoulon]

Slt,
je vois pas trop ou est le probleme j'ai testé ton code avec des cellules qui sont liées a d'autres cellules d'une autre feuille et si j'ai lundi .find le trouve.
Ton code est bon.
evidemment si "lundi" ne figure pas dans ta plage zonedate on est d'accord pour dire que c = "nothing".

Peux-tu en dire plus sur ces cellules liées?
@+

[Gorfael]

Salut djoumusic et le form
Je suppose que tu as un format jjjj sur tes cellules. Le problème, c'est que ce n'est qu'un "habillage" visuel et que pour VBA, la cellule ne contient que la date, même si tu vois "Lundi". En .value2, il contient le numéro de série.
A+

[djoumusic]

c'est ça !
mon format de cellule ( dans la recherche) est au format jjjj
je voudrais trouver tous les lundis que la zone comprend..

hai hai hai !!

je sais pas comment faire... puis-je utiliser .find, alors ?

[djoumusic]

pour avancer,
j'ai finalement converti tout mon tableau en TEXTE
comme ça j'ai plus de souci avec .find
y a sans doute mieux,
mais ça fonctionne comme ça,
c'est dejà pas mal...

merci