macro sur un page faisant reference a une autre page

[nono]

bonjour,
j ai une macro qui marche tres bien, c est la suivante :
Dim i&, a%
With ActiveSheet
For i = 1 To 46
Select Case .[L1].Offset(i).Value
Case Is <= 1: a = 3
Case 2 To 29: a = 30
Case 30 To 59: a = 5
Case 60 To 89: a = 53
Case Is >= 90: a = 2
End Select
With .Shapes(i).Fill
.ForeColor.SchemeColor = a
.Visible = (a <> 0)
End With
Next
End With

cependant si je la met sur la feuille 2 et que mes donnees sont sur la feuille 1 , qu ai je besoins de faire sur ma macro pour lui dire que "les regles " doivent se faire a partir le feuille 1 sur la feuille 2.

Merci

 

[job75]

Re : macro sur un page faisant reference a une autre page

Bonjour nono,

Feuil1 et Feuil2 étant les CodeNames des feuilles :

Dim i&, a%
For i = 1 To 46
  Select Case Feuil1.[L1].Offset(i)
    Case Is <= 1: a = 3
    Case 2 To 29: a = 30
    Case 30 To 59: a = 5
    Case 60 To 89: a = 53
    Case Is >= 90: a = 2
  End Select
  With Feuil2.Shapes(i).Fill
    .ForeColor.SchemeColor = a
    .Visible = a
  End With
Next

A+

 

[Dranreb]

Re : macro sur un page faisant reference a une autre page

Bonjour.
J'allais justement répondre ceci :
Mettez devant les points les noms des objets Worksheet représentant les feuilles Excel concernées autres que la feuille active.
Prenez les de la rubrique Microsoft Excel Objets: le nom de la feuille Excel représentée y est rappelé entre parenthèse à leur droite.
On les appelle aussi parfois leurs CodeName bien que ceci soit en réalité une propriété String en lecture seule qui reproduit ce nom.

 

[nono]

Re : macro sur un page faisant reference a une autre page

un grand merci les experts !

 

[nono]

Re : macro sur un page faisant reference a une autre page

j ai tout refait sur excel mais on me sourligne en jaune la ligne
- .ForeColor.SchemeColor = a
qu est ce que cela signifie ? merci

 

[Dranreb]

Re : macro sur un page faisant reference a une autre page

Joignez votre classeur. Comme ça on ne voit pas.

 

[nono]

Re : macro sur un page faisant reference a une autre page

voice ci joint mon classeur
merci de votre temps.

 

[job75]

Re : macro sur un page faisant reference a une autre page

Re,

Shapes(46) et Shapes(47) sont des "Straight Connectors" pour lesquels .ForeColor.SchemeColor ne fonctionne pas.

En écrivant With Sheet2.Shapes(i - 2).Fill il n'y aura plus de problème.

A+