Discussion :

[shadow-cha]

Bonjour,

Je débute sur VB et en fait j'automatise des tableaux de statistiques seulement ici j'ai un petit probleme, je vous explique j'ai deux fonctions qui vont ouvrir un autre classeur l'une (searchagent) repere la ligne correspondant au nom demandé et l'autre (searchagent2) repere la colonne correspondant à la date demandée ensuite avec les 2 valeurs je croise pour obtenir le résultat de cette personne à la date demandé mais le systeme me renvoi toujours DIV/0 alors que la même macro appliquer directement dans le fichier source en MsgBox me renvoie bien la valeur pouvez vous m'aider ?

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
 
c = searchAgent(ws, nom)
w = searchAgent2(ws, Dates)
 
 
If c = 0 Then
t = 0
Else
t = Cells(c, w).Value
 
xl.Quit
xl.DisplayAlerts = True
Set wb = Nothing
Set ws = Nothing
Set xl = Nothing
 
 
If c <> 0 Then ActiveSheet.Cells(i, l) = t

[Many31]

Bonjour,

Tu peux détailler? Qui a t'il dans les fonctions searchAgent et searchAgent2??

Ca vient surement de là (et peut être de la déclaration du fichier source: "ws" apparemment??)

Le code que tu as posté ne permet en rien de voir d'où peut venir le pb...

[david_atx]

d'accord avec many sans le détail des fonctions on ne peut pas t'aider

surtout que si ca se trouve le problème vient tout bêtement d'un problème d'adressage de ta recherche dans les classeurs

Bref va falloir nous montrer ton code

[shadow-cha]

désolé de ne pas être assez précis voic le code des fonctions :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Function searchAgent(ByRef ws As Worksheet, ByVal recherche As String) As Integer
 
tmp_range = "A1:A" & ws.UsedRange.Rows.Count
 
With ws.Range(tmp_range)
    Set c = .Find(recherche, LookIn:=xlValues)
    If Not c Is Nothing Then
    firstaddress = c.Address
    Do
            searchAgent = c.Row
            Exit Function
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
End With
 
End Function
 
 
Function searchAgent2(ByRef ws As Worksheet, ByVal recherche As String) As Integer
 
tmp_range = "B11:AZ11" 
With ws.Range(tmp_range)
    Set w = .Find(recherche, LookIn:=xlValues)
    If Not w Is Nothing Then
    firstaddress = w.Address
    Do
            searchAgent2 = w.Column
            Exit Function
            Set w = .FindNext(w)
        Loop While Not w Is Nothing And w.Address <> firstaddress
    End If
End With
 
End Function

la feuille WS correspond au classeur source est l'adressage fonctionne correctement puisque les fonctions me renvoi bien la ligne et la colonne j'ai juste un probleme avec la valeur cela doit etre dans le dimensionnement.

donc voila le dimensionnement

Code :

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

1
2
3
Dim c As Variant
Dim w As Variant
Dim t As Variant