Affichage de date

[abc]

Bonsoir,
Je désire sélectionner des dates via le calandar puis les afficher en C2,D2,E2,
F2 par exemple et ainsi de suite suivant le nombres de date sélectionnées.
Cela est il possible .
Merci d'avance
A +

 

[JHA]

Re : Affichage de date

Bonsoir abc, le forum,

clic droit sur onglet Jour puis visualiser le code et tu modifies
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
par
If Not Application.Intersect(Target, Range("C2,D2,E2,F2")) Is Nothing Then

JHA

 

[claude65]

Re : Affichage de date

Bonsoir abc

Ci joint un petit fichier Excel qui devrait pouvoir te dépanner à condition de faire quelques modifs pour l'appliquer aux cellules où tu souhaite renseigner les dates.

Supprime l'userform de la calculette et la macro correspondante.

J' ai pas mal galéré ( je connais peu excel et pas du tout le vba) mais si je puis t'être utile n'hésite pas à me solliciter.
Mais tu trouveras peut être ta solution dans le forum.

A bientôt

claude65
claude.cabe985@orange.fr

 

[abc]

Re : Affichage de date

Bonsoir,
merci de vos réponses mais cela ne corresspond pas a ce que je cherche.
JHA,
Je sélectionne sur le calandar 5 dates par exemple
puis en validant les dates s'inscrivent en B2,C2,D2,E3,F2 et ainsi de suite suivant le nombres de dates sélectionnées.
claude,
le fichier ne fonctionne pas ,peut être un problème de vervion.
Je suis sur excel 2003.
Merci d'avoir répondu.
A +

 

[pascal21]

Re : Affichage de date

bonsoir
je ne suis pas sur que l'on puisse sélectionner plusieurs dates à la fois
mais tu peux essayer un code qui permet d'écrire dans la 1ere cellule vide de ta colonne a

Range("A1:a65000").End(xlDown).Offset(1, 0).Select

et là tu auras tes dates les une à la suite des autres
edit: autant pour moi je n'ai pas vu que tu les voulais sur la même ligne

 

[abc]

Re : Affichage de date

Bonsoir,
Cela est il possibe ?
n'ayant pas eu de solution, je relance la question.
Est - il possible de sélectionner des dates via un calandar et de les afficher les une a la suite des autres ?
Ex : je sélectionne sur le calandar le 8,9,12,15 et il me les affiche en B2,C2,D2,E2.
Le nombre de jour est variable.
A+

 

[Cousinhub]

Re : Affichage de date

Bonsoir,
un petit essai
Regarde le fichier joint

le code :

Dans un module standard :

Public i
Public a()
Sub calend()
UserForm1.Show
End Sub

puis dans le module de l'usf :

Private Sub Calendar1_Click()
i = i + 1
ReDim Preserve a(i)
a(i) = Me.Calendar1.Value
End Sub

Private Sub CommandButton1_Click()
Range("E2:Z2").ClearContents
For x = 1 To UBound(a)
Range("D2").Offset(0, x).Value = a(x)
Next x
i = 0
Erase a()
End Sub

 

[abc]

Re : Affichage de date

Bonsoir,
C'est exactement ce que je cherchais,un grand merci à bhbh.
Pourrais je avoir la traduction en français du code où des explications ?
Je n'ai pas tout compris où traduit.
Si je pouvais abuser, mais peut être impossible, griser les dates sélectionnées sur le calandar afin d'avoir un controle des dates sélectionnées.
Mais c'est tres bien ainsi et encore merci
A +