[XL-2007] Commentaire date correspondant au N° de la semaine [Résolu]

[apdf1]

Bonjour,

je souhaiterais avoir en commentaire, la date qui correspond au N° de la semaine .
ex: en "D6" j'ai N°23, j'aimerais au passage du curseur avoir dans un commentaire indiquant la date de la 23 éme semaine soit : mardi 7 juin 2011.
Ainsi de suite .....

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement

Max

[jfontaine]

Bonjour,

Le code ci dessous devrait te mettre sur la piste

la colonne A contient des numéro de semaine

Code :

1
2
3
4
5
6
7
8
On Error Resume Next
 
Dim i As Byte
 
For i = 1 To 56
    Range("A" & i).Comment.Delete
    Range("A" & i).AddComment CStr(DateAdd("ww", Range("A" & i).Value, "01/01/2011"))
Next i

[Daniel.C]

Bonjour,

Mercatog a répondu à ton précédent post sur la question. Est-ce l'insertion dans le commentaire qui te pose problème ?

[apdf1]

Bonjour Jérôme, Daniel,

je vous remercie de votre réponse pour Daniel oui c'est exact que mercatoq ma répondu et je le remercie encore mais oui c'est le commentaire qui me pose probléme?

Si tu as une idée je suis preneur

Merci d'avance et bonne journée

@+
Max

[jfontaine]

Si tu as une idée je suis preneur

Regardes mon précédent post et si tu as un problème exposes le précisément

[Daniel.C]

Essaie :

Code :

1
2
3
4
5
6
7
8
9
Sub test1()
    Dim Texte As String
    If Range("A1").Comment Is Nothing Then
        [A1].AddComment CStr(Tuesd(2012, CInt(Mid([D6], 3, 2))))
    Else
        Texte = [A1].Comment.Text & " " & CStr(Tuesd(2012, CInt(Mid([D6], 3, 2))))
        [A1].Comment.Text Texte
    End If
End Sub

avec la fonction de mercatog :

Code :

1
2
3
4
5
6
7
Function Tuesd(ByVal An As Integer, ByVal Sem As Byte) As Date
Dim FirstTues As Date
 
FirstTues = DateSerial(An, 1, 1)
FirstTues = DateAdd("d", 1 - DatePart("w", FirstTues, vbTuesday), FirstTues)
Tuesd = DateAdd("ww", Sem, FirstTues)
End Function

[apdf1]

Bonjour Daniel

Je te remercie mais je n'arrive pas à le faire fonctionner ?

@+

Max

[Daniel.C]

Il faut exécuter la macro "Test1" pour avoir la date dans le commenaire de la cellule A1. Détaille ton besoin s'il est différent.

[apdf1]

Bonjour Daniel

Volia j'ai dans la cellule "I13" le N° de la semaine dans "A1" j'ai ceci:

Code :

=Tuesd(2011;I13)

et dans un module classic j'ai ceci:

Code :

1
2
3
4
5
6
7
8
Function Tuesd(ByVal An As Integer, ByVal Sem As Byte) As Date
Dim FirstTues As Date
 
FirstTues = DateSerial(An, 1, 1)
FirstTues = DateAdd("d", -DatePart("w", FirstTues, vbFriday), FirstTues)
 
Tuesd = DateAdd("ww", Sem, FirstTues)
End Function

dans la feuille vba ceci:

Code :

1
2
3
4
5
6
7
8
9
Sub test1()
    Dim Texte As String
    If Range("A1").Comment Is Nothing Then
        [A1].AddComment CStr(Tuesd(2011, CInt(Mid([I13], 3, 2))))
    Else
        Texte = [A1].Comment.Text & " " & CStr(Tuesd(2011, CInt(Mid([I13], 3, 2))))
        [A1].Comment.Text Texte
    End If
End Sub

J'ai exécuter la macro "Test1" et aucun commentaire

A ton avis ou est l'erreur et j'ai activer

@+
Max

[Daniel.C]

Où veux-tu le commentaire ? dans une seule cellule ? en exécutant une macro manuellement ? ou automatiquement (double-clic dans une cellule par exemple) ?

[apdf1]

Re,

Dans une cellule A1 par exemple....!

@+

Max

[Daniel.C]

en exécutant une macro manuellement ? ou automatiquement (double-clic dans une cellule par exemple) ?

Merci de bien vouloir répondre aux questions.

[apdf1]

Re,

Excuse moi.

en exécutant une macro manuellement

@+

[Daniel.C]

ex: en "D6" j'ai N°23

J'ai supposé que tu avais "N°" devant le numéro de semaine. Si tu as seulement le numéro, remplace Test1 par :

Code :

1
2
3
4
5
6
7
8
9
10
Sub test1()
    Dim Texte As String
    If Range("A1").Comment Is Nothing Then
        Set Var = Range("I13")
        [A1].AddComment CStr(Tuesd(2011, Range("I13").Value))
    Else
        Texte = [A1].Comment.Text & " " & CStr(Tuesd(2011, Range("I13").Value))
        [A1].Comment.Text Texte
    End If
End Sub

[apdf1]

Re,

Je te remercie et te souhaite une bonne soirée

Cordialement

Max