Discussion :

[Trainer]

Bonjour, je rencontre une difficulté dans Vba excel 2007. ça apparait tjrs erreur 1004 quand je veux exécuter le code suivant. J'ai besoin de votre aide. Merci

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
Sub Evaluation()
    Dim dMoy As Double
    Dim dMax As Double
    Dim Notes As Name
    Dim Cellule As Range
    Set Notes = ThisWorkbook.Names("Notes")
    Notes.RefersToRange.Select
    Selection.ClearComments
    dMoy = Evaluate("Average(notes)")
    dMax = Evaluate("Max(notes)")
    For Each Cellule In Selection
        With Cellule
            Select Case .Value
                Case Is = dMax
                    .AddComment "Le Meilleur"
                Case Is < dMoy
                    .AddComment "Inférieur à la moyenne"
                Case Else
                    .AddComment "Supérieur ou égale à la moyenne"
            End Select
        End With
    Next Cellule
 
End Sub

[gFZT82]

Bonjour,

As-tu vérifié que tu as bien une plage de cellules qui porte le nom "Notes" ?

Cordialement.

[Trainer]

Wi voici la plage de cellules que jai

Nom	Prénom		Notes
Koffi 	Donatien	14,00
Brou 	Clément		18,00
Delors	Franck		 7,00
Trend	Jack		 9,00
Blaisot	Henri		11,50

[gFZT82]

Si tu cliques sur Formules / Gestionnaire de noms, est-ce que tu vois le nom Notes ?

Cordialement.

[Trainer]

Non je ne vois aucun nom d'ailleurs

[gFZT82]

Hé Ben, essaie de créer ce nom.
Formules / Gestionnaire de noms / Nouveau
puis Notes dans la case Nom
puis Fait référence à =Feuil1!$C$2:$C$6 (si tes notes sont dans cette plage).
Après, tu peux tester ton programme.

Cordialement.