loop formule sur tout cell dans une column

Call date	Call time
28-Jan-13	16:58:53
29-Jan-13	16:47:21
02-Jan-13	21:31:21
03-Jan-13	21:36:03
10-Jan-13	20:12:04
11-Jan-13	16:56:01
15-Jan-13	08:15:34
10-Jan-13	20:13:37
19-Jan-13	14:05:57

Bonjours,
je suis nouveau sur vba et j'aimerais écrire un code qui prendrais la valeure de call date et appliquerais le formule (((Date/7)-INT)*7)-1 et que le résultats soit afficher dans la column C.
Merci d'avance
Rémi ;)

Bonjour,

Ce serait bien si tu expliquais ce qu'elle est censée faire cette formule.

Cordialement.

Et pourquoi en VBA alors que cela peut se faire directement dans une cellule ?

la formule calcule le jours de la semaine que la date représente et l'indique en numéro donc par exemple si la date est le 09/03/2013 le résulat seras 2 pour un mardi.
Et j'utilise vba car c'est une petite partie d'un beaucoup plus long code en vba.

En gors il faudrait que j'arrive a looper ceci

Code:

---

1 2 3 4

cell = Range("A2").Select numb = (((cell / 7) - Int(cell)) * 7) - 1 Range("c2").Value = numb

---

sur tout la colonne a et indiqué le résultat en C

Tu peux essayer comme cela

Code:

---

1 2 3 4 5 6 7 8 9

Sub Test() Dim Plage As Range, Cell As Range With Worksheets("Feuil1") Set Plage = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row) For Each Cell In Plage Cell.Offset(0, 2) = (((Cell Mod 7) + 5) Mod 7) + 1 Next Cell End With End Sub

---

Cordialement.

fonctione parfaitment merci beaucoup !