Connaitre le mois avec le numéro de semaine

bonjour a toutes et tous,

je cherche a créer une macro qui pour "déduire" le mois de l'année en fonction du numéro de semaine.
j'ai une partie de code que voici :

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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

'Dans ThisWorkbook Private Sub Workbook_Open() Macro1 End Sub   'Dans module1 Sub Macro1()   Select Case Range("P3").Value Case Is >= 1, Is <= 5 Range("P1").Text = "Janvier"   Case Is >= 6, Is <= 9 Range("P1").Text = "Février"   Case Is >= 10, Is <= 13 Range("P1").Text = "Mars"   Case Is >= 14, Is <= 18 Range("P1").Text = "Avril"   Case Is >= 19, Is <= 22 Range("P1").Text = "Mai"   Case Is >= 23, Is <= 26 Range("P1").Text = "Juin"   Case Is >= 27, Is <= 32 Range("P1").Text = "Juillet"   Case Is >= 32, Is <= 35 Range("P1").Text = "Aout"   Case Is >= 36, Is <= 39 Range("P1").Text = "Septembre"   Case Is >= 40, Is <= 44 Range("P1").Text = "Octobre"   Case Is >= 45, Is <= 48 Range("P1").Text = "Novembre"   Case Is >= 49, Is <= 53 Range("P1").Text = "Décembre"   Case Else Range("P1").Text = "Erreur" End Select   End Sub

---

assez basic me direz vous, c'est le seul moyen que j'ai trouvé.
mais lors de la compilation il me dis que j'ai une erreur. débutant dans les macro excel, je me demande si je m'y prend bien, et si je tape ma macro bien la ou elle dois etre.
pourriez vous m'aider a comprendre comment réaliser ce que je voudrais.

je voudrais, si possible, que ce soit une routine qui s'exécute pour toute les feuilles de mon classeur

merci par avance

Bonjour,

Remplace les range("P3").Text par Range("P3").Value


Bon courage

merci, il ne me génère plus d'erreur

mais ai je placé mon code dans les bonnes sections pour qu'il s'exécute sur toutes mes feuilles ?

Ton code s'executera uniquement dans la feuille active

Il faut faire une boucle sur toutes les feuilles du classeur pour faire ce que tu souhaites

a d'accord, et est il possible de l'exécuter sur modification d'une valeur d'une cellule sur la feuille active ?
si oui, peut tu m'aiguiller stp

merci

Salut,
Je me permets, jfontaine a l'air déconnecté...
Pour cela tui dois mettre ton code dans un module de feuille
(Click droit sur l'onglet, ensuite voir code)
Pour l'exemple, si la cellule P3 est modifiée, je te laisse ajouter le code voulu.

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Address = "$P$3" Then 'ton code End If   End Sub

---

Pour compléter la reponse de Fvandermeulen et afin d'eviter d'ecrire le code sur chaque feuille

Tu creais une procedure qui recevra comme variable a feuille

A mettre dans Workbook

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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

Sub Macro1(ByRef Feuil As Worksheet)   Select Case Feuil.Range("P3").Value Case Is <= 5   Feuil.Range("P1").Value = "Janvier"   Case 6 To 9   Feuil.Range("P1").Value = "Février"   Case 10 To 13 Feuil.Range("P1").Value = "Mars"   Case 14 To 18 Feuil.Range("P1").Value = "Avril"   Case 19 To 22 Feuil.Range("P1").Value = "Mai"   Case 23 To 26 Feuil.Range("P1").Value = "Juin"   Case 27 To 32 Feuil.Range("P1").Value = "Juillet"   Case 33 To 35 Feuil.Range("P1").Value = "Aout"   Case 36 To 39 Feuil.Range("P1").Value = "Septembre"   Case 40 To 44 Range("P1").Value = "Octobre"   Case 45 To 48 Feuil.Range("P1").Value = "Novembre"   Case 49 To 53 Feuil.Range("P1").Value = "Décembre"   Case Else Feuil.Range("P1").Value = "Erreur" End Select   End Sub

---

A mettre dans chaque onglet

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$P$3" Then Macro1 Me End If   End Sub

---

bonjour,

lorsque j'ajoute le code dans l'onglet avec mon case dans le thisWorkbook, j'ai un message lors de la compilation qui me dis :

"Erreur de compilation : sub ou fonction non définie"

et en le mettant dans un Module1, rien ne se passe.


Autre test
j'ai essayé une fonction simple :

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range)   MsgBox "Vous venez de modifier la cellule " & Target.Address & _ " (" & Target.Value & ")"   End Sub

---

mais mm cela rien ne se passe

le msgBox fonctionne, le problème venait du fait que les macro n'étaient pas active.

sinon sa fonctionne bien merci a vous