Column et row [Fermé]

Signaler
Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010
-
Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010
-
Le code suivant me donne la valeur de la cellule.
Me.vaSpread1.GetText Col, Row, test1
Comment je peux faire pour additionner les valeurs des cellules avant jusqu'à cette cellule.
Me.label.Caption = test1

4 réponses

Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010

J'ai fait comme suit pour qu'il me fasse l'addition des valeurs de lma cellule mais ça marche pas.Voyez-vous ce qui cloche?
Me.vaSpread1.GetText Col, Row, test1
nVal1 = test1
For i = 3 To vaSpread1.Col
    Me.vaSpread1.GetText i, Row, test1
    nVal1 = nVal1 + test1
Next i
Me.Label.Caption = nVal1
Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010

c bon j'ai trouvé:
Me.vaSpread1.GetText 3, Row, test1
nVal1 = test1
For i = 3 To Col
    Me.vaSpread1.GetText i, Row, test1
    nVal1 = nVal1 + test1
Next i
Me.Label.Caption =  nVal1
Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010

Me.vaSpread1.GetText 2, vaSpread1.ActiveRow, zVal
nVal = zVal
'Colonne 2 - somme des cellules de la ligne avant cellule active
For i = 3 To vaSpread1.ActiveCol - 1
    Me.vaSpread1.GetText i, Me.vaSpread1.ActiveRow, zVal
    nVal = nVal - zVal
Next i
Me.Label1.Caption = nVal
'Somme des cellules - somme des cellules de la ligne avant cellule active
Me.vaSpread2.GetText 3, Row, zVal1
nVal1 = zVal1
For k = 4 To Col
    Me.vaSpread2.GetText k, Row, zVal1
    nVal1 = nVal1 + zVal1
Next k
Me.Label2.Caption = (nVal1 - zVal)

Mon probléme c'est au niveau du résultat que j'affiche dans le label2. J'ai pas le bon résultat car je voudrai qu'il m'affiche le résultat de nVal1( dans la première boucle)-zVal1(dans la deuxième boucle). Faut-il imbriqué les boucles? Pouvez-vous m'aider?
Messages postés
623
Date d'inscription
mardi 20 mars 2007
Statut
Membre
Dernière intervention
15 juin 2010

Renfield?