Discussion :

[chuspyto]

bonjour a l'execution du code je me retrouve avec une erreur execution 2455
le reference d'une expression a la propieté form/report n'est pas valide.voici qu'elle ligne presente un probleme:

Code :

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

1
2
3
If (Forms!frmOuverture!SF_Planning.Form("creneau" & i & "_" & j).Caption <> "") Then
Forms!frmOuverture!SF_Planning.Form("creneau" & i & "_" & j).Caption = ""
 End If

QUAND JE FAIS MAJ+F9 cela me dit point d'arret non autorise dans cette ligne.
quelqu'un aurrai une idée sur le probleme

merci d'avance

[marot_r]

Essaye avec cela :

Code :

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

Forms!frmOuverture!SF_Planning.Form.controls("creneau" & i & "_" & j).Caption

A+

[chuspyto]

merci pour ta reponse mais cela ne change rien au probleme

[marot_r]

As-tu compilé (en mode design de module, menu debug, compiler) ton projet sans aucune erreur ?

Si oui, peux-tu ouvrir le formulaire à la main ? S'affiche t'il correctement ?

Si mets un point d'arret avant le code qui pose un problème puis tape dans la fenêtre d'exécution immédiate ([ctrl][G])

Debug.print i
Debug.print j
Debug.print "creneau" & i & "_" & j

Est-ce que c'est à quoi tu t'attends ? Est-ce bien le nom d'un de tes contrôles ?

Si oui, essaye toujours dans la fenêtre d'exécution immédiate

debug.print Forms!frmOuverture!SF_Planning.Form.name

Obtiens-tu le nom de ton sous-formulaire ?

Si oui essaye

debug.print Forms!frmOuverture!SF_Planning.Form.controls("creneau" & i & "_" & j).Caption

en remplaçant dans "creneau" & i & "_" & j i et j par leurs valeurs.

Ça donne quoi ?

A+