column et rowRésolu

Question

Slt je sais que pour connait la valeur d'une cellule d'un vaSpread, on peut faire:

Me.vaSpread.GetText Me.vaSpread.ActiveCol, Me.vaSpread.ActiveRow, test
Msgbox test

Maintenant je voudrai savoir comment on peut faire pour connaitre la valeur  d'une cellule x qui se trouve dans la meme ligne qu'une cellule y active.
les cellule x et y sont pas de la meme colonne mais sont de la meme ligne.
J'espére que je suis clair.
Pouvez-vous m'aider?

mortalino · Accepted Answer

salut,

je connais pas ton vaSpread, mais vois si tu peux remplacer Me.vaSpread.ActiveCol directement par le numéro de la c olonne

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

ddove53 · Answer

Ok ça marche:
Dim test As Variant
Me.va_AE1.Col = 2
Me.va_AE1.GetText 2, Me.va_AE1.ActiveRow, test
    Msgbox test
 mais j'en ai une autre:
par exemple j'ai 6 colonnes, je veux si je clique sur une cellule de la colonne 4, il m'affiche la valeur de la colonne 2  de la ligne correspondante - la cellule de la ligne correspondante de la colonne 2.
Et si je clique sur une cellule de la colonne 5, il m'affiche la valeur de la colonne 2  de la ligne correspondante - (la cellule de la ligne correspondante  de la colonne 3 + la cellule de la ligne correspondante  de la colonne 3) et ainsi de suite.
colonne 2 colonne3 colonne4 colonne5 colonne6
10               5                    3                    2               4

sije clique sur 4 il m'affiche (10-5), si je clique sur 2 il m'affiche (10-(5+3)) et ainsi de suite jusqu'à par exemple la ligne n (10 par exemple)

Renfield · Answer

pas compris un traitre mot de ta requête.
mais alors rien !

ddove53 · Answer

j'ai des colonnes de mon vaSpread comme suit:
colonne2  colonne3 colonne4  colonne5   colonne6
10                   5                    3                    2               4

sije
clique sur la cellule ou se trouve la valeur (3) il m'affiche (10-5), si je clique la cellule ou se trouve la valeur (2) il m'affiche
le résultat de (10-(5+3)) et ainsi de suite jusqu'à par exemple la ligne n.

tu as compris ce que je veux dire?

ddove53 · Answer

j'ai commencé à faire comme suit mais ça marche pas:

Dim test As Variant
Dim test1 As Variant
Dim i As Integer
'Me.vaSpread.GetText Me.vaSpread.ActiveCol, Me.vaSpread.ActiveRow, test
Me.vaSpread.GetText 2, Me.vaSpread.ActiveRow, test
For i = 4 To 10
Me.vaSpread.GetText i, Me.vaSpread.ActiveRow, test1
Next i
    Me.label.Caption = test - test1   'pour afficher le résultat dans un label

Renfield · Answer

For i = 4 To 10
   Me.vaSpread.GetText i, Me.vaSpread.ActiveRow, test1
Next i

tu ecrase a chaque itération de ta boucle la valeur de test1...

Renfield · Answer

tu m'a ressortis le même charabia...

et les autres colonnes ?
que se passe-t'il si je cliques sur la colonne6 ?
pourquoi parles tu de ligne 'n' ? quel rapport avec les lignes ? Ne considère-t'on pas uniquement la ligne active ?

quel point te bloque ? ça semble d'une difficulté assez relative... vu que tu sais récupèrer le texte d'une cellule donnée, que tu sais quelle est la cellule active... 
lire la doc pourrait t'aider:
http://www.fpoint.com/products/spread/devtour/tourmain.aspx

ddove53 · Answer

Avec ce qui suit , ça me fait bien la soustraction de la valeur de la cellule correspondante qui se trouve dans la colonne 2 -  la valeur de la cellule active.

Dim test As Variant
Dim test1 As Variant

Me.vaSpread.GetText 2, Me.vaSpread.ActiveRow, test
Me.vaSpread.GetText Me.vaSpread.ActiveCol, Me.vaSpread.ActiveRow, test1
Me.maxi.Caption = test - test1

Mais ce que je veux c'est si la cellule de la colonne 4 est active, il me mets la valeur de la cellule correspondante de la colonne2 - la valeur correspondante de la cellule 3.
Et si c'est la cellule de la colonne 5 est active, il me mets la valeur de la
cellule correspondante de la colonne2 - (la valeur correspondante de la
cellule 3+ la valeur correspondante de la
cellule 4)

Renfield · Answer

je viens de saisir...

ok, j'avais pas vu, a cause de ton addition qui me perturbait...

10-(5+3)  => 10 - 5 - 3


Dim zVal As Variant
dim nVal as Double
Dim i As Integer
Me.vaSpread.GetText 2, vaSpread.ActiveRow, zVal 
nVal = zVal
For i = 3 To vaSpread.ActiveCol
    Me.vaSpread.GetText i, Me.vaSpread.ActiveRow, zVal
    nVal = nVal - zVal
Next i
Me.label.Caption = nVal   'pour afficher le résultat dans un label

ddove53 · Answer

Merci beaucoup.
ça marche nikel.

ddove53 · Answer

il y a un petit soucis, je ne veux pas qu'il soustrait la valeur de la cellule mais les valeurs des cellules d'avant.
J'espére que vous m'avez compris.

ddove53 · Answer

c bon j'ai fait
For i = 3 To va_AE1.ActiveCol - 1
    Me.va_AE1.GetText i, Me.va_AE1.ActiveRow, zVal
    nVal = nVal - zVal
Next i

Column et row

12 réponses

Votre réponse