Bonjour.
Je vais tâcher d'être clair. J'ai écrit une macro avec XL97. Celle-ci
affiche une listbox avec 3 choix. Pour éviter un bouton "OK", je récupère la
valeur du ControlSource de la listbox pour cacher cette dernière et afficher
une autre listbox selon la valeur du ControlSource. La macro fonctionne
correctement en mode "pas à pas". En mode normal, je suis obligé d'insérer
une pause entre le clic sur la première listbox et l'affichage de la seconde
listbox :
Private Sub ListGene_Click()
nvlleHeure = Hour(Now())
nvlleMinute = Minute(Now())
nvlleSeconde = Second(Now()) + 1
waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde)
Application.Wait waitTime
Select Case Range("J1").Value
Case 1
ListInfo.Visible = True
Var = 1
Case 2
ListZoo.Visible = True
Var = 2
Case 3
ListBotanique.Visible = True
Var = 3
Case Else
Exit Sub
End Select
ListGene.Visible = False
cbOK.Visible = True
cbCancel.Visible = True
End Sub
Avec XL2003, en éxecution normale (et avec la pause), j'obtiens un message :
"une exception s'est produite".
Au secours !
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
Patrick Fredin
Bonjour,
En effet, c'est très bizarre. Essaie de mettre DoEvents à la place de la seconde.
Si besoin, envois-moi ton fichier je regarderai.
-- Patrick
"Daniel" wrote in message news:41e2b092$0$10259$
Bonjour. Je vais tâcher d'être clair. J'ai écrit une macro avec XL97. Celle-ci affiche une listbox avec 3 choix. Pour éviter un bouton "OK", je récupère la valeur du ControlSource de la listbox pour cacher cette dernière et afficher une autre listbox selon la valeur du ControlSource. La macro fonctionne correctement en mode "pas à pas". En mode normal, je suis obligé d'insérer une pause entre le clic sur la première listbox et l'affichage de la seconde listbox : Private Sub ListGene_Click() nvlleHeure = Hour(Now()) nvlleMinute = Minute(Now()) nvlleSeconde = Second(Now()) + 1 waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde) Application.Wait waitTime Select Case Range("J1").Value Case 1 ListInfo.Visible = True Var = 1 Case 2 ListZoo.Visible = True Var = 2 Case 3 ListBotanique.Visible = True Var = 3 Case Else Exit Sub End Select ListGene.Visible = False cbOK.Visible = True cbCancel.Visible = True End Sub
Avec XL2003, en éxecution normale (et avec la pause), j'obtiens un message : "une exception s'est produite". Au secours !
Bonjour,
En effet, c'est très bizarre. Essaie de mettre DoEvents à la place de la
seconde.
Si besoin, envois-moi ton fichier je regarderai.
--
Patrick
"Daniel" <dcolardelle@free.fr> wrote in message
news:41e2b092$0$10259$626a14ce@news.free.fr...
Bonjour.
Je vais tâcher d'être clair. J'ai écrit une macro avec XL97. Celle-ci
affiche une listbox avec 3 choix. Pour éviter un bouton "OK", je récupère
la valeur du ControlSource de la listbox pour cacher cette dernière et
afficher une autre listbox selon la valeur du ControlSource. La macro
fonctionne correctement en mode "pas à pas". En mode normal, je suis
obligé d'insérer une pause entre le clic sur la première listbox et
l'affichage de la seconde listbox :
Private Sub ListGene_Click()
nvlleHeure = Hour(Now())
nvlleMinute = Minute(Now())
nvlleSeconde = Second(Now()) + 1
waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde)
Application.Wait waitTime
Select Case Range("J1").Value
Case 1
ListInfo.Visible = True
Var = 1
Case 2
ListZoo.Visible = True
Var = 2
Case 3
ListBotanique.Visible = True
Var = 3
Case Else
Exit Sub
End Select
ListGene.Visible = False
cbOK.Visible = True
cbCancel.Visible = True
End Sub
Avec XL2003, en éxecution normale (et avec la pause), j'obtiens un message
: "une exception s'est produite".
Au secours !
En effet, c'est très bizarre. Essaie de mettre DoEvents à la place de la seconde.
Si besoin, envois-moi ton fichier je regarderai.
-- Patrick
"Daniel" wrote in message news:41e2b092$0$10259$
Bonjour. Je vais tâcher d'être clair. J'ai écrit une macro avec XL97. Celle-ci affiche une listbox avec 3 choix. Pour éviter un bouton "OK", je récupère la valeur du ControlSource de la listbox pour cacher cette dernière et afficher une autre listbox selon la valeur du ControlSource. La macro fonctionne correctement en mode "pas à pas". En mode normal, je suis obligé d'insérer une pause entre le clic sur la première listbox et l'affichage de la seconde listbox : Private Sub ListGene_Click() nvlleHeure = Hour(Now()) nvlleMinute = Minute(Now()) nvlleSeconde = Second(Now()) + 1 waitTime = TimeSerial(nvlleHeure, nvlleMinute, nvlleSeconde) Application.Wait waitTime Select Case Range("J1").Value Case 1 ListInfo.Visible = True Var = 1 Case 2 ListZoo.Visible = True Var = 2 Case 3 ListBotanique.Visible = True Var = 3 Case Else Exit Sub End Select ListGene.Visible = False cbOK.Visible = True cbCancel.Visible = True End Sub
Avec XL2003, en éxecution normale (et avec la pause), j'obtiens un message : "une exception s'est produite". Au secours !
