Discussion :

[Fr33dom]

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 :

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

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

[jfontaine]

Bonjour,

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


Bon courage

[Fr33dom]

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 ?

[jfontaine]

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

[Fr33dom]

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

[Fvandermeulen]

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 :

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

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