activerow, activecolumnRésolu

Question

Slt, je veux recupérer la valeur de la cellule correspondante d'un vaSpread dans un messagebox  par exemple.
Je sais recupérer les coordonnées de la cellule:
MsgBox Me.vaSpread.ActiveCol & "," & Me.vaSpread.ActiveRow

Mais je n'arrive pas à recupérer la donnée.
Help pleaz c'est trés urgent.

ddove53 · Accepted Answer

Slt, j'ai trouvé. il fallait faire:
Dim test As Variant
Me.vaSpread.GetText Me.vaSpread.ActiveCol, Me.va_AE1.ActiveRow, test
Msgbox test

Avec ce code, j'affiche dans un message box la valeur qui se trouve dans la cellule active.
J'ai toujours une autre question qui est un peu une suite mais je vais repostuler.

ddove53 · Answer

help pleaz. Ou peut etre je suis pas clair, la derniere fois on m'a fait la remarque.

ddove53 · Answer

Renfield, MCPT... vous etes là?

lillith212 · Answer

Salut,

Je pense que tu es en VBA je me trompe??? Tu as mal posté !!!
Je ne m'y connais pas en VBA mais je vais essayer
Du moment que tu récupéres les coordonnées de la cellule ne peux tu pas récuperer sa valeur?
je ne sais pas si ce code est valable mais bon :
MsgBox Me.vaSpread.ActiveCol.Value & "," & Me.vaSpread.ActiveRow.Value 

S.L.B.
<hr />

ddove53 · Answer

Je suis bien en vb, mais j'avaisdéjà essayé avec ".value" mais il n'aime, il me met qualificateur incorrect.

lillith212 · Answer

Tu veux faire quoi à la base?

S.L.B.
<hr />

ddove53 · Answer

Au fait je veux recupérer la donnée (pas les coordonnées) de la cellule active et je l'affiche en label.
Me.label.Caption = Me.vaSpread.ActiveCol & "," & Me.va_AE.ActiveRow
le code au dessus m'affiche les coordonnées de la cellule mais ce qui m'intéresse c'est la valeur est rentrée dans ma cellule.
Je suis clair?

lillith212 · Answer

Me.label.Caption = Me.vaSpread.ActiveCol & "," & Me.va_AE.ActiveRow


Je suppose que va_AE est le nom de ton vaSpread.
Je connais pas ce controle. Je sais que c'est un truc du même genre qu'un bdGrid mais c'est tout.
Dans les propriétés du controle tu n'as pas un truc du genre
me.va_AE.Text(Me.vaSpread.ActiveCol & "," & Me.va_AE.ActiveRow).value

en gros dans les propriétés, une propriété dont tu donnes les coordonnées en paramètre.

S.L.B.
<hr />*********************************************************************************
Même si l'orthographe est la science des ânes, avec un effort, le message passe mieux...
*********************************************************************************

ddove53 · Answer

A la base j'ai une requete qui m'affiche des données dans un vaSpread, le datasource u vaSpread c'est "Dat_ressources_OP_F". Avec la requet qui suit, je vais avoir par exemple des colonne:
2008    2009    2010 ...
10            15            12
30            20            22

Ce que je veux si je clique sur la cellule ou il y a"10" de l'année "2008" par exemple, j'affiche la valeur "10" dans un label.
J'espére que je suis clair
sql_glob_rs = " Budget.N2 as [AN " & AnnéeCour + 1 & "], Budget.N3 as [AN " & AnnéeCour + 2 & "]"sql_glob_rs sql_glob_rs & " FROM OET INNER JOIN (Budget INNER JOIN Ressources_OP ON (Budget.[Numero et] Ressources_OP.[Numero et]) AND (Budget.Projet = Ressources_OP.[Code Sres]) AND (Budget.Macrotache = Ressources_OP.[Code OT]))" sql_glob_rs sql_glob_rs & " ON (Ressources_OP.[Numero et] OET.[numero et]) AND (OET.[code ot] = Ressources_OP.[Code OT]) AND (OET.[Ref reseau] = Ressources_OP.[Code Sres])"
 sql_glob_rs = sql_glob_rs & " WHERE (((Ressources_OP.[Code Sres])=" & glob_sres & ") AND ((OET.[numero et])=0))"
 sql_glob_rs = sql_glob_rs & " order by OET.[code ot];"
 Me.Dat_ressources_OP_F.RecordSource = sql_glob_rs
 Me.Dat_ressources_OP_F.Refresh

lillith212 · Answer

En gros sur l'événement click tu va récupérer la valeur de la cellule active...

Alors ton vaSpread à une propriété de type cellActive??? 
Je suis désolée j'avance à l'aveuglette car je ne connais pas le composant. Il est dans quoi que je puisse voir?

S.L.B.
<hr />*********************************************************************************
Même si l'orthographe est la science des ânes, avec un effort le message passe mieux...
*********************************************************************************

ddove53 · Answer

Au fait il y dans les propriétés un truc du style:
me.va_AE1.CFGetCellParam(Param as integer, Col as Long, Row as long) mais je ne sais pas comment l'utiliser.

ddove53 · Answer

effectivement va_AE, va_AE1 c'est vaSpread.désolé.

ddove53 · Answer

je n'ai pas cellActive dans mes propriétés mais ActiveRow et Activecolumn

ddove53 · Answer

Autant pour moi:
Dim test As Variant
Me.vaSpread.GetText Me.vaSpread.ActiveCol, Me.vaSpread.ActiveRow, test
Msgbox test

Activerow, activecolumn

14 réponses

Votre réponse