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

Saisir une date à partir d'une boîte de message

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion eric26
  • 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
E

eric26

XLDnaute Nouveau
Bonjour,

Je travaille actuellement sur un fichier servant à établir des devis à partir de données se trouvant sur plusieurs feuilles et toutes les feuilles se basent sur la même période.

Le choix du 1er mois de la période est donc primordial : il ne faut donc pas oublier de le mettre.

QUESTION : existe t-il une formule ou autre qui permette à l'utilisateur de saisir, dès l'ouverture du fichier et à l'aide d'une boîte de dialogue, l'année d'une part et le mois d'autre part de la période de façon à ce que ces données apparaissent dans des cellules spécifiques (ex : feuill1 en D2 et C2).

Merci d'avance
 
Trier par date Trier par votes
Re : Saisir une date à partir d'une boîte de message

Bonjour et bienvenu sur le forum

Ci joint le fichier avec une macro.
La procédure open ouvre un Usf qui dans des listbox affiche les 12 mois de l'année et à partir de l'année en cours les dix prochaines années.
Tant que les données ne sont pas sélectionnées on ne peut fermer l'userform.

Si les dates existent à l'ouverture du fichier un message de bienvenue à modifier est affiché.

A tester

JP
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Saisir une date à partir d'une boîte de message

Salut jp14,

Merci pour ton aide, c'est justement ça que je cherchais à faire.

Seulement, 1 petite chose à modifier :

- je voudrais pouvoir rentrer des dates même lorsqu'il existe déjà une date dans le fichier

Merci beaucoup d'avance

PS : il faudra me dire aussi comment récupérer ton code et la procédure pour l'insérer dans mon fichier car je ne sais pas comment faire

merci
 
Vote positif 0 Vote négatif
Re : Saisir une date à partir d'une boîte de message

Bonjour

Pour récupérer les macros " Alt F11" pour rentrer dans l'éditeur de macros.
Pour autoriser la saisie d'une date il faut modifier le code ci dessous
Code: 
Private Sub UserForm_Initialize()
Dim trouve As Byte
Dim date1 As Date
Dim i As Integer

trouve = 0
nomfeuille1 = "Feuil1"
'feuill1 en D2 et C2

[COLOR="red"]' a supprimer
If Sheets(nomfeuille1).Range("D2") <> "" And Sheets(nomfeuille1).Range("c2") <> "" Then 'trouve = 1[/COLOR]

If trouve = 0 Then
    date1 = "1 / 1 / 2000"
    With ListBox1 ' ComboBox1
        .Clear
        .ColumnCount = 1
        For i = 0 To 11
            .AddItem Format((DateAdd("m", i, date1)), "mmmm")
        Next i
    End With


    date1 = Format(Now, "dd,mm,yyyy")
    With ListBox2 ' ComboBox1
        .Clear
        .ColumnCount = 1
        For i = 0 To 10
            .AddItem Format((DateAdd("yyyy", i, date1)), "yyyy")
        Next i
    End With

    
End If
If trouve = 1 Then
ListBox1.Visible = False
ListBox2.Visible = False
Label1.Visible = False
Label2.Visible = False
CommandButton2.Visible = True
CommandButton1.Visible = False
Label3.Visible = True
End If
End Sub

JP
 
Vote positif 0 Vote négatif
Re : Saisir une date à partir d'une boîte de message

Problème lorsque j'ai copié vers mon fichier (ma feuille1 est "Data") : il me met 1 erreur de compilation : variable non définie (en gras ci dessous


Code: 
End If
If trouve = 1 Then
ListBox1.Visible = False
ListBox2.Visible = False
[B]Label1.Visible = False[/B]
Label2.Visible = False
CommandButton2.Visible = True
CommandButton1.Visible = False
Label3.Visible = True
End If
End Sub

Ci dessous mon code :

Code: 
Dim nomData As String
Option Explicit

Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
If ListBox2.ListIndex = -1 Then Exit Sub

Sheets(nomData).Range("D2") = ListBox2.List(ListBox2.ListIndex)
Sheets(nomData).Range("c2") = ListBox1.List(ListBox1.ListIndex)


CommandButton2_Click
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub ListBox2_Click()

End Sub

Private Sub UserForm_Initialize()
Dim trouve As Byte
Dim date1 As Date
Dim i As Integer

trouve = 0
nomData = "Feuil1"
'feuill1 en D2 et C2

If trouve = 0 Then
    date1 = "1 / 1 / 2000"
    With ListBox1 ' ComboBox1
        .Clear
        .ColumnCount = 1
        For i = 0 To 11
            .AddItem Format((DateAdd("m", i, date1)), "mmmm")
        Next i
    End With


    date1 = Format(Now, "dd,mm,yyyy")
    With ListBox2 ' ComboBox1
        .Clear
        .ColumnCount = 1
        For i = 0 To 10
            .AddItem Format((DateAdd("yyyy", i, date1)), "yyyy")
        Next i
    End With

    
End If
If trouve = 1 Then
ListBox1.Visible = False
ListBox2.Visible = False
Label1.Visible = False
Label2.Visible = False
CommandButton2.Visible = True
CommandButton1.Visible = False
Label3.Visible = True
End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
 
Vote positif 0 Vote négatif
Re : Saisir une date à partir d'une boîte de message

Bonjour
A priori il manque dans l'usf un contrôle.
Le plus simple est quand on est dans l'éditeur vba après avoir ouvert ton fichier et le mien de faire dans la partie "project" un Glisser-déposer avec l'userform, et ensuite on modifie le code.

JP
 
Vote positif 0 Vote négatif
Re : Saisir une date à partir d'une boîte de message

Salut,

C'est bon ça marche. Un grand merci

Juste une question : pour compliquer un peu le truc !!!😕
Est-il possible d'avoir les mois sous le format suivant jj/mm/aaaa avec aaaa = l'année choisie dans la 2ème colonne

Merci
 
Vote positif 0 Vote négatif
Re : Saisir une date à partir d'une boîte de message

Bonsoir

eric26 à dit:
Salut,

C'est bon ça marche. Un grand merci

Juste une question : pour compliquer un peu le truc !!!😕
Est-il possible d'avoir les mois sous le format suivant jj/mm/aaaa avec aaaa = l'année choisie dans la 2ème colonne

Merci
Cliquez pour agrandir...

Aucune difficulté pour la programmation par contre pour la lecture l'utilisateur devra choisir
une valeur parmi 365 avec jj/mm/aaaa.

JP
 
Vote positif 0 Vote négatif
Re : Saisir une date à partir d'une boîte de message

Bonjour,

Aucune difficulté pour la programmation par contre pour la lecture l'utilisateur devra choisir
une valeur parmi 365 avec jj/mm/aaaa.
Cliquez pour agrandir...

Et si on choisit les 1er de chaque mois de façon à n'avoir que 12 mois ?

C'est encore possible ?

Merci
 
Vote positif 0 Vote négatif
Re : Saisir une date à partir d'une boîte de message

Bonjour

Ci joint le fichier avec la procédure modifiée.
Affichage du premier jour du mois sous la forme jj/mmmm/aaaaa
Inscription du mois dans la cellule.

A tester

JP
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Saisir une date à partir d'une boîte de message

Merci jp

dernière question et je m'arreterais là car je pense que je t'es assez saoulé sur cette question :

Comment doit-on modifier ce code là ?
Code: 
.AddItem Format((DateAdd("m", i, date1)), "dd/mmmm/yyyy")
pour afficher le mois tel qu'il apparaît dans la listbox à savoir comme ça ?
Code: 
dd/mmmm/yyyy

Merci d'avance
 
Vote positif 0 Vote négatif
Re : Saisir une date à partir d'une boîte de message

Salut,

Ben en fait, avec ta dernière solution, le résultat affichait le mois sous le format : "janvier" lorsque l'on choisissait 01/01/2008 dans la liste.

En fait je voudrais qu'il affiche tout simplement la date sous le même format, à savoir : 01/01/2008 (tel qu'il apparaît dans la liste).

Car j'ai besoin de ce format là pour travailler dessus à partir d'autres formules.

Merci
 
Vote positif 0 Vote négatif
Re : Saisir une date à partir d'une boîte de message

Salut,

ça y est j'ai trouvé : avec cette formule
Code: 
=DATE(E2;RECHERCHEV(D$2;$D$4:$E$15;2;FAUX);1)

et le tableau ci dessous : je sors le mois sous la forme voulue.
janvier 1
février 2
mars 3
avril 4
mai 5
juin 6
juillet 7
août 8
septembre 9
octobre 10
novembre 11
décembre 12

Encore mille merci à toi jp

A +

eric26
 
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

  • Résolu(e)
XL 2021 Liste de validation de données à partir d'une table
Réponses
3
Affichages
241
Zdz16
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
262
PHIL37
P
N
  • Question Question
Microsoft 365 Affichage information de plusieurs cellules à partir d'une seule
Réponses
8
Affichages
311
narkoleptik
N
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
898
arnomorize
A
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
624
Dégé59
D
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
628
steph_29120
S
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
254
Lu76Fer
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
715
dysorthographie
S
  • Résolu(e)
Microsoft 365 Création d'une formule de recherche avec critère
Réponses
6
Affichages
540
Sunny36
S
S
  • Résolu(e)
Microsoft 365 - Conseils pour la structuration d'une base de données -
2 3
Réponses
44
Affichages
3 K
crocrocro
C
P
  • Question Question
XL 2019 Bloquer la saisie dans une colonne sous condition
Réponses
1
Affichages
562
sylvanu
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
D
  • Question Question
Microsoft 365 combiner deux plages de données sur deux feuilles excel différentes pour un TCD
Réponses
4
Affichages
527
Daniel200666
D
  • Résolu(e)
Microsoft 365 Choix d'une feuille de classeur spécifique où enregistrer des données à partir d'une combobox
Réponses
7
Affichages
781
Olive de BI
F
  • Question Question
XL 2019 Remplissage de champs dans doc Word à partir d'excel
Réponses
4
Affichages
1 K
Staple1600
N
  • Question Question
XL 2010 Mise à jour automatique d'une feuille via une autre feuille d'un même classeur
Réponses
0
Affichages
572
NoOne38
N
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'une liste
Réponses
2
Affichages
526
jcpamart
N
  • Résolu(e)
XL 2016 Faire une jointure à partir de plusieurs critères
Réponses
5
Affichages
748
Nasseuz
N
H
  • Résolu(e)
Microsoft 365 Remplir un tableau récap à partir d'une base de données, avec 2 critères
Réponses
7
Affichages
1 K
dysorthographie
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…