Une version plus aboutie du fichier :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijBWMSDCq.zip
Une version plus aboutie du fichier :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijBWMSDCq.zip
Une version plus aboutie du fichier :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijBWMSDCq.zip
Une version plus aboutie du fichier :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijBWMSDCq.zip
Une version plus aboutie du fichier :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijBWMSDCq.zip
Une version plus aboutie du fichier :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijBWMSDCq.zip
Version Excel 2007,
Si l'onglet "Développeur" du "Ruban" est affiché
il s'agit d'aller dans la section "Code", de cliquer
sur la commande "Sécurité des macros" ...
section de gauche : "Paramètres des macros"
et dans la section de droite, tu coches :
"Accès approuvé au modèle d'objet du projet VBA"
On peut aussi passer par le gros boutons "office" dans
le coin supérieur gauche de l'application... Options Excel...
Excel 2003, barre des menus / outils / macros / sécurités /
onglets "éditeurs approuvés" et tu coches les 2 cases à cocher
dans le bas de la fenêtre.
"elect31" a écrit dans le message de groupe de discussion :
Salut Michdenis
Tout d'abord, j'espère que tu as passé un bon Noël. Je n'avais pas
ouvert mon ordi depuis le 24, et je vois que tu es énormément occupé ces
derniers temps. Je te remercie pour ça.
Je n'ai ouvert, pour l'instant que le dernier fichier de ton dernier
post. J'ai lu tes commentaires, remarques et suggestions dans la zone de
texte, puis j'ai essayé d'ouvrir le formulaire par le nouveau bouton que
tu as placé.
Mauvaise nouvelle: le formulaire s'affiche, mais j'ai de suite une
"erreur d'exécution 1004 : l'accès par programme au projet Visual Basic
n'est pas fiable."
Si je passe en débogage, je tombe sur la "Function
Equivalent_Nom_Feuille(NomFrame As String)" qui me surligne
l'intégralité de son contenu.
Je ne peux pas aller voir plus loin dans la démonstration, mais j'ai vu
et apprécier les simplifications et améliorations apportées à mes
procédures.
Voilà! Je ne sais pourquoi le projet pourrait ne pas être fiable. Peut
être une question de référence?
Celles qui sont cochées chez moi:
Visual Basic For Application
Microsoft Excel 12.0 Object Library
OLE Automation
Microsoft Office 12.0 Object Library
Microsoft Forms 2.0 Object Library
Microsoft Windows Common Controls 6.0 (SP6)
Ref Edit Control
Microsoft Calendar control 2007
Microsoft Windows Common Controls-2 6.0 (SP6)
Si tu as une solution???
michdenis a écrit :Une version plus aboutie du fichier :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijBWMSDCq.zip
Version Excel 2007,
Si l'onglet "Développeur" du "Ruban" est affiché
il s'agit d'aller dans la section "Code", de cliquer
sur la commande "Sécurité des macros" ...
section de gauche : "Paramètres des macros"
et dans la section de droite, tu coches :
"Accès approuvé au modèle d'objet du projet VBA"
On peut aussi passer par le gros boutons "office" dans
le coin supérieur gauche de l'application... Options Excel...
Excel 2003, barre des menus / outils / macros / sécurités /
onglets "éditeurs approuvés" et tu coches les 2 cases à cocher
dans le bas de la fenêtre.
"elect31" <rg31@free.fr> a écrit dans le message de groupe de discussion :
uUPJvJnhKHA.4220@TK2MSFTNGP05.phx.gbl...
Salut Michdenis
Tout d'abord, j'espère que tu as passé un bon Noël. Je n'avais pas
ouvert mon ordi depuis le 24, et je vois que tu es énormément occupé ces
derniers temps. Je te remercie pour ça.
Je n'ai ouvert, pour l'instant que le dernier fichier de ton dernier
post. J'ai lu tes commentaires, remarques et suggestions dans la zone de
texte, puis j'ai essayé d'ouvrir le formulaire par le nouveau bouton que
tu as placé.
Mauvaise nouvelle: le formulaire s'affiche, mais j'ai de suite une
"erreur d'exécution 1004 : l'accès par programme au projet Visual Basic
n'est pas fiable."
Si je passe en débogage, je tombe sur la "Function
Equivalent_Nom_Feuille(NomFrame As String)" qui me surligne
l'intégralité de son contenu.
Je ne peux pas aller voir plus loin dans la démonstration, mais j'ai vu
et apprécier les simplifications et améliorations apportées à mes
procédures.
Voilà! Je ne sais pourquoi le projet pourrait ne pas être fiable. Peut
être une question de référence?
Celles qui sont cochées chez moi:
Visual Basic For Application
Microsoft Excel 12.0 Object Library
OLE Automation
Microsoft Office 12.0 Object Library
Microsoft Forms 2.0 Object Library
Microsoft Windows Common Controls 6.0 (SP6)
Ref Edit Control
Microsoft Calendar control 2007
Microsoft Windows Common Controls-2 6.0 (SP6)
Si tu as une solution???
michdenis a écrit :
Une version plus aboutie du fichier :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijBWMSDCq.zip
Version Excel 2007,
Si l'onglet "Développeur" du "Ruban" est affiché
il s'agit d'aller dans la section "Code", de cliquer
sur la commande "Sécurité des macros" ...
section de gauche : "Paramètres des macros"
et dans la section de droite, tu coches :
"Accès approuvé au modèle d'objet du projet VBA"
On peut aussi passer par le gros boutons "office" dans
le coin supérieur gauche de l'application... Options Excel...
Excel 2003, barre des menus / outils / macros / sécurités /
onglets "éditeurs approuvés" et tu coches les 2 cases à cocher
dans le bas de la fenêtre.
"elect31" a écrit dans le message de groupe de discussion :
Salut Michdenis
Tout d'abord, j'espère que tu as passé un bon Noël. Je n'avais pas
ouvert mon ordi depuis le 24, et je vois que tu es énormément occupé ces
derniers temps. Je te remercie pour ça.
Je n'ai ouvert, pour l'instant que le dernier fichier de ton dernier
post. J'ai lu tes commentaires, remarques et suggestions dans la zone de
texte, puis j'ai essayé d'ouvrir le formulaire par le nouveau bouton que
tu as placé.
Mauvaise nouvelle: le formulaire s'affiche, mais j'ai de suite une
"erreur d'exécution 1004 : l'accès par programme au projet Visual Basic
n'est pas fiable."
Si je passe en débogage, je tombe sur la "Function
Equivalent_Nom_Feuille(NomFrame As String)" qui me surligne
l'intégralité de son contenu.
Je ne peux pas aller voir plus loin dans la démonstration, mais j'ai vu
et apprécier les simplifications et améliorations apportées à mes
procédures.
Voilà! Je ne sais pourquoi le projet pourrait ne pas être fiable. Peut
être une question de référence?
Celles qui sont cochées chez moi:
Visual Basic For Application
Microsoft Excel 12.0 Object Library
OLE Automation
Microsoft Office 12.0 Object Library
Microsoft Forms 2.0 Object Library
Microsoft Windows Common Controls 6.0 (SP6)
Ref Edit Control
Microsoft Calendar control 2007
Microsoft Windows Common Controls-2 6.0 (SP6)
Si tu as une solution???
michdenis a écrit :Une version plus aboutie du fichier :
http://www.cijoint.fr/cjlink.php?file=cj200912/cijBWMSDCq.zip
Pour ton information et pour ceux qui auraient télécharger
le fichier exemple, j'ai commis un impair dans la procédure
Sub Initialer_La_Classe() dans le module du formulaire.
La procédure devrait se lire comme suit :
'-------------------------------------
Sub Initialer_La_Classe()
Dim C As Control, A As Integer
Dim Nb As Integer, i As Integer, X As Integer
For A = 1 To 6 'représente le nombre de "Frame"
With UFrmProfilEleve.Controls("FrameSeance" & CStr(A))
For Each C In .Controls
If TypeOf C Is ComboBox Then
X = Split(C.Name, "x")(1)
Select Case X Mod 3
Case 0
C.RowSource = Names("Voies")
C.ControlTipText = "N° de voie"
Case 1
C.RowSource = Names("Difficultes")
C.ControlTipText = "Difficulté de la voie"
Case 2
C.RowSource = Names("Hauteurs")
C.ControlTipText = "Hauteur atteinte"
End Select
i = i + 1
ReDim Preserve DMCombobox(1 To i)
Set DMCombobox(i).MonCombobox = C
End If
Next
End With
Next
End Sub
'-------------------------------------
Ce bout de code permet d'initialer la propriété "RowSource"
et la propriété : "ControlTipText" de chaque combobox au
moment d'ouvrir le formulaire... Il n'est pas nécessaire et tu peux
l'enlever si tu le désires... car tu as pris le temps de les renseigner
manuellement au moment de la création des combobox.
Cependant, il est possible d'automatiser cela et si tu décidais
de conserver ce bout de code, aussi bien qu'il soit correcte !
X = Split(C.Name, "x")(1)
Select Case X Mod 3
Case 0
C.RowSource = Names("Voies")
C.ControlTipText = "N° de voie"
Case 1
C.RowSource = Names("Difficultes")
C.ControlTipText = "Difficulté de la voie"
Case 2
C.RowSource = Names("Hauteurs")
C.ControlTipText = "Hauteur atteinte"
End Select
Pour ton information et pour ceux qui auraient télécharger
le fichier exemple, j'ai commis un impair dans la procédure
Sub Initialer_La_Classe() dans le module du formulaire.
La procédure devrait se lire comme suit :
'-------------------------------------
Sub Initialer_La_Classe()
Dim C As Control, A As Integer
Dim Nb As Integer, i As Integer, X As Integer
For A = 1 To 6 'représente le nombre de "Frame"
With UFrmProfilEleve.Controls("FrameSeance" & CStr(A))
For Each C In .Controls
If TypeOf C Is ComboBox Then
X = Split(C.Name, "x")(1)
Select Case X Mod 3
Case 0
C.RowSource = Names("Voies")
C.ControlTipText = "N° de voie"
Case 1
C.RowSource = Names("Difficultes")
C.ControlTipText = "Difficulté de la voie"
Case 2
C.RowSource = Names("Hauteurs")
C.ControlTipText = "Hauteur atteinte"
End Select
i = i + 1
ReDim Preserve DMCombobox(1 To i)
Set DMCombobox(i).MonCombobox = C
End If
Next
End With
Next
End Sub
'-------------------------------------
Ce bout de code permet d'initialer la propriété "RowSource"
et la propriété : "ControlTipText" de chaque combobox au
moment d'ouvrir le formulaire... Il n'est pas nécessaire et tu peux
l'enlever si tu le désires... car tu as pris le temps de les renseigner
manuellement au moment de la création des combobox.
Cependant, il est possible d'automatiser cela et si tu décidais
de conserver ce bout de code, aussi bien qu'il soit correcte !
X = Split(C.Name, "x")(1)
Select Case X Mod 3
Case 0
C.RowSource = Names("Voies")
C.ControlTipText = "N° de voie"
Case 1
C.RowSource = Names("Difficultes")
C.ControlTipText = "Difficulté de la voie"
Case 2
C.RowSource = Names("Hauteurs")
C.ControlTipText = "Hauteur atteinte"
End Select
Pour ton information et pour ceux qui auraient télécharger
le fichier exemple, j'ai commis un impair dans la procédure
Sub Initialer_La_Classe() dans le module du formulaire.
La procédure devrait se lire comme suit :
'-------------------------------------
Sub Initialer_La_Classe()
Dim C As Control, A As Integer
Dim Nb As Integer, i As Integer, X As Integer
For A = 1 To 6 'représente le nombre de "Frame"
With UFrmProfilEleve.Controls("FrameSeance" & CStr(A))
For Each C In .Controls
If TypeOf C Is ComboBox Then
X = Split(C.Name, "x")(1)
Select Case X Mod 3
Case 0
C.RowSource = Names("Voies")
C.ControlTipText = "N° de voie"
Case 1
C.RowSource = Names("Difficultes")
C.ControlTipText = "Difficulté de la voie"
Case 2
C.RowSource = Names("Hauteurs")
C.ControlTipText = "Hauteur atteinte"
End Select
i = i + 1
ReDim Preserve DMCombobox(1 To i)
Set DMCombobox(i).MonCombobox = C
End If
Next
End With
Next
End Sub
'-------------------------------------
Ce bout de code permet d'initialer la propriété "RowSource"
et la propriété : "ControlTipText" de chaque combobox au
moment d'ouvrir le formulaire... Il n'est pas nécessaire et tu peux
l'enlever si tu le désires... car tu as pris le temps de les renseigner
manuellement au moment de la création des combobox.
Cependant, il est possible d'automatiser cela et si tu décidais
de conserver ce bout de code, aussi bien qu'il soit correcte !
X = Split(C.Name, "x")(1)
Select Case X Mod 3
Case 0
C.RowSource = Names("Voies")
C.ControlTipText = "N° de voie"
Case 1
C.RowSource = Names("Difficultes")
C.ControlTipText = "Difficulté de la voie"
Case 2
C.RowSource = Names("Hauteurs")
C.ControlTipText = "Hauteur atteinte"
End Select