Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel modification d'un objet dans une feuille quelconque

modification d'un objet dans une feuille quelconque

2 réponses
Avatar
Bonjour,

Comment modifier mon code pour que je puisse le lancer quelquesoit l'onglet
dans lequel je me trouverais

merci

If Worksheets("SOMMAIRE").Range("G170") < 300 Then
ActiveSheet.Shapes("AutoShape 11").Select
Selection.Characters.Text = "K"
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 15
End If
End Sub
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
DanielCo
Bonjour.
Essaie :

If Worksheets("SOMMAIRE").Range("G170") < 300 Then
Set sh = Sheets("Feuil2").Shapes("AutoShape 11")
sh.DrawingObject.Text = "K"
sh.Fill.ForeColor.SchemeColor = 15
End If

Daniel


Bonjour,

Comment modifier mon code pour que je puisse le lancer quelquesoit l'onglet
dans lequel je me trouverais

merci

If Worksheets("SOMMAIRE").Range("G170") < 300 Then
ActiveSheet.Shapes("AutoShape 11").Select
Selection.Characters.Text = "K"
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 15
End If
End Sub
Avatar
Merci pour cette proposition qui est parfaite

"DanielCo" a écrit dans le message de news:
i8i4ar$ak0$
Bonjour.
Essaie :

If Worksheets("SOMMAIRE").Range("G170") < 300 Then
Set sh = Sheets("Feuil2").Shapes("AutoShape 11")
sh.DrawingObject.Text = "K"
sh.Fill.ForeColor.SchemeColor = 15
End If

Daniel


Bonjour,

Comment modifier mon code pour que je puisse le lancer quelquesoit
l'onglet dans lequel je me trouverais

merci

If Worksheets("SOMMAIRE").Range("G170") < 300 Then
ActiveSheet.Shapes("AutoShape 11").Select
Selection.Characters.Text = "K"
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 15
End If
End Sub