DialogSheet ? Un peu d'aide merci

*Bonjour Excel...lent*,
Avec la version 2000, les dialogsheets ne sont plus geres, il faut les
remplacer par des userforms

Bonsoir la communauté,

Ci-joint ICI : http://cjoint.com/?lBxunMeP4G

Un petit exemple de ce que je souhaiterais.

Tous les boutons de commande des DialogSheet fonctionnent avec des petites
macros.

J'ai juste un problème avec les boutons " RETOUR " pour lesquels j'ai fait
aussi des petits codes qui plante
avec le message suivant :

erreur d'exécution '1004' la méthode Show de la
classe DialogSheet a échoué

Quand je vais au débogage cela me met en surbrillance jaune :

Pour le code Diag2ret() ----> DialogSheets("Diag1").Show
Pour le code Diag3ret() ----> DialogSheets("Diag2").Show

Où est ce que je me suis planté s'il vous plaît ?

Merci de votre aide.

Cordialement.

Excel...lent

N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm

--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

T'es vraiment sur de ce que tu as écrit ?


A+

*Bonjour Excel...lent*,
Avec la version 2000, les dialogsheets ne sont plus geres, il faut les
remplacer par des userforms

Bonsoir la communauté,

Ci-joint ICI : http://cjoint.com/?lBxunMeP4G

Un petit exemple de ce que je souhaiterais.

Tous les boutons de commande des DialogSheet fonctionnent avec des
petites
macros.

J'ai juste un problème avec les boutons " RETOUR " pour lesquels j'ai
fait
aussi des petits codes qui plante
avec le message suivant :

erreur d'exécution '1004' la méthode Show de la
classe DialogSheet a échoué

Quand je vais au débogage cela me met en surbrillance jaune :

Pour le code Diag2ret() ----> DialogSheets("Diag1").Show
Pour le code Diag3ret() ----> DialogSheets("Diag2").Show

Où est ce que je me suis planté s'il vous plaît ?

Merci de votre aide.

Cordialement.

Excel...lent

N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm

Bonjour,

comme suit ca devrait coller. Le problème venait vraisemblablement que
tu essayais de charger en mémoire quelque chose qui était déjà chargé.
Du moins c'est ce que je suppose , étant entendu que j'ai Excel 2000 et
pas l'aide d'Excel5.

Sub Diag1()
'
' Diag1 Macro
'

DialogSheets("Diag1").Show
End Sub
Sub Diag1close()
'
' Diag1close Macro
'

DialogSheets("Diag1").Hide
End Sub
Sub Diag2()
'
' Diag2 Macro
'

DialogSheets("Diag2").Show
End Sub
Sub Diag2ret()
'
' Diag2ret Macro
'

DialogSheets("Diag2").Hide
End Sub
Sub Diag2close()
'
' Diag2close Macro
'

DialogSheets("Diag2").Hide
End Sub
Sub Diag3()
'
' Diag3 Macro
'
DialogSheets("Diag3").Show
End Sub
Sub Diag3ret()
'
' Diag3ret Macro
'
DialogSheets("Diag3").Hide
End Sub
Sub Diag3close()
'
' Diag3close Macro
'

DialogSheets("Diag3").Hide
End Sub

A+

Bonsoir la communauté,

Ci-joint ICI : http://cjoint.com/?lBxunMeP4G

Un petit exemple de ce que je souhaiterais.

Tous les boutons de commande des DialogSheet fonctionnent avec des petites
macros.

J'ai juste un problème avec les boutons " RETOUR " pour lesquels j'ai fait
aussi des petits codes qui plante
avec le message suivant :

erreur d'exécution '1004' la méthode Show de la
classe DialogSheet a échoué

Quand je vais au débogage cela me met en surbrillance jaune :

Pour le code Diag2ret() ----> DialogSheets("Diag1").Show
Pour le code Diag3ret() ----> DialogSheets("Diag2").Show

Où est ce que je me suis planté s'il vous plaît ?

Merci de votre aide.

Cordialement.

Excel...lent

N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm

anonymousA avait soumis l'idée :

T'es vraiment sur de ce que tu as écrit ?

Non, je suis pas vraiment sur de ce que j'avance, mais comme tu l'a dis

dans ton autre post, avec 2000, y a pas d'aide et comme son code me
paraissait tres correct... :oÞ
Mais tu as raison, je m'avance trop :')

*Bonjour Excel...lent*,
Avec la version 2000, les dialogsheets ne sont plus geres, il faut les
remplacer par des userforms

Bonsoir la communauté,

Ci-joint ICI : http://cjoint.com/?lBxunMeP4G

Un petit exemple de ce que je souhaiterais.

Tous les boutons de commande des DialogSheet fonctionnent avec des petites
macros.

J'ai juste un problème avec les boutons " RETOUR " pour lesquels j'ai fait
aussi des petits codes qui plante
avec le message suivant :

erreur d'exécution '1004' la méthode Show de la
classe DialogSheet a échoué

Quand je vais au débogage cela me met en surbrillance jaune :

Pour le code Diag2ret() ----> DialogSheets("Diag1").Show
Pour le code Diag3ret() ----> DialogSheets("Diag2").Show

Où est ce que je me suis planté s'il vous plaît ?

Merci de votre aide.

Cordialement.

Excel...lent

N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm

pas de mal. mais en réalité, la compatibilité descendante aidant, bien
sur que les dialogsheets sont gérés par Xcel97 et au delà.

cordialement,

anonymousA avait soumis l'idée :

T'es vraiment sur de ce que tu as écrit ?

Non, je suis pas vraiment sur de ce que j'avance, mais comme tu l'a dis

dans ton autre post, avec 2000, y a pas d'aide et comme son code me
paraissait tres correct... :oÞ
Mais tu as raison, je m'avance trop :')

*Bonjour Excel...lent*,
Avec la version 2000, les dialogsheets ne sont plus geres, il faut
les remplacer par des userforms

Bonsoir la communauté,

Ci-joint ICI : http://cjoint.com/?lBxunMeP4G

Un petit exemple de ce que je souhaiterais.

Tous les boutons de commande des DialogSheet fonctionnent avec des
petites
macros.

J'ai juste un problème avec les boutons " RETOUR " pour lesquels
j'ai fait
aussi des petits codes qui plante
avec le message suivant :

erreur d'exécution '1004' la méthode Show de la
classe DialogSheet a échoué

Quand je vais au débogage cela me met en surbrillance jaune :

Pour le code Diag2ret() ----> DialogSheets("Diag1").Show
Pour le code Diag3ret() ----> DialogSheets("Diag2").Show

Où est ce que je me suis planté s'il vous plaît ?

Merci de votre aide.

Cordialement.

Excel...lent

N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm

anonymousA avait soumis l'idée :

pas de mal. mais en réalité, la compatibilité descendante aidant, bien sur
que les dialogsheets sont gérés par Xcel97 et au delà.

cordialement,
Merci de ta clemence ;-)

rofl

anonymousA avait soumis l'idée :

T'es vraiment sur de ce que tu as écrit ?

Non, je suis pas vraiment sur de ce que j'avance, mais comme tu l'a dis

dans ton autre post, avec 2000, y a pas d'aide et comme son code me
paraissait tres correct... :oÞ
Mais tu as raison, je m'avance trop :')

*Bonjour Excel...lent*,
Avec la version 2000, les dialogsheets ne sont plus geres, il faut les
remplacer par des userforms

Bonsoir la communauté,

Ci-joint ICI : http://cjoint.com/?lBxunMeP4G

Un petit exemple de ce que je souhaiterais.

Tous les boutons de commande des DialogSheet fonctionnent avec des
petites
macros.

J'ai juste un problème avec les boutons " RETOUR " pour lesquels j'ai
fait
aussi des petits codes qui plante
avec le message suivant :

erreur d'exécution '1004' la méthode Show de la
classe DialogSheet a échoué

Quand je vais au débogage cela me met en surbrillance jaune :

Pour le code Diag2ret() ----> DialogSheets("Diag1").Show
Pour le code Diag3ret() ----> DialogSheets("Diag2").Show

Où est ce que je me suis planté s'il vous plaît ?

Merci de votre aide.

Cordialement.

Excel...lent

N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm

Bonsoir,
amha
reste qu'i n'est pas évident au delà de ces versions d'insérer ou modifier
une dialogsheet comme il se pouvait avec excel 4 ou5
car c'est bien d'avant 97 que remonte le concept.
Pour ma pert même si rien est impossible je privilégierait qd même ce
qui se peut reprendre ou apprendre facilement avec les versions actuelles,
soit un userform comme suggèré par Jluc.

Cordialement

lSteph



"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
438ad737$0$4369$7a628cd7@news.club-internet.fr...

pas de mal. mais en réalité, la compatibilité descendante aidant, bien sur
que les dialogsheets sont gérés par Xcel97 et au delà.

cordialement,

anonymousA avait soumis l'idée :

T'es vraiment sur de ce que tu as écrit ?

Non, je suis pas vraiment sur de ce que j'avance, mais comme tu l'a dis

dans ton autre post, avec 2000, y a pas d'aide et comme son code me
paraissait tres correct... :oÞ
Mais tu as raison, je m'avance trop :')

*Bonjour Excel...lent*,
Avec la version 2000, les dialogsheets ne sont plus geres, il faut les
remplacer par des userforms

Bonsoir la communauté,

Ci-joint ICI : http://cjoint.com/?lBxunMeP4G

Un petit exemple de ce que je souhaiterais.

Tous les boutons de commande des DialogSheet fonctionnent avec des
petites
macros.

J'ai juste un problème avec les boutons " RETOUR " pour lesquels j'ai
fait
aussi des petits codes qui plante
avec le message suivant :

erreur d'exécution '1004' la méthode Show de la
classe DialogSheet a échoué

Quand je vais au débogage cela me met en surbrillance jaune :

Pour le code Diag2ret() ----> DialogSheets("Diag1").Show
Pour le code Diag3ret() ----> DialogSheets("Diag2").Show

Où est ce que je me suis planté s'il vous plaît ?

Merci de votre aide.

Cordialement.

Excel...lent

N'oubliez pas votre lampe à huile et votre casque et descendez dans
ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm

Bonjour,

Merci à tous les deux de bien vouloir vous pencher sur ma misère en matière
de VBA... lol

JLuc je suis pas certain d'avoir bien compris ta réponse.

AnonymousA tes codes fonctionnent très bien. Je ballade bien de DailogSheet
en DialogSheet. Mais est-il possible de pouvoir fermer ces DialogSheet à
partir de chacune d'entre-elles ? Ouille ouille je suis pas sur d'avoir été
très clair là... re lol

Car pour l'instant les codes pour fermer que tu m'as donné me permettent
juste de revenir à la DialogSheet précédente. Ce sont d'ailleurs les mêmes
codes.

Ci-joint mon fichier avec tes codes : http://cjoint.com/?lDhLdzetfU

Merci de votre aide à tous les deux.

Cordialement.

Excel...lent

N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm

Bonjour,

Sub Diag1()
DialogSheets("Diag1").Show
End Sub
Sub Diag1close()
DialogSheets("Diag1").Hide
End Sub
Sub LanceDiag2()
DialogSheets("Diag2").Show
End Sub
Sub Diag2()
Application.OnTime Now + TimeSerial(0, 0, 0.1), "LanceDiag2"
DialogSheets("Diag1").Hide
End Sub
Sub Diag2ret()
Application.OnTime Now + TimeSerial(0, 0, 0.1), "Diag1"
DialogSheets("Diag2").Hide
End Sub
Sub Diag2close()
DialogSheets("Diag2").Hide
End Sub
Sub LanceDiag3()
DialogSheets("Diag3").Show
End Sub
Sub Diag3()
Application.OnTime Now + TimeSerial(0, 0, 0.1), "LanceDiag3"
DialogSheets("Diag2").Hide
End Sub
Sub Diag3ret()
Application.OnTime Now + TimeSerial(0, 0, 0.1), "LanceDiag2"
DialogSheets("Diag3").Hide
End Sub
Sub Diag3close()
DialogSheets("Diag3").Hide
End Sub

Alain CROS
|
| Car pour l'instant les codes pour fermer que tu m'as donné me permettent
| juste de revenir à la DialogSheet précédente. Ce sont d'ailleurs les mêmes
| codes.
|

Bonjour Alain,

Et bien je n'ai qu'un mot à dire : RESPECT !

Ca fonctionne très bien et c'est exactement ce que je voulais.

Je souhaiterais encore abuser de tes connaissances.

2 questions :

1 - Est-il possible d'imprimer mes DialogSheet une à une via un bouton de
plus sur
chacune d'entre elles ?

2 - Est ce que tes codes sont valables ( si je les duplique et renomme avec
les noms adéquats ) si j'ai en fait plus de 3 DialogSheet ?

Merci encore à toi pour ton aide.

Et je n'oublie pas ce qui on déjà répondu, merci encore à vous.

Cordialement.

Excel...lent

N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm