Discussion :

[jeanahmed]

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

[zyhack]

Bonjour

Pour commencer je n'ai aucune idée précise de ce que tu veux faire donc les conseils seront d'ordre générales.

En premier il faut mieux éviter l'utilisation répété d'instruction comme activate, select, selection... qui deviennent très vite sources d'erreurs

L'idéal est d'utiliser des variables objets.

Je te propose un squelette de programme comme base, n'hésite pas à utiliser F1 en te plaçant sur une fonction que tu ne connais pas. Ensuite si tu as d'autre question soit plus précis sur le besoin.

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
Sub CopieMOntant()
Dim wsh1 As Worksheet, wsh2 As Worksheet
Dim plage1 As Range, plage2 As Range
Dim cell1 As Range, cell2 As Range
 
Set wsh1 = Worksheets("REGLEMENT")
Set plage1 = Range("a1:a3073") 'plage à parcourir dans la feuille 1
 
Set wsh2 = Worksheets("ECART2-2010")
Set plage2 = Range("a1:a3073") 'plage à parcourir dans la feuille 2
 
For Each cell1 In plage1 'Boucle dans la plage de la feuille REGLEMENT
 
  For Each cell2 In plage2 'Boucle dans la plage de la feuille ECART2-2010
 
    'ici tu peux utiliser des comparaison du type
    If cell1.Value = cell2.Value Then
    'ou si ce n'est pas dans la même colonne
    If cell1.Offset(0, 11).Value = cell2.Offset(0, 5).Value Then
 
    'pour la copie il faut utiliser une ecriture de type
    'si tu veux écrire dans la feuille 1
    wsh1.Cells(cell1.Row, 8) = wsh2.Cells(cell2.Row, 6)
 
    'pour colorer une ligne sur la feuille1
    wsh1.Cells(cell1.Row, 0).EntireRow.Interior.ColorIndex = 6
 
  Next cell2
 
Next cell2
 
'et en fin de code libération des objets
Set wsh1 = Nothing
Set plage1 = Nothing
Set cell1 = Nothing
Set wsh2 = Nothing
Set plage2 = Nothing
Set cell2 = Nothing
 
End Sub

bon courage

[jeanahmed]

bonsoir,
merci pour votre réponse mon but automatiser une tache croiser le lignes réglées et facturées en testant la période si égale je teste le NIR si égale je recopie le n°facture et le montant facturée dans la feuille reglement colonne février et colonne N°facture2/2010 par exemple voici un extrait de mon classeur avec sa macro qui coince sur le montant facturé
merci de votre aide, je bloque depuis plusieurs jours.

[jeanahmed]

bonjour,
résolu erreur d'indice