Calendrier dans Excel

Bonjour,

Je voudrais que les numeros de semaines s'affichent dans une colonne a partir des dates qui y figurent dans une autre colonne,

Est ce que quelqu'un a une idee?

Je m'explique, si j'ai 06/09/2010 en celulle H691, je voudrais qu'en N691, le numero de la semaine soit indique

Est ce faisable?

Et par la meme occasion, est ce que c'est possible de mettre la date du jour en cliquant sur la cellule et avoir une liste deroulante avec les dates et qu'on puisse choisir la date du jour?

En esperant vous lire!

Bonjour

Citation:

---

si j'ai 06/09/2010 en celulle H691, je voudrais qu'en N691, le numero de la semaine soit indique

---

tu es sur de vouloir utiliser du code car tu peux le faire en utilisant cette fonction directement dans une cellule excel, pour la cellule N691 comme tu la cite

Code:

---

=si(H691<>"";ENT(MOD(ENT((H691-2)/7)+0,6;52+5/28))+1;"")

---

Le probleme c'est que j'ai toute la colonne H a traiter, donc je dois me taper la formule cellule par cellule... et quand je rentre la formule, j'ai un message d'erreur

par code et à adapter

Code:

---

1 2 3

For i = 1 To 1000 If IsDate(Range("M" & i)) Then Range("n" & i) = DatePart("ww", Range("M" & i)) Next i

---

sélectionne DatePart et fais F1 pour voir les paramètres à mettre.

j'ai essaye ce code mais ca ne marche pas, quand j'appuie sur F1, j'ai que le help de office qui se lance!

peut etre que j'ai pas fais ce qu'il fallait faire..

j'ai colle ce code sur le worksheet, mais meme resultat et en tant que module, j'ai le meme resultat, c'est a dire rien

bonjour

il y a de la doc ici Les Fonctions Date/Heure

de plus

Code:

---

1 2 3 4 5 6

With Worksheets("TaFeuille") 'modifie le nom de la feuille For i = 1 To .Cells(Rows.Count, "H").End(xlUp).Row If IsDate(.Range("H" & i)) Then .Range("N" & i) = DatePart("ww", .Range("H" & i)) Next End With

---

j'ai essaye ce code dans un module, mais j'ai un message erreur

Compile error: Invalid outside procedure

re

as tu rajouté les balises ?

Code:

---

1 2 3 4 5

Sub DateSem()   'ici le code   End Sub

---

La ca marche mais j'ai un autre soucis c'est que mes formats de dates sont MM/JJ/AA et la le code prends en compte le format JJ/MM/AA, comment on peut modifier pour que le format MM/JJ/AA soit pris en comptes?

Le format d'affichage de la date n'affecte pas la valeur de cette date.

Pourtant j'ai comme date 06/01/2010 qui correspond a 1er juin 2010 et la macro me met la semaine 2 en pensant que c'est 6 janvier 2010

et par hasard si tu n'es pas certain du format des cellules de ta colonne.
teste ceci

Code:

---

1 2 3 4 5 6 7

Dim i As Long With Sheets("Feuil1") .Columns(8).NumberFormat = "mm/dd/yy" For i = 1 To .Cells(Rows.Count, "H").End(xlUp).Row If IsDate(.Range("H" & i)) Then .Range("N" & i) = DatePart("ww", .Range("H" & i)) Next i End With

---

Merci Zyhack et Mercatoq ca marche nikel!

Sauf que je suis oblige de lancer la macro a la main pour que les changements se fassent, est ce possible que la macro se lance a l'ouverture du fichier?

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) Call DateSem End Sub

---

j'ai mis ce code dans workbook mais ca n'a pas l'air de marcher des masses!

L'utilité?

Code:

---

1 2 3

Private Sub Workbook_Open() DateSem End Sub

---

C'est bon ca marche a l'ouverture, j'ai mis ce code

Code:

---

1 2 3

Private Sub Workbook_Open() Call DateSem End Sub

---

Pour ce point, c'est ok,
je voudrais egalement savoir si mon deuxieme point est aussi faisable?

Lors de l'activation d'une colonne (A1, A2 etcc.. ) est ce que c'est possible de faire afficher un calendrier pour qu'on puisse choisir la date du jour?

C'est pour eviter que les gens ecrivent la date dans la format qu'ils veulent...
il faut qu'ils utilisent systematiquement le format MM/JJ/AA

Tu insère dans ta feuille un contrôle calendrier, nommé Calendar1 (Autres contrôles)
tu mets ces codes dans le module de ta feuille

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Option Explicit   Private Sub Worksheet_Activate() ActiveSheet.Calendar1.Visible = False End Sub   Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Or Target.Column > 1 Then ActiveSheet.Calendar1.Visible = False Exit Sub Else With ActiveSheet.Calendar1 .Top = 13.5 * (Target.Row - 1) '13.5 si hauteur des lignes 14 .Left = Columns(1).Width .Visible = True End With End If End Sub   Private Sub Calendar1_Click() ActiveCell = ActiveSheet.Calendar1.Value ActiveCell.NumberFormat = "mm/dd/yy" ActiveSheet.Calendar1.Visible = False End Sub

---

j'ai cree un userform avec un calendrier nommer calendar1 et j'ai colle ton code sous un module mais ca ne marche pas! a moins que j'ai pas bien saisi ce que tu voulais que je fasse!

Bonjour

c'est normal que le code ne fonctionne pas

mercatog te dis de mettre le contrôle calendrier sur la feuille et toi tu le met dans un userform

de mettre le code dans le module de ta feuille et tu le met dans un module

pour son exemple c'est directement sur la feuille de calcul excel qu'il faut mettre le contrôle calendrier (exemple sur Feuil1)

une fois en place, pour etre sûr tu double clic le contrôle et il va ouvrir le bon module pour inserer le code de mercatog.

courage.

précision

pour mettre un contrôle calendar sur la feuille tu clique sur l'icone "boîte à outils contrôles" puis sur l'icone "autres contrôles" , dans la liste tu selectionne " CALENDAR CONTROL" puis tu clic sur la feuille.

Dans tools>additionnal controls c'est grise

pourtant j'ai arrete toutes mes macros...