Discussion :

[ESSER]

Bonjour à tous,

J'utilise une requête pour afficher les données d'un fichier clients dans une table.
-> RAS
Dans cette table, j'ai 2 colonnes COL_Email et COL_emailcontact
Elles contiennent les adresses email des clients.
-> RAS
Je souhaite ouvrir Outlook en cliquant une seule fois gauche sur l'adresse email de la COL_Email ou sur l'adresse de la COL_emailcontact et envoyer un email. (autrement dit en cliquant une seule fois gauche sur la cellule correspondante dans la table)

Pour ce faire, j'utilise TableInfoXY afin de récupérer la position de la souris et connaitre dans quelle colonne elle se trouve.

Code :

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

1
2
3
 
sColonne est une chaîne
sColonne = TableInfoXY(TABLE_REQ_Liste_Client, tiNomColonne, SourisPosX(), SourisPosY())

PROBLEME
sColonne renvoyée est toujours la colonne qui est au bord gauche de la table quelque soit la position de ma souris sur la ligne.

Pour bien comprendre si j'ai 20 colonnes et que je laisse l’ascenseur horizontal à gauche, ce sera la col 1 qui sera renvoyée.
Si je déplace l’ascenseur horizontal et que je met la colonne 5 à gauche de la table affichée, ce sera la Col 5 qui sera renvoyée etc.

Question pourquoi ce n'est pas la position de la souris qui est renvoyée mais la position de la 1ère colonne visible qui est renvoyée ?

Merci de votre aide.

[Lo²]

Bonjour,

J'utilise cette méthode également par contre je stocke les valeurs de la souris, pour les utiliser dans TableInfoXY(..) car j'ai rencontré des soucis pendant un temps :

Code :

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

1
2
3
iX est entier = SourisPosX()
iY est un entier = SourisPosY()
maColonne = TableInfoXY(MoiMême, tiNomColonne, iX, iY)

[ESSER]

Merci pour le coup de main, mais ne change rien dans mon cas.

[Lo²]

A quel endroit se trouve le code ?
Pour ma part, il est dans Bouton gauche enfoncé de la table.

[ESSER]

je l'ai mis dans sélection d'une ligne de table

[ESSER]

Réflexion mal menée au départ.
Quand on programme, il faut penser basique or dans mon cas les manipulation des cellules de la table (X1,Y1) (Xn,Yn) que fait windev ne se font pas sur des noms MAIS sur des N°.
Il fallait donc passer par le N° de Colonne et pas par son nom.
Code qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
nligne,nCol est un entier
x,y est un entier
 
x = PoidsFaible(CurseurPos())
y = PoidsFort(CurseurPos())
nligne = TableInfoXY(MoiMême, tiNumLigne + tiOrigineEcran, x, y)
nCol = TableInfoXY(MoiMême, tiNumColonne + tiOrigineEcran, x, y)
 
SI  nCol = 15 ALORS
//	Email.Expediteur = gsNomUtilisateurCourant
	Email.Destinataire = COL_Email
	Email.NbDestinataire = 1
 
	Email.Sujet = "Suite à notre entretien téléphonique"
	Email.Message = "test"
 
	// Ouverture de la session
	MaSession est un entier
	MaSession = EmailOuvreSession("Outlook")
 
	SI MaSession <>0 ALORS
		// Envoi du message
		EmailEnvoieMessage(MaSession, Vrai)
		// Fermeture de la session
		EmailFermeSession(MaSession)
	FIN
FIN

En utilisant le N° de colonne TAbleInfoXY renvoi bien le bon N° de colonne en fonction de la zone de clic dans la table.
Cela ne fonctionne pas avec Bouton gauche enfoncé
Peut être que dans les versions ultérieures, il existe une résolution automatique du nom et N° de colonne.

Reste plus qu'à régler le nouveau message qui s'ouvre mais qui ne part pas....

[Lo²]

J'ai un doute sur la pérennité de la solution, dans le cas où une colonne sera insérée suite à l'évolution du programme.
La numérotation sera à modifier dans ce cas, j'espère que la mémoire est bonne ^^

[Narwe]

Code :

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

1
2
 
SI  nCol = 15 ALORS

J'ai un doute sur la pérennité de la solution, dans le cas où une colonne sera insérée suite à l'évolution du programme.

La solution serait peut-être de remplacer la ligne de code cité par

Code :

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

Si TableEnumèreColonne(TABLE_TableProduit, nCol) = "COL_Email" ALORS