Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel userfoirm non modal précision

userfoirm non modal précision

3 réponses
Avatar
AndréSch
Bonjour à tous

comme sur excel 97 ça ne fonctionne pas comme sur 2000 et la suite...
j'ai écri :

dim vers as integer
vers = val(application.vba.version)
# if vers > 6 then
userform.show 0
# else
userform.show
# end if
avec le code de Stephen Bullen bien sur..

j'ai essayé aussi avec application.version

et ça marche bien sur excel 97, c'est non modal ; mais sur excel 2000 par
exemple, il choisit le mauvais embranchement et utilise aussi userform.show
ça marche pourtant avec show 0 mais l'embranchement ne fonctionne pas

qui peut m'aider ?

merci d'avance
il faut que ça marche qq soit la plateform...

André
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel Pierron
Bonjour AndréSch;

#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If

MP

"AndréSch" a écrit dans le message de news:
#
Bonjour à tous

comme sur excel 97 ça ne fonctionne pas comme sur 2000 et la suite...
j'ai écri :

dim vers as integer
vers = val(application.vba.version)
# if vers > 6 then
userform.show 0
# else
userform.show
# end if
avec le code de Stephen Bullen bien sur..

j'ai essayé aussi avec application.version

et ça marche bien sur excel 97, c'est non modal ; mais sur excel 2000 par
exemple, il choisit le mauvais embranchement et utilise aussi
userform.show

ça marche pourtant avec show 0 mais l'embranchement ne fonctionne pas

qui peut m'aider ?

merci d'avance
il faut que ça marche qq soit la plateform...

André




Avatar
AndréSch
Bonjour Michel

C'est ça !!!

dis moi est tu sur du N° dans VB6

et pourquoi VB6 d'ou vient -il ?
j'ai pas besoin de Vers alors...

Cordialement

André
"Michel Pierron" a écrit dans le message de news:
%
Bonjour AndréSch;

#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If

MP

"AndréSch" a écrit dans le message de news:
#
Bonjour à tous

comme sur excel 97 ça ne fonctionne pas comme sur 2000 et la suite...
j'ai écri :

dim vers as integer
vers = val(application.vba.version)
# if vers > 6 then
userform.show 0
# else
userform.show
# end if
avec le code de Stephen Bullen bien sur..

j'ai essayé aussi avec application.version

et ça marche bien sur excel 97, c'est non modal ; mais sur excel 2000 par
exemple, il choisit le mauvais embranchement et utilise aussi
userform.show

ça marche pourtant avec show 0 mais l'embranchement ne fonctionne pas

qui peut m'aider ?

merci d'avance
il faut que ça marche qq soit la plateform...

André








Avatar
AndréSch
et si c'est plus nouveau que VB6 ??? peut on écrire if >vb6

"Michel Pierron" a écrit dans le message de news:
%
Bonjour AndréSch;

#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If

MP

"AndréSch" a écrit dans le message de news:
#
Bonjour à tous

comme sur excel 97 ça ne fonctionne pas comme sur 2000 et la suite...
j'ai écri :

dim vers as integer
vers = val(application.vba.version)
# if vers > 6 then
userform.show 0
# else
userform.show
# end if
avec le code de Stephen Bullen bien sur..

j'ai essayé aussi avec application.version

et ça marche bien sur excel 97, c'est non modal ; mais sur excel 2000 par
exemple, il choisit le mauvais embranchement et utilise aussi
userform.show

ça marche pourtant avec show 0 mais l'embranchement ne fonctionne pas

qui peut m'aider ?

merci d'avance
il faut que ça marche qq soit la plateform...

André