Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

calendrier

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion clautu
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

clautu

XLDnaute Junior
Bonojur à tous,
J'utilise un calendrier que j'ai trouvé sur internet pour gèrer la sortie et le retour de matériel. J'ai donc demandé qu'il apparaisse un message d'erreur pour que la date de retour soit plus loin que la date de sortie. (tu ne peux pas emprunter le 4avril et me le rapporter le 2 avril) tout ca fonctionne bien. La seule chose c'est que mon message d'erreur ne s'affiche qu'une fois et moi je voudrais que tant que la deuxième date n'est pas plus tard que la premiere le message apparait.
Comment faire ???

'EXEMPLE
Sub calendrier()
Range("h15").Select
Dim UnJour As Date
UnJour = FormCal.calendrier
If UnJour <> 0 Then
Range("h15").Value = Format(UnJour, "dd mmmm yyyy")
Range("h16").Select
UnJour = FormCal.calendrier
If UnJour <> 0 Then
Range("h16").Value = Format(UnJour, "dd mmmm yyyy")
If Range("h16").Value < Range("h15").Value Then
Dim retour As Integer
retour = MsgBox("La date de retour doit être supérieure à la date de sortie", vbOKOnly + vbExclamation + vbDefaultButton, "118e Groupe Scouts de Pintendre")
Range("h16").Select
UnJour = FormCal.calendrier
If UnJour <> 0 Then
Range("h16").Value = Format(UnJour, "dd mmmm yyyy")

End If
End If
End If
End If

Merci !!!
 
Trier par date Trier par votes
Re : calendrier

Salut Clautu

Je pense qu'il te faut une boucle Do ... Loop While

Code: 
Sub calendrier()
Range("h15").Select
Dim UnJour As Date
UnJour = FormCal.calendrier
If UnJour <> 0 Then
  Range("h15").Value = Format(UnJour, "dd mmmm yyyy")
End If
 
Range("h16").Select
Do ' Effectuer la boucle en continue
  UnJour = FormCal.calendrier
  If UnJour <> 0 And Range("h16").Value < Range("h15").Value Then
     MsgBox "La date de retour doit être supérieure à la date de sortie", vbOKOnly + vbExclamation + vbDefaultButton, "118e Groupe Scouts de Pintendre"
  Else
    Range("h16").Value = Format(UnJour, "dd mmmm yyyy")
  End IF
  ' Sortir de la boucle si la date H16 est supérieure à H15
Loop while Range("h16")< Range("h15")
 
UnJour = FormCal.calendrier
If UnJour <> 0 Then
  Range("h16").Value = Format(UnJour, "dd mmmm yyyy")
End If

Pas tester, mais ça devrait être pas mal 😉
 
Vote positif 0 Vote négatif
Re : calendrier

Merci beaucoup,
C'est cela que je voulais à un détail pret.
La loop ne s'arrête pas quand je met une date plus élevé car la nouvelle date ne s'inscrit pas dans h16 donc la boucle lit toujours l'autre date et me dit qu'elle est plus petite.
 
Vote positif 0 Vote négatif
Re : calendrier

Salut Clautu,

Si tu veux que l'on puisse t'aider correctement, il faut que tu mettes ton fichier sur le forum (zippé si il est trop gros)

Parce que là, je ne comprends rien à ce qui t'arrive 😕
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
510
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
570
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
345
un internaute
U
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
248
nabilexcel2007
N
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
707
TooFatBoy
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
332
lestoiles1
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
256
Did25
D
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
653
thunder23
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
F
  • Résolu(e)
Microsoft 365 Evènement worksheet_change
Réponses
2
Affichages
235
Francky79
F
P
  • Question Question
Microsoft 365 Calendrier qui s'affiche quand je sélectionne une cellule
Réponses
4
Affichages
995
Piksaw
P
N
  • Question Question
Listbox click
Réponses
10
Affichages
533
ChTi160
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
434
Staple1600
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
964
tnion
T
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
671
Oneida
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
580
vgendron
A
  • Résolu(e)
Microsoft 365 VBA filtre erreur si pas la condition
Réponses
3
Affichages
293
Ang3lina
A
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
670
Gégé-45550
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…