Discussion :

[Patnel]

bonjour,
encore une ambiguité de vba

j'utilise souvent find pour trouver une chaine de caractére et ça marche bien
aujourd'hui je cherche une date et ca marche plus

voilà mon bout de 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
18
19
20
 
 
Type Cumul_av
    Av_Date As Date
    avt As Double
End Type
 
Public T_cumul() As Cumul_av 'table d'avancement
 
 
 Set zone = Range(Cells(7, "H"), Cells(max_l_syn, "H"))
 date_avt = T_cumul(s).Av_Date ' récupére la date à chercher
 
  a = zone.Find(date_avt)
 
   If a <> "" Then
   l_c = a.Row
   Sh_Syn.Cells(l_c, "H") = date_avt
   Sh_Syn.Cells(l_c, "J") = T_cumul(s).avt
   End If

en debugant il trouve bien la date mais il ne veut pas me renvoyer a.row
c'est à dire la valeur de la ligne ou se trouve la date que je cherche
j'ai un message d'erreur
" objet requis"

quelqu'un peut il me donner une indication ?

[aalex_38]

Bonjour,


Si a est un range du doit l'instancier comme telle, option explicit est bien pratique pour vérifier ce genre de chose.

Essai :

Code :

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

Set a = zone.Find(date_avt)

Ou alors si tu gardes a tel quel :

Code :

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

l_c = range(a).Row

[Patnel]

tu as tout à fait raison et merci de me le rapeller
j'avais oublié le "set"
je devais être un peu stense hier
Merci
bonne journée