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