Correction macro

bonjour,

etant pas si bon que ca j ai essaye de creer une macro qui biensure ne fonctionne pas c est pourquoi j aurais besoin de l aide d une ame charitable afin de me la corriger.

cette macro a pour but de me comparer deux colonnes (D et L) en mettant la couleur rouge si il y a difference entre les deux sur des shapes (figure sur un schema)

voici ma macro :

Sub ()

Dim i& , a%

Dim sh As Shape

with Activesheet

For ech Sh Sheet3.Shapes

If left (Sh.name, 8) = "Rounded rectangle"

i = i + 3

Select case .[D1].Offset(i).Value

cas Is <= if [D1] "different" [L1] : a = 2

End select

Sh.Line.ForeColor.SchemeColor = a

Sh.Visible = (a<>0)

End If

Next Sh

End with

End Sub

merci a ceux qui me repondront !!

nono.

Bonjour Nono21

Tu es aussi bon en macro que tu l'es à évoquer ton problème

Explique nous chaque ligne de code

Sub Test()
  Dim i&, a%
  Dim shp As Shape
  With ActiveSheet
    For Each shp In Sheet3.Shapes
      If Left(shp.Name, 8) = "Rounded rectangle" Then
        ' A quoi te sert i ?
        i = i + 3
        '
        Select Case .[D1].Offset(i).Value
          ' Cette ligne ne peut pas être utilisée comme ça !?
          'case Is <= if [D1] "different" [L1] : a = 2
        End Select
        shp.Line.ForeColor.SchemeColor = a
        shp.Visible = (a <> 0)
      End If
    Next shp
  End With
End Sub

A+

ahah j en suis vraiment dsl

alors

mon I sert a dire que je commence a la ligne 3 dans ma feuille ou il y a mon tableau

pour essayer d etre le plus comprehensible possible

j ai deux feuille : une avec une shema dont des rectangles (rounded rectangle) et d autres figures et une autre avec plusue=ieur tableau qui compare 2 periode a chaque fois.

chaque ligne de mes tableau corresponde a un rectangle

sur mes tableau j ai fais une Mfc pour comparer mes periodes mais j aimerais que maintenant elle se fasse sur mes rectangle em colorant en rouge ou par flash mes rectangle pour lequel il y a une difference entre les deux periodes ...

je sais pas si j ai etait assez clair je l espere...

merci


voice une partie de mon classeur pour mieux comprendre : d ailleur j aimerais que la difference se fasse en function des coouleur ce que je n ai pas reussi a faire

Rechercher des sujets similaires à "correction macro"