modification d'un objet dans une feuille quelconque

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #22650901
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
Le #22651191
Merci pour cette proposition qui est parfaite

"DanielCo" 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




Publicité
Poster une réponse
Anonyme