Discussion :

[ahmed aloul]

Bonjour,

je suis entrain de développer une macro afin de rassembler un nombre d'extraction et avoir un bilan global,

j'ai déjà effectue 70% du travail, mais je rencontre des problèmes.

les problèmes que j'ai sont les suivants :

- j'arrive pas à appliquer la fonction HLOOKUP dans mon tableau sachant qu'elle doit chercher une valeur de ma feuille "BILAN" dans d'autres feuilles
- je veux fusionner des cellules en fonction d'une condition mais je n'arrive pas ( erreur)

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub rechercheH()
Dim X As Integer
Dim b As Integer
Dim i As Integer
Dim z As Integer
Dim j As Integer
Dim k
k = Worksheets.Count
For j = 1 To 60
 
        For z = 3 To 5
 
                For i = 2 To k
 
                        With Worksheets(i)
 
                            'Workbooks("Bilan_fieldwire").Worksheets(i).Activate
                            For b = 2 To 5
 
 
 
                            Worksheets("bilan").Range(Cells(z, j), Cells(z, j)).Value = Application.HLookup(Worksheets("bilan").Range(Cells(z - b, j), Cells(z - b, j)).Value, Worksheets(i).Range("a3:cc999"), b, 0)
 
                            Next
                        End With
 
                Next
        Next
Next
 
'For y = 1 To 200
 
 
        'For X = 2 To 100
 
                'If Cells(2, X) <> Null Then
 
 
 
                'Else
 
 
                        'Range(Cells(2, y), Cells(2, X)).MergeCells = True
                        'x = y
                'End If
 
       ' Next
 
 
'Next
end sub

je vous remercie infiniment de votre aide la team

Ahmed