bonjour,
comment manipiler 2 feuilles voici le début de mon code :
je n'arrive pas faire une double boucle !le montant copiée concerne la feuiile reglement alors que je souhaite recopier le montant facturé et le N°facture pour ensuite faire le calcul par periode et N°facture
-----------------------------------------------------------
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub CopieMOntant()
    Dim j As Integer
    Dim MONTANTAREPORTER
 
   'NOMDELAFEUILLE = InputBox("Entrez le Nom de la Feuille")
   NOMDELAFEUILLE = "REGLEMENT"
    'Application.ScreenUpdating = False
 
   Worksheets(NOMDELAFEUILLE).Activate
    Set r = Range("a1:a3073")
   'ON DETERMINE LA DERNIERE LIGNE ACTIVE
    DerniereLigne = ActiveSheet.UsedRange.Row - 1
    DerniereLigne = DerniereLigne + ActiveSheet.UsedRange.Rows.Count
 
        ' NOMDELAFEUILLE2 = InputBox("Entrez le Nom de la Feuille")
         NOMDELAFEUILLE2 = "ECART2-2010"
         Worksheets(NOMDELAFEUILLE2).Activate
         DerniereLigne2 = ActiveSheet.UsedRange.Row - 1
         DerniereLigne2 = DerniereLigne2 + ActiveSheet.UsedRange.Rows.Count
 
 
    For i = 2 To 26 'DerniereLigne
 
            'je consulte la période de la feuille règlement
             If r.Cells(i, 11).Value = s.Cells(i, 5).Value Then
 
                For j = (i) To 5 'DerniereLigne2
 
                    'COLONNE N°SS----------JE TESTE LA COLONNE N°SS------------------------
                      If r.Cells(i, 10).Value = s.Cells(j, 3).Value Then
                        'JE SURLIGNE LES LIGNES EN JAUNE FEUILLE REGLEMENT--------------------
 
                            r.Cells(i, 10).EntireRow.Interior.ColorIndex = 6
                         'JE SURLIGNE LES LIGNES EN JAUNE FEUILLE ECART2-2010--------------------
                             s.Cells(j, 3).EntireRow.Interior.ColorIndex = 6
                             'i = i + 1
                             'JE RECOPIE LE MONTANT FACTURE SUR LA  FEUILLE REGLEMENT--------------------PROBLEME RECOPIE LE MONTANT DE LA COLONNE DE LA FEUILLE REGLEMENT AU LIEU DE LA FEUILLE ECART2-2010
                             MONTANTAREPORTER = s.Cells(j, 10).Value 'MONTANT FACTURE A REPORTER
                              'JE RECOPIE LE N°FACTURE SUR LA  FEUILLE REGLEMENT--------------------
                              NUMEROFACTUREAREPORTER = s.Cells(j, 28).Value 'N°FACTURE A REPORTER
 
                         'JE recopie le montant dans la colonne F de la feuille REGLEMENT DANS La feuille ecart2-2010 colonne K
                         'POUR LE MOIS DE 2/2010
                         r.Cells(i, 6).Value = MONTANTAREPORTER
                          s.Cells(j, 22).Value = NUMEROFACTUREAREPORTER
 
                             Exit For
                      Else
 
                           '  i = i + 1
                      End If
 
                  Next j
 
                Else 'je consulte la période de la feuille règlement
 
 
 
              End If
 
    Next i
 
    Application.ScreenUpdating = True
    MsgBox ("Copie terminée")
End Sub