Option Explicit
Sub Shape_sélectionné_couleur_connaître()
Dim c As Shape
On Error GoTo fin
MsgBox "56 couleurs : " & Selection.ShapeRange.Fill.ForeColor.SchemeColor - 7
MsgBox "RGB : " & Selection.ShapeRange.Fill.ForeColor.RGB
Exit Sub
fin:
MsgBox "Sélectionner un shape !"
End Sub
Sub Couleurs_RGB()
If TypeName(Selection) = "Range" Then Exit Sub
With Selection.ShapeRange.Fill.ForeColor
MsgBox "Rouge = " & Int(.RGB Mod 256) & vbLf & _
"Vert = " & Int((.RGB Mod 65536) / 256) & vbLf & _
"Bleu = " & Int(.RGB / 65536), , "Couleurs RGB"
End With
End Sub
Sub Couleurs_RGB()
Dim s As Shape
For Each s In ActiveSheet.Shapes
With s.Fill.ForeColor
MsgBox "Rouge = " & Int(.RGB Mod 256) & vbLf & _
"Vert = " & Int((.RGB Mod 65536) / 256) & vbLf & _
"Bleu = " & Int(.RGB / 65536), , "Couleurs RGB " & s.Name
End With
Next
End Sub
Function couleurImage(s)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
couleurImage = f.Shapes(s).Fill.ForeColor.RGB
End Function
Function ColorieImage(s, couleur)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
f.Shapes(s).Fill.ForeColor.RGB = couleur
End Function
Job75, le 1er code est parfait. Le second code fait une boucle infinie.
Re,
Je ne savais pas qu'on pouvait mettre une infinité de Shapes dans une feuille
Pourquoi compliquer un problème simple
...Ca a planté à 788 (oui, il y en a beaucoup...)...
Moi non plus !!
Vous voulez dire que les Shapes se sont glissées là à l'insu de votre plein gré