[AC-2003] Probleme de signe "=" dans ondblclik [Résolu]

[luc.guiavarch]

* Bonjour *

J'ai fouillé sur internet mais je ne trouve pas de solutions à mon problème alors je me tourne vers vous.

Je souhaite à partir d'une commande générer dans un formulaire vide une grille d'étiquettes qui au final représentera un Planning. Sur chaque étiquette je souhaite, sur l'évènement OnDblClick, ouvrir une fonction OuvrirFormRendezVous" avec les propriétés adéquates.

La génération se passe bien. J'ai juste un problème au niveau de la syntaxe sur l'évènement ondblclck. Pour appeler la fonction il me semble qu'il faut mettre le signe "=" avant le nom de la fonction (comme je le fait dans le code ci-dessous). Or quand j'essaye il me rejette la génération des étiquettes, m'indiquant qu'il y a une erreur de syntaxe. Si je ne met pas le signe la génération se fait correctement mais l'appel de la fonction sur le double click ne marche pas.

Comment faire???? Merci de m'aider.

Ci-dessous le code :

Code :

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
Private Sub Commande0_Click()
Dim i As Integer
Dim j As Integer
Dim Etiquette_Creneau As Control
Dim ondblclick As String
For j = 1 To 7
 
    For i = 1 To 10
    Set Etiquette_Creneau = CreateControl("SF_Planning", acLabel, acDetail, , , j * 1701, i * 142, 1701, 142)
    With Etiquette_Creneau
    On Error GoTo err:
    ondblclick = "=OuvrirFormRendezVous(" & i & ";" & j & ")"
    .Properties("name") = "creneau" & i & "_" & j & ""
    .Properties("ondblclick") = ondblclick
    End With
    Next i
Next j
 
MsgBox "génération du planning ok"
Exit Sub
 
err:
MsgBox err.Number & " : " & err.Description
 
End Sub

[User]

Bonjour,

Pour info j'ai crée un utilitaire pour cela ici :
Générer un planning

Les étiquettes sont crées dans l'ordre inverse pour pouvoir se superposer.

Sinon dans votre code il me semble qu'il faut remplacer le ";" par ",":

Code :

ondblclick = "=OuvrirFormRendezVous(" & i & "," & j & ")"

et créer les étiquettes dans l'ordre inverse dans la boucle des lignes:

Code :

1
2
3
4
5
For i = 10 To 1 step -1
...
 
Next i
...

A+

[luc.guiavarch]

ok c'était bien la virgule.
Pour info, c'est à partir de ton gestionnaire que je suis partie. Seulement il me faut des créneaux de 5 minutes au lieu de 15. c'est pour cela que je souhaite régénérer ton sous-formulaire "SF_Planning" de manière automatique.

En tous cas, un grand merci

[User]

Salut,

Dans ce tuto je propose des exemples ou tu peux paramétrer les tranches horaires, par contre je n'ai pas prévu 5 minutes (il faut regarder dans le formulaire "F_ParametrerAgenda" et sur la liste "TrancheH", enlever limiter à liste. ) après tu peux saisir 5 dans la liste Tranche horaire et générer le planning.

A+