je souhaite faire fonctionner cette procédure sans sélectionner l'objet avec with et End with, mais sans succès. Je vous remercie
Sub Macro2() ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 Selection.ShapeRange.Fill.BackColor.SchemeColor = 27 Selection.ShapeRange.Fill.TwoColorGradient msoGradientVertical, 2 End Sub
Sub Macro3() dim myobject as shape set myobject= ActiveSheet.Shapes("Rectangle 1") with myobject .Fill.ForeColor.SchemeColor = 9 .Fill.BackColor.SchemeColor = 27 .Fill.TwoColorGradient msoGradientVertical, 2 end with End Sub
Bonsour® "Pierre Henri"
je souhaite faire fonctionner cette procédure sans sélectionner l'objet
avec with et End with, mais sans succès.
Je vous remercie
Sub Macro2()
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.BackColor.SchemeColor = 27
Selection.ShapeRange.Fill.TwoColorGradient msoGradientVertical, 2
End Sub
Sub Macro3()
dim myobject as shape
set myobject= ActiveSheet.Shapes("Rectangle 1")
with myobject
.Fill.ForeColor.SchemeColor = 9
.Fill.BackColor.SchemeColor = 27
.Fill.TwoColorGradient msoGradientVertical, 2
end with
End Sub
je souhaite faire fonctionner cette procédure sans sélectionner l'objet avec with et End with, mais sans succès. Je vous remercie
Sub Macro2() ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 Selection.ShapeRange.Fill.BackColor.SchemeColor = 27 Selection.ShapeRange.Fill.TwoColorGradient msoGradientVertical, 2 End Sub
Sub Macro3() dim myobject as shape set myobject= ActiveSheet.Shapes("Rectangle 1") with myobject .Fill.ForeColor.SchemeColor = 9 .Fill.BackColor.SchemeColor = 27 .Fill.TwoColorGradient msoGradientVertical, 2 end with End Sub
michdenis
Bonjour,
Il y a aussi :
'--------------------- Sub Test() With ActiveSheet.Shapes("Rectangle 1") .Fill.ForeColor.SchemeColor = 9 .Fill.BackColor.SchemeColor = 27 .Fill.TwoColorGradient msoGradientVertical, 2 End With End Sub '---------------------
"Pierre Henri" <"PH Neutre"> a écrit dans le message de groupe de discussion : # Bonjour, je souhaite faire fonctionner cette procédure sans sélectionner l'objet avec with et End with, mais sans succès. Je vous remercie PH
'---------------------
Sub Test()
With ActiveSheet.Shapes("Rectangle 1")
.Fill.ForeColor.SchemeColor = 9
.Fill.BackColor.SchemeColor = 27
.Fill.TwoColorGradient msoGradientVertical, 2
End With
End Sub
'---------------------
"Pierre Henri" <"PH Neutre"> a écrit dans le message de groupe de discussion :
#S7YtP75KHA.420@TK2MSFTNGP02.phx.gbl...
Bonjour,
je souhaite faire fonctionner cette procédure sans sélectionner l'objet
avec with et End with, mais sans succès.
Je vous remercie
PH
'--------------------- Sub Test() With ActiveSheet.Shapes("Rectangle 1") .Fill.ForeColor.SchemeColor = 9 .Fill.BackColor.SchemeColor = 27 .Fill.TwoColorGradient msoGradientVertical, 2 End With End Sub '---------------------
"Pierre Henri" <"PH Neutre"> a écrit dans le message de groupe de discussion : # Bonjour, je souhaite faire fonctionner cette procédure sans sélectionner l'objet avec with et End with, mais sans succès. Je vous remercie PH
je souhaite faire fonctionner cette procédure sans sélectionner l'objet avec with et End with, mais sans succès. Je vous remercie
Sub Macro2() ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 Selection.ShapeRange.Fill.BackColor.SchemeColor = 27 Selection.ShapeRange.Fill.TwoColorGradient msoGradientVertical, 2 End Sub
Sub Macro3() dim myobject as shape set myobject= ActiveSheet.Shapes("Rectangle 1") with myobject .Fill.ForeColor.SchemeColor = 9 .Fill.BackColor.SchemeColor = 27 .Fill.TwoColorGradient msoGradientVertical, 2 end with End Sub
Bonsoir
Un très grand merci à tous les 2
PH Neutre
Modeste a écrit :
Bonsour® "Pierre Henri"
je souhaite faire fonctionner cette procédure sans sélectionner
l'objet avec with et End with, mais sans succès.
Je vous remercie
Sub Macro2()
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.BackColor.SchemeColor = 27
Selection.ShapeRange.Fill.TwoColorGradient msoGradientVertical, 2
End Sub
Sub Macro3()
dim myobject as shape
set myobject= ActiveSheet.Shapes("Rectangle 1")
with myobject
.Fill.ForeColor.SchemeColor = 9
.Fill.BackColor.SchemeColor = 27
.Fill.TwoColorGradient msoGradientVertical, 2
end with
End Sub
je souhaite faire fonctionner cette procédure sans sélectionner l'objet avec with et End with, mais sans succès. Je vous remercie
Sub Macro2() ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 Selection.ShapeRange.Fill.BackColor.SchemeColor = 27 Selection.ShapeRange.Fill.TwoColorGradient msoGradientVertical, 2 End Sub
Sub Macro3() dim myobject as shape set myobject= ActiveSheet.Shapes("Rectangle 1") with myobject .Fill.ForeColor.SchemeColor = 9 .Fill.BackColor.SchemeColor = 27 .Fill.TwoColorGradient msoGradientVertical, 2 end with End Sub
Pierre Henri
Bonsoir, Effectivement ;-) Merci à toi PH Neutre
michdenis a écrit :
Bonjour,
Il y a aussi :
'--------------------- Sub Test() With ActiveSheet.Shapes("Rectangle 1") .Fill.ForeColor.SchemeColor = 9 .Fill.BackColor.SchemeColor = 27 .Fill.TwoColorGradient msoGradientVertical, 2 End With End Sub '---------------------
"Pierre Henri" <"PH Neutre"> a écrit dans le message de groupe de discussion : # Bonjour, je souhaite faire fonctionner cette procédure sans sélectionner l'objet avec with et End with, mais sans succès. Je vous remercie PH
'---------------------
Sub Test()
With ActiveSheet.Shapes("Rectangle 1")
.Fill.ForeColor.SchemeColor = 9
.Fill.BackColor.SchemeColor = 27
.Fill.TwoColorGradient msoGradientVertical, 2
End With
End Sub
'---------------------
"Pierre Henri" <"PH Neutre"> a écrit dans le message de groupe de discussion :
#S7YtP75KHA.420@TK2MSFTNGP02.phx.gbl...
Bonjour,
je souhaite faire fonctionner cette procédure sans sélectionner l'objet
avec with et End with, mais sans succès.
Je vous remercie
PH
'--------------------- Sub Test() With ActiveSheet.Shapes("Rectangle 1") .Fill.ForeColor.SchemeColor = 9 .Fill.BackColor.SchemeColor = 27 .Fill.TwoColorGradient msoGradientVertical, 2 End With End Sub '---------------------
"Pierre Henri" <"PH Neutre"> a écrit dans le message de groupe de discussion : # Bonjour, je souhaite faire fonctionner cette procédure sans sélectionner l'objet avec with et End with, mais sans succès. Je vous remercie PH