Discussion :

[jlvalentin]

Bonjour,

Voila, j'ai un ch'ti souci. Je ne parviens pas à récupérer la position de la colonne dans une MSHFlexGrid.
Mon but est de savoir sur quelle colonne et quelle ligne l'utilisateur a cliqué. Pour la ligne, pas de souci.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Install_MSHGrid_Click()
   Dim tmp_CmbHeight As Long
   Dim tmp_ClickCol  As Integer
   tmp_ClickCol = Install_MSHGrid.Col
      MsgBox "Colonne Sel : " & Install_MSHGrid.ColSel & " ** Ligne Sel : " & Install_MSHGrid.RowSel & vbCr & _
             "Colonne : " & Install_MSHGrid.Col & " ** Ligne : " & Install_MSHGrid.Row & vbCr & _
             "ClickCol : " & tmp_ClickCol & vbCr & _
             "Top : " & Install_MSHGrid.Top & "** Left : " & Install_MSHGrid.Left & vbCr & _
             "Content(.row,.col) : " & Install_MSHGrid.TextMatrix(Install_DBGrid.Row, Install_MSHGrid.Col) & vbCr & _
             "Content(.rowsel,.colsel) : " & Install_MSHGrid.TextMatrix(Install_MSHGrid.RowSel, Install_MSHGrid.ColSel)

A chaque fois, que ce soit .Col ou .ColSel, j'ai la valeur 1 qui est retournée.

D'avance merci.

Jean-Luc

[zazaraignée]

Salut

Je ne comprends pas le problème. J'ai testé avec ceci:

Code :

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

1
2
3
4
Private Sub MSFlexGrid1_Click()
Label1.Caption = MSFlexGrid1.Row
Label2.Caption = MSFlexGrid1.Col
End Sub

sans problème.

J'aimerais savoir le but d'une telle msgbox, avec autant de texte et de valeurs à afficher, je veux dire...

Et que retourne la valeur affichée dans le textBox de ta variable tmp_ClicCol?

[jlvalentin]

Bonjour,

Tout d'abord, merci de s'être penché sur mon problème. J'avais un peu peur de n'avoir aucune réponse...

Je ne comprends pas le problème.

Désolé, je n'ai pas été très clair dans mon précédent message, étant à fond dans mon soucis....
Je ne parviens pas à récupérer la position de la colonne dans une MSHFlexGrid lorsque je fais un clic gauche. Je récupère bien la valeur de la ligne sur laquelle j'ai cliqué, mais je ne parviens pas à récupérer la valeur de la colonne. L'objectif est de placer à cette intersection une TextBox initialisée avec la valeur de la cellule pour en autoriser la modification.

Et que retourne la valeur affichée dans le textBox de ta variable tmp_ClicCol?

Voici ce que j'ai (pour les premières lignes. En fait, j'ai cliqué au croisement de la colonne 6 et de la ligne 7

Code :

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

1
2
3
Colonne Sel : 13	** Ligne Sel : 7
Colonne : 1		** Ligne : 7
ClickCol : 1

Moi, bétement, je m'attendais à avoir .Col égal à 6 (valeur à droite de Colonne ou ClickCol dans mon MsgBox.

J'aimerais savoir le but d'une telle msgbox, avec autant de texte et de valeurs à afficher, je veux dire...

C'était pour faire avancer le Schmilblick et plutot que de faire un Debug.Print, j'ai fait un MsgBox avec les valeurs que je voulais voir...

Jean-Luc

[jacma]

Bonjour
Pour obtenir les numéros ligne et colonne, il ne faut pas utiliser rowsel ni colsel, mais simplement row et col.
Les propriétes xxxsel te permettent de définir une zone qui s'étend entre row et rowsel et col et colsel.

[jlvalentin]

Merci Jacma, mais cela je le sais.

Si tu regardes mon message précédent, je donne un apercu du résultat de mon MsgBox qui affiche .Colsel et .Col
ColSel me retourne 13 ce qui correspond bien au nombre total de colonnes de ma MSHFlexGrid. Mais Col me retourne toujours la valeur 1.

Et ce n'est pas vraiment ce que je veux.

[jlvalentin]

OK, j'ai trouvé.
C'est parce que sur ma MSHFlexGrid, la propriété SelectionMode était positionnée à flexSelectionByRow.
En la mettant à flexSelectionFree, cela fonctionne parfaitement.

Désolé de vous avoir embêté avec cela...

Jean-Luc