IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

[vba][Array]pb compile error


Sujet :

Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    344
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 344
    Par défaut [vba][Array]pb compile error
    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

  2. #2
    Membre éprouvé Avatar de Sonic
    Inscrit en
    Mars 2002
    Messages
    105
    Détails du profil
    Informations forums :
    Inscription : Mars 2002
    Messages : 105
    Par défaut
    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

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Janvier 2006
    Messages
    344
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2006
    Messages : 344
    Par défaut
    ok je vais essayer merci

Discussions similaires

  1. [VB6]Compil error: can't find project or library
    Par riesseg dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 03/05/2006, 22h28
  2. [VBA-E]Pb "On Error GoTo"
    Par hdidan dans le forum Macros et VBA Excel
    Réponses: 33
    Dernier message: 04/04/2006, 18h41
  3. [VBA][recordset]pb update error 3061 too few parameters
    Par megapacman dans le forum Access
    Réponses: 2
    Dernier message: 23/03/2006, 16h11
  4. Réponses: 12
    Dernier message: 26/01/2006, 14h51
  5. compilation error
    Par lion1 dans le forum MFC
    Réponses: 6
    Dernier message: 19/10/2005, 16h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo