Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Compression max

Compression max

2 réponses
Avatar
milloche
Bonjour
Moyen ou pas de raccourcir ces 2 lignes au max ?
Je veux dire n'utiliser que le nom de l'objet pour le désigner ?
Je sèche.
Cordialement

ActiveSheet.DrawingObjects("Rect 100").Caption = "Sim OFF"
ActiveSheet.DrawingObjects("Rect 100").ShapeRange.Fill.ForeColor.SchemeColor =
22
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Modeste
Bonsour® milloche

Moyen ou pas de raccourcir ces 2 lignes au max ?
Je veux dire n'utiliser que le nom de l'objet pour le désigner ?
ActiveSheet.DrawingObjects("Rect 100").Caption = "Sim OFF"
ActiveSheet.DrawingObjects("Rect 100").ShapeRange.Fill.ForeColor.SchemeColor = 22



Dim RectX As Shape
Set RectX¬tiveSheet.DrawingObjects("Rect 100")
With RectX
.Caption = "Sim OFF"
.Fill.ForeColor.SchemeColor = 22
End With
Avatar
milloche
Ti coup de bol ?
En bidouillant un peu au hazard, ma spécialité

[Rect 101].Caption = "Sim OFF"
[Rect 101].ShapeRange.Fill.ForeColor.SchemeColor = 22
[Rect 100].Caption = "Sim OFF"
[Rect 100].ShapeRange.Fill.ForeColor.SchemeColor = 22

Semble fonctionner correctement.
J'ai peut-être enfin trouvé le cadeau de Noël que j'avais promis ici.
(:o))

"Modeste" a écrit dans le message de news:
%
Bonsour® milloche

Moyen ou pas de raccourcir ces 2 lignes au max ?
Je veux dire n'utiliser que le nom de l'objet pour le désigner ?
ActiveSheet.DrawingObjects("Rect 100").Caption = "Sim OFF"
ActiveSheet.DrawingObjects("Rect 100").ShapeRange.Fill.ForeColor.SchemeColor =
22



Dim RectX As Shape
Set RectX¬tiveSheet.DrawingObjects("Rect 100")
With RectX
.Caption = "Sim OFF"
.Fill.ForeColor.SchemeColor = 22
End With