J'ai un problème pour afficher la liste des onglets d'un fichier qui a un
contrôle calendrier Voici mon code :
Private Sub Calendar1_BeforeUpdate(Cancel As Integer)
Dim Alerte, Message, Bouton, Titre As String
Dim CalendarDate, début, fin As Variant
CalendarDate = Calendar1.Value
Message = "DATE HORS EXERCICE"
Bouton = "VbOkonly"
début = Range("premier_jour_exo").Value
fin = Range("dernier_jour_exo").Value
Titre = "Erreur"
If CalendarDate > fin Then
Alerte = MsgBox(Message, 0 + 48 + 0, Titre)
Cancel = True
Else
End If
If CalendarDate < début Then
Alerte = MsgBox(Message, 0 + 48 + 0, Titre)
Cancel = True
Else
End If
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
Daniel
Bonjour. Je ne suis sans doute pas bien réveillé, mais je ne vois pas le rapport entre la liste des onglets et le code que tu as posté. Cordialement. Daniel "camerboy" a écrit dans le message de news:
Bonjour à tous et meilleurs voux,
J'ai un problème pour afficher la liste des onglets d'un fichier qui a un contrôle calendrier Voici mon code :
Private Sub Calendar1_BeforeUpdate(Cancel As Integer) Dim Alerte, Message, Bouton, Titre As String Dim CalendarDate, début, fin As Variant
CalendarDate = Calendar1.Value Message = "DATE HORS EXERCICE" Bouton = "VbOkonly" début = Range("premier_jour_exo").Value fin = Range("dernier_jour_exo").Value Titre = "Erreur" If CalendarDate > fin Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If If CalendarDate < début Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If
End Sub
Merci de m'aider à trouver l'erreur
Bien à vous
Bonjour.
Je ne suis sans doute pas bien réveillé, mais je ne vois pas le rapport
entre la liste des onglets et le code que tu as posté.
Cordialement.
Daniel
"camerboy" <npl@iccnet2000.com> a écrit dans le message de news:
ea24oYiNHHA.536@TK2MSFTNGP02.phx.gbl...
Bonjour à tous et meilleurs voux,
J'ai un problème pour afficher la liste des onglets d'un fichier qui a un
contrôle calendrier Voici mon code :
Private Sub Calendar1_BeforeUpdate(Cancel As Integer)
Dim Alerte, Message, Bouton, Titre As String
Dim CalendarDate, début, fin As Variant
CalendarDate = Calendar1.Value
Message = "DATE HORS EXERCICE"
Bouton = "VbOkonly"
début = Range("premier_jour_exo").Value
fin = Range("dernier_jour_exo").Value
Titre = "Erreur"
If CalendarDate > fin Then
Alerte = MsgBox(Message, 0 + 48 + 0, Titre)
Cancel = True
Else
End If
If CalendarDate < début Then
Alerte = MsgBox(Message, 0 + 48 + 0, Titre)
Cancel = True
Else
End If
Bonjour. Je ne suis sans doute pas bien réveillé, mais je ne vois pas le rapport entre la liste des onglets et le code que tu as posté. Cordialement. Daniel "camerboy" a écrit dans le message de news:
Bonjour à tous et meilleurs voux,
J'ai un problème pour afficher la liste des onglets d'un fichier qui a un contrôle calendrier Voici mon code :
Private Sub Calendar1_BeforeUpdate(Cancel As Integer) Dim Alerte, Message, Bouton, Titre As String Dim CalendarDate, début, fin As Variant
CalendarDate = Calendar1.Value Message = "DATE HORS EXERCICE" Bouton = "VbOkonly" début = Range("premier_jour_exo").Value fin = Range("dernier_jour_exo").Value Titre = "Erreur" If CalendarDate > fin Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If If CalendarDate < début Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If
End Sub
Merci de m'aider à trouver l'erreur
Bien à vous
camerboy
peut être pas de rapport mais qu'est ce qui pourrait causer l'erreur de compilation ? voici le code des onglets dans thisworbook:
Dim temp() For i = 1 To Sheets.Count ReDim Preserve temp(1 To i) temp(i) = Sheets(i).Name Next i n = UBound(temp) Call Tri(temp, 1, n) Sheets("ListeOngletsFeuille").ChoixOnglet.List = temp '
'ouverture sur la feuille menu Sheets("ListeOngletsFeuille").Activate ActiveWindow.DisplayGridlines = False Range("B1").Select End Sub
"Daniel" a écrit dans le message de news:
Bonjour. Je ne suis sans doute pas bien réveillé, mais je ne vois pas le rapport entre la liste des onglets et le code que tu as posté. Cordialement. Daniel "camerboy" a écrit dans le message de news:
Bonjour à tous et meilleurs voux,
J'ai un problème pour afficher la liste des onglets d'un fichier qui a un contrôle calendrier Voici mon code :
Private Sub Calendar1_BeforeUpdate(Cancel As Integer) Dim Alerte, Message, Bouton, Titre As String Dim CalendarDate, début, fin As Variant
CalendarDate = Calendar1.Value Message = "DATE HORS EXERCICE" Bouton = "VbOkonly" début = Range("premier_jour_exo").Value fin = Range("dernier_jour_exo").Value Titre = "Erreur" If CalendarDate > fin Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If If CalendarDate < début Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If
End Sub
Merci de m'aider à trouver l'erreur
Bien à vous
peut être pas de rapport mais qu'est ce qui pourrait causer l'erreur de
compilation ? voici le code des onglets dans thisworbook:
Dim temp()
For i = 1 To Sheets.Count
ReDim Preserve temp(1 To i)
temp(i) = Sheets(i).Name
Next i
n = UBound(temp)
Call Tri(temp, 1, n)
Sheets("ListeOngletsFeuille").ChoixOnglet.List = temp
'
'ouverture sur la feuille menu
Sheets("ListeOngletsFeuille").Activate
ActiveWindow.DisplayGridlines = False
Range("B1").Select
End Sub
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uMuzMhiNHHA.5000@TK2MSFTNGP03.phx.gbl...
Bonjour.
Je ne suis sans doute pas bien réveillé, mais je ne vois pas le rapport
entre la liste des onglets et le code que tu as posté.
Cordialement.
Daniel
"camerboy" <npl@iccnet2000.com> a écrit dans le message de news:
ea24oYiNHHA.536@TK2MSFTNGP02.phx.gbl...
Bonjour à tous et meilleurs voux,
J'ai un problème pour afficher la liste des onglets d'un fichier qui a un
contrôle calendrier Voici mon code :
Private Sub Calendar1_BeforeUpdate(Cancel As Integer)
Dim Alerte, Message, Bouton, Titre As String
Dim CalendarDate, début, fin As Variant
CalendarDate = Calendar1.Value
Message = "DATE HORS EXERCICE"
Bouton = "VbOkonly"
début = Range("premier_jour_exo").Value
fin = Range("dernier_jour_exo").Value
Titre = "Erreur"
If CalendarDate > fin Then
Alerte = MsgBox(Message, 0 + 48 + 0, Titre)
Cancel = True
Else
End If
If CalendarDate < début Then
Alerte = MsgBox(Message, 0 + 48 + 0, Titre)
Cancel = True
Else
End If
peut être pas de rapport mais qu'est ce qui pourrait causer l'erreur de compilation ? voici le code des onglets dans thisworbook:
Dim temp() For i = 1 To Sheets.Count ReDim Preserve temp(1 To i) temp(i) = Sheets(i).Name Next i n = UBound(temp) Call Tri(temp, 1, n) Sheets("ListeOngletsFeuille").ChoixOnglet.List = temp '
'ouverture sur la feuille menu Sheets("ListeOngletsFeuille").Activate ActiveWindow.DisplayGridlines = False Range("B1").Select End Sub
"Daniel" a écrit dans le message de news:
Bonjour. Je ne suis sans doute pas bien réveillé, mais je ne vois pas le rapport entre la liste des onglets et le code que tu as posté. Cordialement. Daniel "camerboy" a écrit dans le message de news:
Bonjour à tous et meilleurs voux,
J'ai un problème pour afficher la liste des onglets d'un fichier qui a un contrôle calendrier Voici mon code :
Private Sub Calendar1_BeforeUpdate(Cancel As Integer) Dim Alerte, Message, Bouton, Titre As String Dim CalendarDate, début, fin As Variant
CalendarDate = Calendar1.Value Message = "DATE HORS EXERCICE" Bouton = "VbOkonly" début = Range("premier_jour_exo").Value fin = Range("dernier_jour_exo").Value Titre = "Erreur" If CalendarDate > fin Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If If CalendarDate < début Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If
End Sub
Merci de m'aider à trouver l'erreur
Bien à vous
Daniel
J'ai testé ta macro sans souci (en supposant que "ChoixOnglet" soit une zone de liste). La seule ligne non testée est Call Tri... Cordialement. Daniel "camerboy" a écrit dans le message de news: %
peut être pas de rapport mais qu'est ce qui pourrait causer l'erreur de compilation ? voici le code des onglets dans thisworbook:
Dim temp() For i = 1 To Sheets.Count ReDim Preserve temp(1 To i) temp(i) = Sheets(i).Name Next i n = UBound(temp) Call Tri(temp, 1, n) Sheets("ListeOngletsFeuille").ChoixOnglet.List = temp '
'ouverture sur la feuille menu Sheets("ListeOngletsFeuille").Activate ActiveWindow.DisplayGridlines = False Range("B1").Select End Sub
"Daniel" a écrit dans le message de news:
Bonjour. Je ne suis sans doute pas bien réveillé, mais je ne vois pas le rapport entre la liste des onglets et le code que tu as posté. Cordialement. Daniel "camerboy" a écrit dans le message de news:
Bonjour à tous et meilleurs voux,
J'ai un problème pour afficher la liste des onglets d'un fichier qui a un contrôle calendrier Voici mon code :
Private Sub Calendar1_BeforeUpdate(Cancel As Integer) Dim Alerte, Message, Bouton, Titre As String Dim CalendarDate, début, fin As Variant
CalendarDate = Calendar1.Value Message = "DATE HORS EXERCICE" Bouton = "VbOkonly" début = Range("premier_jour_exo").Value fin = Range("dernier_jour_exo").Value Titre = "Erreur" If CalendarDate > fin Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If If CalendarDate < début Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If
End Sub
Merci de m'aider à trouver l'erreur
Bien à vous
J'ai testé ta macro sans souci (en supposant que "ChoixOnglet" soit une zone
de liste). La seule ligne non testée est Call Tri...
Cordialement.
Daniel
"camerboy" <npl@iccnet2000.com> a écrit dans le message de news:
%23aQ32YjNHHA.2028@TK2MSFTNGP03.phx.gbl...
peut être pas de rapport mais qu'est ce qui pourrait causer l'erreur de
compilation ? voici le code des onglets dans thisworbook:
Dim temp()
For i = 1 To Sheets.Count
ReDim Preserve temp(1 To i)
temp(i) = Sheets(i).Name
Next i
n = UBound(temp)
Call Tri(temp, 1, n)
Sheets("ListeOngletsFeuille").ChoixOnglet.List = temp
'
'ouverture sur la feuille menu
Sheets("ListeOngletsFeuille").Activate
ActiveWindow.DisplayGridlines = False
Range("B1").Select
End Sub
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uMuzMhiNHHA.5000@TK2MSFTNGP03.phx.gbl...
Bonjour.
Je ne suis sans doute pas bien réveillé, mais je ne vois pas le rapport
entre la liste des onglets et le code que tu as posté.
Cordialement.
Daniel
"camerboy" <npl@iccnet2000.com> a écrit dans le message de news:
ea24oYiNHHA.536@TK2MSFTNGP02.phx.gbl...
Bonjour à tous et meilleurs voux,
J'ai un problème pour afficher la liste des onglets d'un fichier qui a
un contrôle calendrier Voici mon code :
Private Sub Calendar1_BeforeUpdate(Cancel As Integer)
Dim Alerte, Message, Bouton, Titre As String
Dim CalendarDate, début, fin As Variant
CalendarDate = Calendar1.Value
Message = "DATE HORS EXERCICE"
Bouton = "VbOkonly"
début = Range("premier_jour_exo").Value
fin = Range("dernier_jour_exo").Value
Titre = "Erreur"
If CalendarDate > fin Then
Alerte = MsgBox(Message, 0 + 48 + 0, Titre)
Cancel = True
Else
End If
If CalendarDate < début Then
Alerte = MsgBox(Message, 0 + 48 + 0, Titre)
Cancel = True
Else
End If
J'ai testé ta macro sans souci (en supposant que "ChoixOnglet" soit une zone de liste). La seule ligne non testée est Call Tri... Cordialement. Daniel "camerboy" a écrit dans le message de news: %
peut être pas de rapport mais qu'est ce qui pourrait causer l'erreur de compilation ? voici le code des onglets dans thisworbook:
Dim temp() For i = 1 To Sheets.Count ReDim Preserve temp(1 To i) temp(i) = Sheets(i).Name Next i n = UBound(temp) Call Tri(temp, 1, n) Sheets("ListeOngletsFeuille").ChoixOnglet.List = temp '
'ouverture sur la feuille menu Sheets("ListeOngletsFeuille").Activate ActiveWindow.DisplayGridlines = False Range("B1").Select End Sub
"Daniel" a écrit dans le message de news:
Bonjour. Je ne suis sans doute pas bien réveillé, mais je ne vois pas le rapport entre la liste des onglets et le code que tu as posté. Cordialement. Daniel "camerboy" a écrit dans le message de news:
Bonjour à tous et meilleurs voux,
J'ai un problème pour afficher la liste des onglets d'un fichier qui a un contrôle calendrier Voici mon code :
Private Sub Calendar1_BeforeUpdate(Cancel As Integer) Dim Alerte, Message, Bouton, Titre As String Dim CalendarDate, début, fin As Variant
CalendarDate = Calendar1.Value Message = "DATE HORS EXERCICE" Bouton = "VbOkonly" début = Range("premier_jour_exo").Value fin = Range("dernier_jour_exo").Value Titre = "Erreur" If CalendarDate > fin Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If If CalendarDate < début Then Alerte = MsgBox(Message, 0 + 48 + 0, Titre) Cancel = True Else End If
