les macros

[nono]

bonjour,
j ai quelques petits soucis avec les macros
je pense en avoir cree une bien mais elle ne fonctionne pas.
quelqu un peut il me dire l erreure ?

Le but de cette macro est de metre des couleurs a des ovales suivant le resultat de cellules.
regarde :

Sub Macro()
If [L:L] <= 1 Then
ActivateSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 4
ActivateSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActivateSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L:L] >= 3 <=17 Then
ActivateSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 41
ActivateSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActivateSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L:L] >= 25 <= 50 Then
ActivateSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 27
ActivateSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActivateSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L:L] >= 51 <= 80 Then
ActivateSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 46
ActivateSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActivateSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L:L] >= 81 Then
ActivateSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 3
ActivateSheet.Shapes("Oval1").Fille.Visible = msoTrue
End If
End Sub

Merci a celui ou celles qui me repondra.

Arnaud.

 

[phlaurent55]

Re : les macros

Bonjour nono et bienvenue sur le forum

If [L:L] <= 1 Then <---------- je doute que cela puisse fonctionner car tu testes la colonne entière

If [L:L] >= 3 <=17 Then <--------- ceci n'est pas correct

If [L1]>=3 And [L1]<=17 Then serait plus approprié dans le cas où tu testes la valeur de la cellule L1

à+
Philippe

 

[nono]

Re : les macros

Merci,
je vais essayer de voir tout ca...

 

[nono]

Re : les macros

J ai pourtant bien tout corrige mais rien a faire, je n arrive toujours pas a la faire marcher ...

Sub Color_oval()
If [L2] <= 1 Then
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActiveSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L2] >= 3 And [L2] <= 17 Then
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 41
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActiveSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L2] >= 25 And [L2] <= 50 Then
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 27
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActiveSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L2] >= 51 And [L2] <= 80 Then
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 46
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Else
ActiveSheet.Shapes("Oval1").Fill.Visible = msoFalse
End If
If [L2] >= 81 Then
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 3
ActiveSheet.Shapes("Oval1").Fille.Visible = msoTrue
End If
End Sub

 

[phlaurent55]

Re : les macros

Re,

Sans voir le fichier pour pouvoir tester, ce sera difficile d'apporter une réponse adaptée

à+
Philippe

Edit: Je suis absent jusqu'à ce soir

 

[chris]

Re : les macros

Bonjour
Salut l'artiste

Il y a un problème d'imbrication : ton premier else va agir avant de tester la suite.

Utilise plutôt SELECT CASE...

 

[nono]

Re : les macros

arnaud_10@hotmail.fr

aie aie rien a faire, je n y arrive vraiment pas meme avec vos corrections...

 

[nono]

Re : les macros

De plus je ne peux vous envoyer le fichier car il est trop gros pour le site ;/

 

[chris]

Re : les macros

Re

Je n'arrive pas à la faire marcher est vague : message d'erreur ? Autre ?

Sub Color_oval()

ActiveSheet.Shapes("Oval1").Fill.Visible = msoFalse
Select Case Range("L2")
     Case Is <= 1
        ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 4
        ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
    Case 3 To 17
        ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 41
        ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
    Case 25 To 50
        ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 27
        ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
    Case 51 To 80
        ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 46
        ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
    Case Is >= 81
        ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 3
        ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
    End Select
End Sub

si j'ai bien compris

 

[nono]

Re : les macros

Alors un fois que je met "run" donc une fois que je le lance je recois directement le message suivant ;
- Run time error `-2147024809, The item with specified name wasn t found..
Donc je ne comprend pas trop ce qui cloche

Merci pour votre aide et votre temps.

 

[phlaurent55]

Re : les macros

Re,

s'il s'agit de créer un indicateur visuel .......... (couleur en fonction de la valeur d'une cellule) il est plus facile de le faire avec une MFC

voir fichier joint

à+
Philippe

 

[nono]

Re : les macros

Cela parait plutot cool meme si je ne comprend pas tres bien comment vous arrivez a faire ca.
cependant les couleurs doivent s appliquer a des figures qui sont des ovals que j ai moi meme creer sur une image.
De ce fait jamais je ne pourrais appliquer la couleur a mes ovales... :/

 

[nono]

Re : les macros

MFC mise enn forme conditionnelle .... mes excuses, cepandant je l ai deja fait pour certaines cellules ce qui est super mais cela ne marche pas pour des figures.

 

[phlaurent55]

Re : les macros

Re,

........................ mais cela ne marche pas pour des figures

je sais que les MFC ne fonctionnent pas avec des "figures", mais ayant compris qu'il s'agissait de mettre des indicateurs visuels et sans voir le fichier, j'ai proposé une autre solution

à+
Philippe

 

[nono]

Re : les macros

peut etre pouvais vous me donner une adresse mail que je vous envoie le fichier que vous puissiez regarder si cela n est pas trop demande ?