Discussion :

[levac]

voici mon programme qui me permet de copier le contenu des cellules qui m interesse dans un tableau de variable pour les comparer a une autre feuille excel mais il n y a aucune données dans mon tableau:

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
For variableDeBoucle4 = 2 To tailleDeBoucle
    For variableDeBoucle = 0 To tailleDeBoucle
        Let diffColonneDesignation(variableDeBoucle) = Classeurspec.sheets(numPage).range("F" + variableDeBoucle5).Caption
        diffColonneQuantite(variableDeBoucle) = Classeurspec.sheets(numPage).range("G" + variableDeBoucle5).Select
        variableDeBoucle5 = variableDeBoucle5 + 1
 
    Next variableDeBoucle
    numPage = numPage + 1
    variableDeBoucle5 = 7
    For variableDeBoucle3 = 0 To tailleDeBoucle
 
        designation = diffColonneDesignation(variableDeBoucle3)
        quantite = diffColonneQuantite(variableDeBoucle3)
 
        For variableDeBoucle2 = 0 To tailleDeBoucle
            If designation Like Classeuraffaire.sheets(1).cell("F", variableDeBoucle2 + 2).Caption Then
                If (quantite Like Classeuraffaire.sheets(1).cell("G", variableDeBoucle2 + 2).Caption) Then
 
                Else
                    If (Classeuraffaire.sheets(1).rows(variableDeBoucle2 + 2 + ":" + variableDeBoucle + 2).interior.Color = RGB(255, 255, 255)) Then
                        Classeuraffaire.sheets(1).rows(variableDeBoucle2 + 2 + ":" + variableDeBoucle2 + 2).interior.Color = RGB(0, 0, 0)
                    End If
                End If
            End If
        Next variableDeBoucle2
    Next variableDeBoucle3
Next variableDeBoucle4

[Delbeke]

Essayes de mettre des balises [ Code] [ /Code]autour de ton code, ce sera plus lisible.

[zazaraignée]

+1

Tu cliques sur le bouton , tu sélectionne le code et tu clique sur le bouton . Pour finir, tu clique sur Enregistrer les changements.

[AlainTech]

Je l'ai fait pour lui avant d'avoir vu vos messages.

J'espère qu'il aura compris...