1 pièce(s) jointe(s)
Recherche selon deux critères vba Excel (Variable Date
Bonjour
Cela fait deux jours que je suis coincé sur un problème qui semble facile mais je suis débutant.
En fait je souhaite crée un programme Vba ou appliquer une formule qui me permet de chercher dans la feuil1 : la valeur de la colonne A (renferme date1) et la colonne B (rapport1) et de parcourir la feuil2 dont la colonne A (date2) et colonne B (rapport2) et au cas où date1=date2 et rapport1=Rapport2 il affecte au variable ph la valeur correspondante.
J’ai essayé avec ce code mais ça ne marche pas !
Je vous remercie beaucoup pour votre aide !
Code:
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
| Option Explicit
Dim Feuil1 As Worksheet
Dim Feuil2 As Worksheet
Dim plage1 As Range
Dim plage2 As Range
Dim plage3 As Range
Dim plage4 As Range
Dim plage5 As Range
Dim dat1 As Variant
Dim dat2 As Variant
Dim rapport1 As Variant
Dim rapport2 As Variant
Dim pH1 As Single
Dim pH2 As Single
Sub Bouton2_Cliquer()
Set Feuil1 = Worksheets("Don")
Set Feuil2 = Worksheets("Fic")
plage1 = Worksheets("Don").Ragne("A2:A13927")
plage2 = Worksheets("Fic").Ragne("A2:A23")
plage3 = Worksheets("Don").Ragne("B2:B13927")
plage4 = Worksheets("Fic").Ragne("B2:B23")
plage5 = Worksheets("Fic").Ragne("C2:C23")
For Each dat1 In plage1
For Each dat2 In plage3
For Each rapport1 In plage3
For Each rapport2 In plage4
If "dat1" = "dat2" And "rapport1" = "rapport2" Then
pH1 = pH2
End If
Next
Next
Next
Next
End Sub |
Mon fichier excel Pièce jointe 174218
