Discussion :

[tuytuy]

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

[gFZT82]

Bonjour,

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

Cordialement.

[Marc-L]

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

[tuytuy]

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 :

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

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

[gFZT82]

Tu peux essayer comme cela

Code :

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

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.

[tuytuy]

fonctione parfaitment merci beaucoup !