Discussion :

[dado91400]

à tous,

Je rempli un fichier excel, avec un "USERFORM calendrier" disponible dans les contrôles supplémentaire de VBA "contrôle calendrier 11.0" comme ci-dessous.
Je vais avoir à l'aide de mon UserForm1, la colonne H de mon EXCEL avec des dates formées de la maniere suivantes "mm/d/YY".

Décomposons le PBLM, avec comme exemple dans ma colonne H, la date d'aujourd'hui le : 19/07/2007.
Immaginons que j'ai 3 lignes comprenant dans ma colonne H la date : 19/07/2007.
Je veux créer en paralèlle en colonne J, une "référence" constitué comme suit : NbDeLigneDuMemeMoisLeMoisLANNEE (avec seulement les 2 dernier caraceteres de l'année)

avec l'exemple ci-dessus, ça sera plus claire.
Je devrais donc avoir comme référence :

colonne H ----------- colonne J
(date) ------------- (référence)
19/07/2007 ----------- 010707
19/07/2007 ---------- 020707
19/07/2007 ---------- 030707
20/08/2007 ---------- 010807
30/10/2007 ---------- 011007
....
....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 
Private Sub Calendar1_Click()
Dim Une_Semaine
Dim Deux_Semaines
 
Une_Semaine = 7
Deux_Semaines = 14
 
TextBox1 = Calendar1.Value + Une_Semaine 'date choisie +7jours
TextBox2 = Calendar1.Value + Deux_Semaines 'date choisie +14jours
 
End Sub
 
Private Sub CommandButton1_Click() 'validation de date choisie + 7jours
 
Unload UserForm1
ActiveCell.Offset(0, 1).Value = TextBox1
ActiveCell.Offset(0, 1).Value = Format(TextBox1.Value, "mm/d/YY")
ActiveCell.Value = Format(Calendar1.Value, "mm/d/YY")
 
End Sub
 
Private Sub CommandButton3_Click() 'validation de date choisie + 14jours
 
Unload UserForm1
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 1).Value = Format(TextBox2.Value, "mm/d/YY")
ActiveCell.Value = Format(Calendar1.Value, "mm/d/YY")
 
End Sub
 
Private Sub UserForm_Initialize()
 
Calendar1.Value = Date 'permet d'avoir la date actualisée sur le calendrier
 
End Sub

un petit module avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub Bouton1_QuandClic()
UserForm1.Show
End Sub

si vus avez des idées je suis preneur.

merci à toutes et à tous pour vos lumières.

A+

[Maxence HUBICHE]

moi, j'ai une p'tite solution avec des formules de calcul !

Si, dans H, tu as tes dates, et en J tu veux tes codes, tu peux d'abord créer une colonne en K qui reprend le format YYYYMM de H

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=TEXTE(H2;"aaaamm")

Ensuite, en J tu peux facilement faire ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=TEXTE(NB.SI($K$2:K2;TEXTE(H2;"aaaamm"));"00")&TEXTE(H2;"mmaa")

Il ne te reste qu'à recopier, ou à implémenter cette solution directement dans le code VBA !

[dado91400]

ba jsui bouche bé en faite...

kan on a la tête dans le guidon, on oublie d'essayer de faire simple...

merci de m'avoir ouvert les yeux, pourkoi faire compliquer quand on peu faire simple.

merci A+