Discussion :

[megapacman]

bonjour,

en fait je fais une comparaison entre 2 prix et 2 montants

si il sont pas egaux alors je veux stocké dans mon tableau ma ref mes 2 prix et dans mon 2eme tableau si montant pas egaux ma ref mes 2 montants

quand je fait un debug ,il compile et j ai un message :

compil error : expected sub,function or property donc voici le code pour le 1ere tableau

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Dim taberrorprix As Variant ' tableau ou seront stocké les erreurs de prix unitaire
 
            If (prixexcel <> prix) Then ' si le prix de ma cellule excel est different du prix de la base
            Cells(i, k).Interior.ColorIndex = 3 'alors cellule devient rouge
            nberrorprix = nberrorprix + 1 'alors j incremente le nberror
            taberrorprix ["code"] = code ' dans taberrorprix colonne code je stocke le code dont le prix est different
            taberrorprix ["prixxl"] = prixexcel ' dans taberrorprix colonne prixxl je stocke le prix de la facture excel
            taberrorprix ["prixDB"] = prix ' dans taberrorprix colonne prixDB je stocke le prix de la base de données
 
            Debug.Print nberrorprix
            End If

le 2eme tableau :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Dim taberrormontant As Variant ' tableau ou seront stocké les erreurs de montant
 
            If Cells(i, n).Value <> 0 Then ' si difference est differente de 0
            Cells(i, n).Interior.ColorIndex = 3 ' alors la cellule devient rouge
            nberrormontant = nberrormontant + 1
            taberrormontant ["code"] = code ' dans taberrorprix colonne code je stocke le code dont le prix est different
            taberrormontant ["montantxl"] = montantxl ' dans taberrormontant colonne montantxl je stocke le montant de la facture excel
            taberrormontant ["montantDB"] = montantDB ' dans taberrormontant colonne montantDB je stocke le montant de la base de données
 
            Debug.Print nberrormontant
            End If

tout ca dans un public sub control

voila

[Sonic]

Tu ne déclare pas un tableau mais une variable. Pour déclarer un tableau c'est

Code :

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

Dim taberrorprix() as variant

D'après ton code ca donnerais un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim taberrorprix() as variant
nberrorprix=0
if prixexcel<>prix then
   nberrorprix=nberrorprix+1
   Redim preserve taberrorprix(nberrorprix,1 to 3) 
   taberrorprix(nberrorprix-1,"code") = code
   taberrorprix(nberrorprix-1,"prixxl") = prixexcel
end if

Je te laisse aménager pour la suite

[megapacman]

ok je vais essayer merci