Discussion :

[skrobar]

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!

[zyhack]

Bonjour

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 :

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

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

[skrobar]

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

[mercatog]

par code et à adapter

Code :

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

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.

[skrobar]

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

[zyhack]

bonjour

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

de plus

Code :

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

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