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

[jfontaine]

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 :

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
 
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 :

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

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

[Fr33dom]

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 :

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

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

[Fr33dom]

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

sinon sa fonctionne bien merci a vous