Salut, je repose ma question car ce qu'on m'a dis ne=20
fonctionne pas.
'************************************
Salut Emcy,
Essai avec ceci, pas test=E9 car trop de labels et puis un=20
peu f=E9n=E9ant :
Private Declare Function LockWindowUpdate Lib "user32" _
(ByVal HwndLock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal=20
lpWindowName _
As String) As Long
Sub MAJCalendrierAnn=E9e(Optional a As Boolean)
Dim Bisextile As Boolean
Dim TableauJour() As Variant
Dim PremierJour As Byte
Dim i As Integer
Dim j As Integer
'fige la mise =E0 jour (normalement ;o))
LockWindowUpdate FindWindow(vbNullString, Me.Caption)
PremierJour =3D PremierJour + 1
If PremierJour =3D 8 Then PremierJour =3D 1
Next j
Application.ScreenUpdating =3D True
End Sub
=3D> en gros cette macro remet les valeur de mes Labels =E0
jour.
Ce que je ne comprend pas, c'est que les labels
disparaissent puis r=E9apparaissent (pas tous en m=EAme
temps) pendant que la macro est lanc=E9e =3D> peut-on =E9citer
ce Ph=E9nom=E8ne ?
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
Michel Pierron
Bonjour Emcy; Les labels, ils n'ont pas de nom ? Ce ne serait pas plutôt quelque chose du genre: CalendrierAnnée.Controls("Label" & i).Caption = TableauJour(PremierJour - 1) MP
"Emcy" a écrit dans le message de news:01e301c3a2ab$ff0e4b20$ Salut, je repose ma question car ce qu'on m'a dis ne fonctionne pas.
'************************************
Salut Emcy, Essai avec ceci, pas testé car trop de labels et puis un peu fénéant :
Private Declare Function LockWindowUpdate Lib "user32" _ (ByVal HwndLock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _ As String) As Long
Sub MAJCalendrierAnnée(Optional a As Boolean)
Dim Bisextile As Boolean Dim TableauJour() As Variant Dim PremierJour As Byte Dim i As Integer Dim j As Integer 'fige la mise à jour (normalement ;o)) LockWindowUpdate FindWindow(vbNullString, Me.Caption)
PremierJour = PremierJour + 1 If PremierJour = 8 Then PremierJour = 1
Next j
Application.ScreenUpdating = True
End Sub
=> en gros cette macro remet les valeur de mes Labels à jour.
Ce que je ne comprend pas, c'est que les labels disparaissent puis réapparaissent (pas tous en même temps) pendant que la macro est lancée => peut-on éciter ce Phénomène ?
Bonjour Emcy;
Les labels, ils n'ont pas de nom ?
Ce ne serait pas plutôt quelque chose du genre:
CalendrierAnnée.Controls("Label" & i).Caption = TableauJour(PremierJour - 1)
MP
"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:01e301c3a2ab$ff0e4b20$a001280a@phx.gbl...
Salut, je repose ma question car ce qu'on m'a dis ne
fonctionne pas.
'************************************
Salut Emcy,
Essai avec ceci, pas testé car trop de labels et puis un
peu fénéant :
Private Declare Function LockWindowUpdate Lib "user32" _
(ByVal HwndLock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal
lpWindowName _
As String) As Long
Sub MAJCalendrierAnnée(Optional a As Boolean)
Dim Bisextile As Boolean
Dim TableauJour() As Variant
Dim PremierJour As Byte
Dim i As Integer
Dim j As Integer
'fige la mise à jour (normalement ;o))
LockWindowUpdate FindWindow(vbNullString, Me.Caption)
PremierJour = PremierJour + 1
If PremierJour = 8 Then PremierJour = 1
Next j
Application.ScreenUpdating = True
End Sub
=> en gros cette macro remet les valeur de mes Labels à
jour.
Ce que je ne comprend pas, c'est que les labels
disparaissent puis réapparaissent (pas tous en même
temps) pendant que la macro est lancée => peut-on éciter
ce Phénomène ?
Bonjour Emcy; Les labels, ils n'ont pas de nom ? Ce ne serait pas plutôt quelque chose du genre: CalendrierAnnée.Controls("Label" & i).Caption = TableauJour(PremierJour - 1) MP
"Emcy" a écrit dans le message de news:01e301c3a2ab$ff0e4b20$ Salut, je repose ma question car ce qu'on m'a dis ne fonctionne pas.
'************************************
Salut Emcy, Essai avec ceci, pas testé car trop de labels et puis un peu fénéant :
Private Declare Function LockWindowUpdate Lib "user32" _ (ByVal HwndLock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _ As String) As Long
Sub MAJCalendrierAnnée(Optional a As Boolean)
Dim Bisextile As Boolean Dim TableauJour() As Variant Dim PremierJour As Byte Dim i As Integer Dim j As Integer 'fige la mise à jour (normalement ;o)) LockWindowUpdate FindWindow(vbNullString, Me.Caption)
PremierJour = PremierJour + 1 If PremierJour = 8 Then PremierJour = 1
Next j
Application.ScreenUpdating = True
End Sub
=> en gros cette macro remet les valeur de mes Labels à jour.
Ce que je ne comprend pas, c'est que les labels disparaissent puis réapparaissent (pas tous en même temps) pendant que la macro est lancée => peut-on éciter ce Phénomène ?
Emcy
Salut,
Je crois que tu n'as pas bien compris le problème : j'arrive bien à les mettres à jours mais j'ai un problème d'affichage. je sais pas pourquoi lorsque je lance la macro, le rafraichissement d'écran se fait n'importe comment : les labels disparaissent puis réaparraissent (pas en même temps). Si tu veux je peux t'envoyer le classeur pour que tu comprennes mieux
-----Message d'origine----- Bonjour Emcy; Les labels, ils n'ont pas de nom ? Ce ne serait pas plutôt quelque chose du genre: CalendrierAnnée.Controls("Label" & i).Caption = TableauJour(PremierJour - 1)
MP
"Emcy" a écrit dans le message de
news:01e301c3a2ab$ff0e4b20$ Salut, je repose ma question car ce qu'on m'a dis ne fonctionne pas.
'************************************
Salut Emcy, Essai avec ceci, pas testé car trop de labels et puis un peu fénéant :
Private Declare Function LockWindowUpdate Lib "user32" _ (ByVal HwndLock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _ As String) As Long
Sub MAJCalendrierAnnée(Optional a As Boolean)
Dim Bisextile As Boolean Dim TableauJour() As Variant Dim PremierJour As Byte Dim i As Integer Dim j As Integer 'fige la mise à jour (normalement ;o)) LockWindowUpdate FindWindow(vbNullString, Me.Caption)
PremierJour = PremierJour + 1 If PremierJour = 8 Then PremierJour = 1
Next j
Application.ScreenUpdating = True
End Sub
=> en gros cette macro remet les valeur de mes Labels à jour.
Ce que je ne comprend pas, c'est que les labels disparaissent puis réapparaissent (pas tous en même temps) pendant que la macro est lancée => peut-on éciter ce Phénomène ?
.
Salut,
Je crois que tu n'as pas bien compris le problème :
j'arrive bien à les mettres à jours mais j'ai un problème
d'affichage. je sais pas pourquoi lorsque je lance la
macro, le rafraichissement d'écran se fait n'importe
comment : les labels disparaissent puis réaparraissent
(pas en même temps). Si tu veux je peux t'envoyer le
classeur pour que tu comprennes mieux
-----Message d'origine-----
Bonjour Emcy;
Les labels, ils n'ont pas de nom ?
Ce ne serait pas plutôt quelque chose du genre:
CalendrierAnnée.Controls("Label" & i).Caption =
TableauJour(PremierJour - 1)
MP
"Emcy" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:01e301c3a2ab$ff0e4b20$a001280a@phx.gbl...
Salut, je repose ma question car ce qu'on m'a dis ne
fonctionne pas.
'************************************
Salut Emcy,
Essai avec ceci, pas testé car trop de labels et puis un
peu fénéant :
Private Declare Function LockWindowUpdate Lib "user32" _
(ByVal HwndLock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal
lpWindowName _
As String) As Long
Sub MAJCalendrierAnnée(Optional a As Boolean)
Dim Bisextile As Boolean
Dim TableauJour() As Variant
Dim PremierJour As Byte
Dim i As Integer
Dim j As Integer
'fige la mise à jour (normalement ;o))
LockWindowUpdate FindWindow(vbNullString, Me.Caption)
PremierJour = PremierJour + 1
If PremierJour = 8 Then PremierJour = 1
Next j
Application.ScreenUpdating = True
End Sub
=> en gros cette macro remet les valeur de mes Labels à
jour.
Ce que je ne comprend pas, c'est que les labels
disparaissent puis réapparaissent (pas tous en même
temps) pendant que la macro est lancée => peut-on éciter
ce Phénomène ?
Je crois que tu n'as pas bien compris le problème : j'arrive bien à les mettres à jours mais j'ai un problème d'affichage. je sais pas pourquoi lorsque je lance la macro, le rafraichissement d'écran se fait n'importe comment : les labels disparaissent puis réaparraissent (pas en même temps). Si tu veux je peux t'envoyer le classeur pour que tu comprennes mieux
-----Message d'origine----- Bonjour Emcy; Les labels, ils n'ont pas de nom ? Ce ne serait pas plutôt quelque chose du genre: CalendrierAnnée.Controls("Label" & i).Caption = TableauJour(PremierJour - 1)
MP
"Emcy" a écrit dans le message de
news:01e301c3a2ab$ff0e4b20$ Salut, je repose ma question car ce qu'on m'a dis ne fonctionne pas.
'************************************
Salut Emcy, Essai avec ceci, pas testé car trop de labels et puis un peu fénéant :
Private Declare Function LockWindowUpdate Lib "user32" _ (ByVal HwndLock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _ As String) As Long
Sub MAJCalendrierAnnée(Optional a As Boolean)
Dim Bisextile As Boolean Dim TableauJour() As Variant Dim PremierJour As Byte Dim i As Integer Dim j As Integer 'fige la mise à jour (normalement ;o)) LockWindowUpdate FindWindow(vbNullString, Me.Caption)
PremierJour = PremierJour + 1 If PremierJour = 8 Then PremierJour = 1
Next j
Application.ScreenUpdating = True
End Sub
=> en gros cette macro remet les valeur de mes Labels à jour.
Ce que je ne comprend pas, c'est que les labels disparaissent puis réapparaissent (pas tous en même temps) pendant que la macro est lancée => peut-on éciter ce Phénomène ?
.
Michel Pierron
Oui; fais peter in my box; MP "Emcy" a écrit dans le message de news:091d01c3a2b1$d8fcc0a0$ Salut,
Je crois que tu n'as pas bien compris le problème : j'arrive bien à les mettres à jours mais j'ai un problème d'affichage. je sais pas pourquoi lorsque je lance la macro, le rafraichissement d'écran se fait n'importe comment : les labels disparaissent puis réaparraissent (pas en même temps). Si tu veux je peux t'envoyer le classeur pour que tu comprennes mieux
-----Message d'origine----- Bonjour Emcy; Les labels, ils n'ont pas de nom ? Ce ne serait pas plutôt quelque chose du genre: CalendrierAnnée.Controls("Label" & i).Caption TableauJour(PremierJour - 1) MP
"Emcy" a écrit dans le message de
news:01e301c3a2ab$ff0e4b20$ Salut, je repose ma question car ce qu'on m'a dis ne fonctionne pas.
'************************************
Salut Emcy, Essai avec ceci, pas testé car trop de labels et puis un peu fénéant :
Private Declare Function LockWindowUpdate Lib "user32" _ (ByVal HwndLock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _ As String) As Long
Sub MAJCalendrierAnnée(Optional a As Boolean)
Dim Bisextile As Boolean Dim TableauJour() As Variant Dim PremierJour As Byte Dim i As Integer Dim j As Integer 'fige la mise à jour (normalement ;o)) LockWindowUpdate FindWindow(vbNullString, Me.Caption)
PremierJour = PremierJour + 1 If PremierJour = 8 Then PremierJour = 1
Next j
Application.ScreenUpdating = True
End Sub
=> en gros cette macro remet les valeur de mes Labels à jour.
Ce que je ne comprend pas, c'est que les labels disparaissent puis réapparaissent (pas tous en même temps) pendant que la macro est lancée => peut-on éciter ce Phénomène ?
.
Oui; fais peter in my box;
MP
"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:091d01c3a2b1$d8fcc0a0$a501280a@phx.gbl...
Salut,
Je crois que tu n'as pas bien compris le problème :
j'arrive bien à les mettres à jours mais j'ai un problème
d'affichage. je sais pas pourquoi lorsque je lance la
macro, le rafraichissement d'écran se fait n'importe
comment : les labels disparaissent puis réaparraissent
(pas en même temps). Si tu veux je peux t'envoyer le
classeur pour que tu comprennes mieux
-----Message d'origine-----
Bonjour Emcy;
Les labels, ils n'ont pas de nom ?
Ce ne serait pas plutôt quelque chose du genre:
CalendrierAnnée.Controls("Label" & i).Caption TableauJour(PremierJour - 1)
MP
"Emcy" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:01e301c3a2ab$ff0e4b20$a001280a@phx.gbl...
Salut, je repose ma question car ce qu'on m'a dis ne
fonctionne pas.
'************************************
Salut Emcy,
Essai avec ceci, pas testé car trop de labels et puis un
peu fénéant :
Private Declare Function LockWindowUpdate Lib "user32" _
(ByVal HwndLock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal
lpWindowName _
As String) As Long
Sub MAJCalendrierAnnée(Optional a As Boolean)
Dim Bisextile As Boolean
Dim TableauJour() As Variant
Dim PremierJour As Byte
Dim i As Integer
Dim j As Integer
'fige la mise à jour (normalement ;o))
LockWindowUpdate FindWindow(vbNullString, Me.Caption)
PremierJour = PremierJour + 1
If PremierJour = 8 Then PremierJour = 1
Next j
Application.ScreenUpdating = True
End Sub
=> en gros cette macro remet les valeur de mes Labels à
jour.
Ce que je ne comprend pas, c'est que les labels
disparaissent puis réapparaissent (pas tous en même
temps) pendant que la macro est lancée => peut-on éciter
ce Phénomène ?
Oui; fais peter in my box; MP "Emcy" a écrit dans le message de news:091d01c3a2b1$d8fcc0a0$ Salut,
Je crois que tu n'as pas bien compris le problème : j'arrive bien à les mettres à jours mais j'ai un problème d'affichage. je sais pas pourquoi lorsque je lance la macro, le rafraichissement d'écran se fait n'importe comment : les labels disparaissent puis réaparraissent (pas en même temps). Si tu veux je peux t'envoyer le classeur pour que tu comprennes mieux
-----Message d'origine----- Bonjour Emcy; Les labels, ils n'ont pas de nom ? Ce ne serait pas plutôt quelque chose du genre: CalendrierAnnée.Controls("Label" & i).Caption TableauJour(PremierJour - 1) MP
"Emcy" a écrit dans le message de
news:01e301c3a2ab$ff0e4b20$ Salut, je repose ma question car ce qu'on m'a dis ne fonctionne pas.
'************************************
Salut Emcy, Essai avec ceci, pas testé car trop de labels et puis un peu fénéant :
Private Declare Function LockWindowUpdate Lib "user32" _ (ByVal HwndLock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName _ As String) As Long
Sub MAJCalendrierAnnée(Optional a As Boolean)
Dim Bisextile As Boolean Dim TableauJour() As Variant Dim PremierJour As Byte Dim i As Integer Dim j As Integer 'fige la mise à jour (normalement ;o)) LockWindowUpdate FindWindow(vbNullString, Me.Caption)
PremierJour = PremierJour + 1 If PremierJour = 8 Then PremierJour = 1
Next j
Application.ScreenUpdating = True
End Sub
=> en gros cette macro remet les valeur de mes Labels à jour.
Ce que je ne comprend pas, c'est que les labels disparaissent puis réapparaissent (pas tous en même temps) pendant que la macro est lancée => peut-on éciter ce Phénomène ?
