Discussion :

[djerbafr]

Bonjour,
je voudrais calculer le total des valeurs de plusieurs cellules Excel à partir d'access grâce à VBA j'ai fais un code mais le débogueur s'arrete toujours au même endroit avec une erreur d'exécution 438. Je suis bloqué et un peu perud je l'avoue.

voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For indLine = 2 To rstListeOrganisme.RecordCount + 1
        For indColumn = 2 To (2 + 4 * (rstlisteModPaiement.RecordCount - 1)) Step 4
            cptOutil = .Cell(indLine, indColumn).Select + cptOutil
        Next indColumn
        .Cells(indLine, indColumn) = cptOutil
        cptOutil = 0
        For indColumn = 4 To (4 + 4 * (rstlisteModPaiement.RecordCount - 1)) Step 4
            cptOutil = cptOutil + .Cell(indLine, indColumn).Select
        Next indColumn
        .Cells(indLine, indColumn) = cptOutil
        cptOutil = 0
    Next indLine

ne peux t'on pas utiliser .cell pour récupérer la valeur d'une cellule? Car même avec cell(i,j).value ça ne marche pas!!!!


Merci.

[LedZeppII]

Bonjour,

est-ce que ça ne serait pas .Cells au lieu de .Cell ?

A+

[djerbafr]

Bonjour merci pour ta réponse, mais j'y avais songé avant ça marche pas

[Damran]

Bonjour
pour utiliser le .Cells, il te faut d'abord utiliser un "With quelqueChose"... peut-être le problème viens de là (montre-nous voir).

Tu peux aussi utiliser "Range".
Et pour le mot clé, c'est bien "Cells" avec (un "S")

Et pour ressortir la valeur, ce n'est pas ".select", mais ".value"