Discussion :

[Hadi2015]

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 :

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
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 Mon fichier.xlsm

[Nico Chg]

Bonjour !

Si tu essayais avec "Range" au lieu de "Ragne" ?

Code :

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

plage1 = Worksheets("Don").Ragne("A2:A13927")

Remarque : L'indentation en programmation, c'est plus pour rendre le code lisible que pour faire joli ! (Je crois que la compilation en p-code dégage tout ça, de toute manière)

Remarque bis : Tu es sûr de la rapidité de ton code ? j'ai l'impression que ça va mettre super longtemps, vu le nombre de boucle imbriqué