Bonjour Forum,

j'ai un petite problème, j'espère bien que vous aidiez, je souhaite réaliser une boucle qui me permet de chercher dans les dates (Dates 1 et Dates2) de la feuille 1/feuille 2 et les rapports (Rapport1et Rapport2) qui se trouvent dans les mêmes feuilles respectivement. Si Date1=Date2 et Rapport1=Rapport2, je veux que le programme coupe la valeur du pH qui existe dans la colonne C de la feuille2 et l’affecter à la cellule correspondante à date(n) et rapport(n) de la feuille1 .
J’ai bricolé une proposition mais le fichier Excel bloque, s’il vous plait! pouvez-vous m’aider !
Je vous remercie d’avance !

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
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 plage6 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")
 
Set plage1 = Worksheets("Don").Range("A2:A139")
Set plage2 = Worksheets("Fic").Range("A2:A23")
Set plage3 = Worksheets("Don").Range("B2:B139")
Set plage4 = Worksheets("Fic").Range("B2:B23")
Set plage5 = Worksheets("Fic").Range("C2:C23")
Set plage6 = Worksheets("Don").Range("C2:C23")
 
For Each dat1 In plage1
    For Each dat2 In plage3
         For Each rapport1 In plage3
              For Each rapport2 In plage4
               For Each pH1 In plage5
                For Each pH2 In plage6
 
If "dat1" = "dat2" And "rapport1" = "rapport2" Then
 pH1 = pH2
 
 End If
 Next
 Next
 Next
 Next
 Next
 Next
 
End Sub
le fichier : Mon fichier.xlsm