Bonjour,
Ce que tu éprouves comme problématique correspond à la caractéristique
d'une fenêtre "modale" comme dans la commande
Userform1.show
Le statut de MODAL rend la réponse obligatoire à la fenêtre obligatoire
que le reste du code puisse s'exécuter. Tu remarqueras aussi que
modale est ouverte, tu ne peux pas sélectionner un autre objet ou appeler
commande du menu...une fenêtre modale EXIGE UNE RÉPONSE avant de
Un autre exemple de fenêtre MODAL :
Msgbox ...
ou
Application.InputBox....
Cependant, dans le cas d'un formulaire, on peut l'ouvrir dans une fenêtre
avec une commande suivante :
Userform1.Show 0 (commande disponible en standard à partir de la version
Dans ce cas, le formulaire s'affiche mais le reste des lignes de commandes
s'exécute normalement et immédiatement sans attendre la fermeture du
lorsque le formulaire est visible, on a toujours accès à la feuille de
--
MichD
--------------------------------------------
"Michel Mto" a écrit dans le message de groupe
i2u4on$aed$
Bonjour à toutes et à tous,
Dans une procèdure, j'ouvre un fichier excel avec ceci :
Workbooks.Open Filename:= _
"C:chemindufichiernomdufichier.xls"
Sur ce classeur j'ai un userform qui s'affiche par défaut à l'ouverture,
sur lequel il y a différents bouton à cliquer.
Le problème est que dans la procèdure qui ouvre ce fichier, j'ai du code
suit et qui n'est pas excécuté.
La seule manière de poursuivre l'excécution du code c'est que je clique
la croix de fermeture de mon userform, j'entre mon mot de passe
à la fermeture de ce userform).
et là mon code se poursuit sans problème, avec ce qui suit :
NbOccurencesMaxi = 720
Dim Fournisseur() As String
ReDim Preserve Fournisseur(NbOccurencesMaxi)
Dim MontantFourniss() As Single
ReDim Preserve MontantFourniss(NbOccurencesMaxi)
Dim Echeance() As Date
ReDim Preserve Echeance(NbOccurencesMaxi)
Dim ModeRèglement() As String
ReDim Preserve ModeRèglement(NbOccurencesMaxi)
Worksheets("Essai2").Cells.ClearContents
t = 1
L = 2
For i = 1 To 12
Name = Worksheets(i + 1).Name
Worksheets(Name).Select
Fin = Range("D65535").End(xlUp).Row
etc ...
Est -il possible de faire poursuivre le code sans intervention de ma part
Merci par avance de votre aide
Michel MTO
Bonjour,
Ce que tu éprouves comme problématique correspond à la caractéristique
d'une fenêtre "modale" comme dans la commande
Userform1.show
Le statut de MODAL rend la réponse obligatoire à la fenêtre obligatoire
que le reste du code puisse s'exécuter. Tu remarqueras aussi que
modale est ouverte, tu ne peux pas sélectionner un autre objet ou appeler
commande du menu...une fenêtre modale EXIGE UNE RÉPONSE avant de
Un autre exemple de fenêtre MODAL :
Msgbox ...
ou
Application.InputBox....
Cependant, dans le cas d'un formulaire, on peut l'ouvrir dans une fenêtre
avec une commande suivante :
Userform1.Show 0 (commande disponible en standard à partir de la version
Dans ce cas, le formulaire s'affiche mais le reste des lignes de commandes
s'exécute normalement et immédiatement sans attendre la fermeture du
lorsque le formulaire est visible, on a toujours accès à la feuille de
--
MichD
--------------------------------------------
"Michel Mto" <comptabilite@olcoven.fr> a écrit dans le message de groupe
i2u4on$aed$1@speranza.aioe.org...
Bonjour à toutes et à tous,
Dans une procèdure, j'ouvre un fichier excel avec ceci :
Workbooks.Open Filename:= _
"C:chemindufichiernomdufichier.xls"
Sur ce classeur j'ai un userform qui s'affiche par défaut à l'ouverture,
sur lequel il y a différents bouton à cliquer.
Le problème est que dans la procèdure qui ouvre ce fichier, j'ai du code
suit et qui n'est pas excécuté.
La seule manière de poursuivre l'excécution du code c'est que je clique
la croix de fermeture de mon userform, j'entre mon mot de passe
à la fermeture de ce userform).
et là mon code se poursuit sans problème, avec ce qui suit :
NbOccurencesMaxi = 720
Dim Fournisseur() As String
ReDim Preserve Fournisseur(NbOccurencesMaxi)
Dim MontantFourniss() As Single
ReDim Preserve MontantFourniss(NbOccurencesMaxi)
Dim Echeance() As Date
ReDim Preserve Echeance(NbOccurencesMaxi)
Dim ModeRèglement() As String
ReDim Preserve ModeRèglement(NbOccurencesMaxi)
Worksheets("Essai2").Cells.ClearContents
t = 1
L = 2
For i = 1 To 12
Name = Worksheets(i + 1).Name
Worksheets(Name).Select
Fin = Range("D65535").End(xlUp).Row
etc ...
Est -il possible de faire poursuivre le code sans intervention de ma part
Merci par avance de votre aide
Michel MTO
Bonjour,
Ce que tu éprouves comme problématique correspond à la caractéristique
d'une fenêtre "modale" comme dans la commande
Userform1.show
Le statut de MODAL rend la réponse obligatoire à la fenêtre obligatoire
que le reste du code puisse s'exécuter. Tu remarqueras aussi que
modale est ouverte, tu ne peux pas sélectionner un autre objet ou appeler
commande du menu...une fenêtre modale EXIGE UNE RÉPONSE avant de
Un autre exemple de fenêtre MODAL :
Msgbox ...
ou
Application.InputBox....
Cependant, dans le cas d'un formulaire, on peut l'ouvrir dans une fenêtre
avec une commande suivante :
Userform1.Show 0 (commande disponible en standard à partir de la version
Dans ce cas, le formulaire s'affiche mais le reste des lignes de commandes
s'exécute normalement et immédiatement sans attendre la fermeture du
lorsque le formulaire est visible, on a toujours accès à la feuille de
--
MichD
--------------------------------------------
"Michel Mto" a écrit dans le message de groupe
i2u4on$aed$
Bonjour à toutes et à tous,
Dans une procèdure, j'ouvre un fichier excel avec ceci :
Workbooks.Open Filename:= _
"C:chemindufichiernomdufichier.xls"
Sur ce classeur j'ai un userform qui s'affiche par défaut à l'ouverture,
sur lequel il y a différents bouton à cliquer.
Le problème est que dans la procèdure qui ouvre ce fichier, j'ai du code
suit et qui n'est pas excécuté.
La seule manière de poursuivre l'excécution du code c'est que je clique
la croix de fermeture de mon userform, j'entre mon mot de passe
à la fermeture de ce userform).
et là mon code se poursuit sans problème, avec ce qui suit :
NbOccurencesMaxi = 720
Dim Fournisseur() As String
ReDim Preserve Fournisseur(NbOccurencesMaxi)
Dim MontantFourniss() As Single
ReDim Preserve MontantFourniss(NbOccurencesMaxi)
Dim Echeance() As Date
ReDim Preserve Echeance(NbOccurencesMaxi)
Dim ModeRèglement() As String
ReDim Preserve ModeRèglement(NbOccurencesMaxi)
Worksheets("Essai2").Cells.ClearContents
t = 1
L = 2
For i = 1 To 12
Name = Worksheets(i + 1).Name
Worksheets(Name).Select
Fin = Range("D65535").End(xlUp).Row
etc ...
Est -il possible de faire poursuivre le code sans intervention de ma part
Merci par avance de votre aide
Michel MTO
Bonjour,
Ce que tu éprouves comme problématique correspond à la caractéristique
d'une fenêtre "modale" comme dans la commande
Userform1.show
Le statut de MODAL rend la réponse obligatoire à la fenêtre obligatoire
que le reste du code puisse s'exécuter. Tu remarqueras aussi que
modale est ouverte, tu ne peux pas sélectionner un autre objet ou appeler
commande du menu...une fenêtre modale EXIGE UNE RÉPONSE avant de
Un autre exemple de fenêtre MODAL :
Msgbox ...
ou
Application.InputBox....
Cependant, dans le cas d'un formulaire, on peut l'ouvrir dans une fenêtre
avec une commande suivante :
Userform1.Show 0 (commande disponible en standard à partir de la version
Dans ce cas, le formulaire s'affiche mais le reste des lignes de commandes
s'exécute normalement et immédiatement sans attendre la fermeture du
lorsque le formulaire est visible, on a toujours accès à la feuille de
--
MichD
--------------------------------------------
"Michel Mto" a écrit dans le message de groupe
i2u4on$aed$
Bonjour à toutes et à tous,
Dans une procèdure, j'ouvre un fichier excel avec ceci :
Workbooks.Open Filename:= _
"C:chemindufichiernomdufichier.xls"
Sur ce classeur j'ai un userform qui s'affiche par défaut à l'ouverture,
sur lequel il y a différents bouton à cliquer.
Le problème est que dans la procèdure qui ouvre ce fichier, j'ai du code
suit et qui n'est pas excécuté.
La seule manière de poursuivre l'excécution du code c'est que je clique
la croix de fermeture de mon userform, j'entre mon mot de passe
à la fermeture de ce userform).
et là mon code se poursuit sans problème, avec ce qui suit :
NbOccurencesMaxi = 720
Dim Fournisseur() As String
ReDim Preserve Fournisseur(NbOccurencesMaxi)
Dim MontantFourniss() As Single
ReDim Preserve MontantFourniss(NbOccurencesMaxi)
Dim Echeance() As Date
ReDim Preserve Echeance(NbOccurencesMaxi)
Dim ModeRèglement() As String
ReDim Preserve ModeRèglement(NbOccurencesMaxi)
Worksheets("Essai2").Cells.ClearContents
t = 1
L = 2
For i = 1 To 12
Name = Worksheets(i + 1).Name
Worksheets(Name).Select
Fin = Range("D65535").End(xlUp).Row
etc ...
Est -il possible de faire poursuivre le code sans intervention de ma part
Merci par avance de votre aide
Michel MTO
Bonjour,
Ce que tu éprouves comme problématique correspond à la caractéristique
d'une fenêtre "modale" comme dans la commande
Userform1.show
Le statut de MODAL rend la réponse obligatoire à la fenêtre obligatoire
que le reste du code puisse s'exécuter. Tu remarqueras aussi que
modale est ouverte, tu ne peux pas sélectionner un autre objet ou appeler
commande du menu...une fenêtre modale EXIGE UNE RÉPONSE avant de
Un autre exemple de fenêtre MODAL :
Msgbox ...
ou
Application.InputBox....
Cependant, dans le cas d'un formulaire, on peut l'ouvrir dans une fenêtre
avec une commande suivante :
Userform1.Show 0 (commande disponible en standard à partir de la version
Dans ce cas, le formulaire s'affiche mais le reste des lignes de commandes
s'exécute normalement et immédiatement sans attendre la fermeture du
lorsque le formulaire est visible, on a toujours accès à la feuille de
--
MichD
--------------------------------------------
"Michel Mto" <comptabilite@olcoven.fr> a écrit dans le message de groupe
i2u4on$aed$1@speranza.aioe.org...
Bonjour à toutes et à tous,
Dans une procèdure, j'ouvre un fichier excel avec ceci :
Workbooks.Open Filename:= _
"C:chemindufichiernomdufichier.xls"
Sur ce classeur j'ai un userform qui s'affiche par défaut à l'ouverture,
sur lequel il y a différents bouton à cliquer.
Le problème est que dans la procèdure qui ouvre ce fichier, j'ai du code
suit et qui n'est pas excécuté.
La seule manière de poursuivre l'excécution du code c'est que je clique
la croix de fermeture de mon userform, j'entre mon mot de passe
à la fermeture de ce userform).
et là mon code se poursuit sans problème, avec ce qui suit :
NbOccurencesMaxi = 720
Dim Fournisseur() As String
ReDim Preserve Fournisseur(NbOccurencesMaxi)
Dim MontantFourniss() As Single
ReDim Preserve MontantFourniss(NbOccurencesMaxi)
Dim Echeance() As Date
ReDim Preserve Echeance(NbOccurencesMaxi)
Dim ModeRèglement() As String
ReDim Preserve ModeRèglement(NbOccurencesMaxi)
Worksheets("Essai2").Cells.ClearContents
t = 1
L = 2
For i = 1 To 12
Name = Worksheets(i + 1).Name
Worksheets(Name).Select
Fin = Range("D65535").End(xlUp).Row
etc ...
Est -il possible de faire poursuivre le code sans intervention de ma part
Merci par avance de votre aide
Michel MTO
Bonjour,
Ce que tu éprouves comme problématique correspond à la caractéristique
d'une fenêtre "modale" comme dans la commande
Userform1.show
Le statut de MODAL rend la réponse obligatoire à la fenêtre obligatoire
que le reste du code puisse s'exécuter. Tu remarqueras aussi que
modale est ouverte, tu ne peux pas sélectionner un autre objet ou appeler
commande du menu...une fenêtre modale EXIGE UNE RÉPONSE avant de
Un autre exemple de fenêtre MODAL :
Msgbox ...
ou
Application.InputBox....
Cependant, dans le cas d'un formulaire, on peut l'ouvrir dans une fenêtre
avec une commande suivante :
Userform1.Show 0 (commande disponible en standard à partir de la version
Dans ce cas, le formulaire s'affiche mais le reste des lignes de commandes
s'exécute normalement et immédiatement sans attendre la fermeture du
lorsque le formulaire est visible, on a toujours accès à la feuille de
--
MichD
--------------------------------------------
"Michel Mto" a écrit dans le message de groupe
i2u4on$aed$
Bonjour à toutes et à tous,
Dans une procèdure, j'ouvre un fichier excel avec ceci :
Workbooks.Open Filename:= _
"C:chemindufichiernomdufichier.xls"
Sur ce classeur j'ai un userform qui s'affiche par défaut à l'ouverture,
sur lequel il y a différents bouton à cliquer.
Le problème est que dans la procèdure qui ouvre ce fichier, j'ai du code
suit et qui n'est pas excécuté.
La seule manière de poursuivre l'excécution du code c'est que je clique
la croix de fermeture de mon userform, j'entre mon mot de passe
à la fermeture de ce userform).
et là mon code se poursuit sans problème, avec ce qui suit :
NbOccurencesMaxi = 720
Dim Fournisseur() As String
ReDim Preserve Fournisseur(NbOccurencesMaxi)
Dim MontantFourniss() As Single
ReDim Preserve MontantFourniss(NbOccurencesMaxi)
Dim Echeance() As Date
ReDim Preserve Echeance(NbOccurencesMaxi)
Dim ModeRèglement() As String
ReDim Preserve ModeRèglement(NbOccurencesMaxi)
Worksheets("Essai2").Cells.ClearContents
t = 1
L = 2
For i = 1 To 12
Name = Worksheets(i + 1).Name
Worksheets(Name).Select
Fin = Range("D65535").End(xlUp).Row
etc ...
Est -il possible de faire poursuivre le code sans intervention de ma part
Merci par avance de votre aide
Michel MTO