j'aimerais qu'une forme automatique cree =E0 partir de l'outil dessin,
notemment un cercle prenne la valeur d'une cellule, et aussi la
couleur de cette cellule
exemple
en A1 j'ai 100 % avec un fond vert, il faudrait que mon "elipse 1 "
soit avec un fond vert et =E0 l'interieur le texte1
j'ai deja essay=E9 avec un label mais le probleme est que le label n'a
qu'une forme rectangulaire alors que je veux un cercle.
With ActiveSheet.Shapes("elipse 1").OLEFormat.Object .Interior.ColorIndex = Range("A1").Interior.ColorIndex .Characters.Text = Range("A1") End With
isabelle
bonsoir à tous et encore bonne année
voila mon souci
j'aimerais qu'une forme automatique cree à partir de l'outil dessin, notemment un cercle prenne la valeur d'une cellule, et aussi la couleur de cette cellule
exemple
en A1 j'ai 100 % avec un fond vert, il faudrait que mon "elipse 1 " soit avec un fond vert et à l'interieur le texte1
j'ai deja essayé avec un label mais le probleme est que le label n'a qu'une forme rectangulaire alors que je veux un cercle.
merci pour votre aide
bonjour magic-dd,
With ActiveSheet.Shapes("elipse 1").OLEFormat.Object
.Interior.ColorIndex = Range("A1").Interior.ColorIndex
.Characters.Text = Range("A1")
End With
isabelle
bonsoir à tous et encore bonne année
voila mon souci
j'aimerais qu'une forme automatique cree à partir de l'outil dessin,
notemment un cercle prenne la valeur d'une cellule, et aussi la
couleur de cette cellule
exemple
en A1 j'ai 100 % avec un fond vert, il faudrait que mon "elipse 1 "
soit avec un fond vert et à l'interieur le texte1
j'ai deja essayé avec un label mais le probleme est que le label n'a
qu'une forme rectangulaire alors que je veux un cercle.
With ActiveSheet.Shapes("elipse 1").OLEFormat.Object .Interior.ColorIndex = Range("A1").Interior.ColorIndex .Characters.Text = Range("A1") End With
isabelle
bonsoir à tous et encore bonne année
voila mon souci
j'aimerais qu'une forme automatique cree à partir de l'outil dessin, notemment un cercle prenne la valeur d'une cellule, et aussi la couleur de cette cellule
exemple
en A1 j'ai 100 % avec un fond vert, il faudrait que mon "elipse 1 " soit avec un fond vert et à l'interieur le texte1
j'ai deja essayé avec un label mais le probleme est que le label n'a qu'une forme rectangulaire alors que je veux un cercle.
merci pour votre aide
isabelle
correction du nom de shape,
With ActiveSheet.Shapes("Oval 1").OLEFormat.Object .Interior.ColorIndex = Range("A1").Interior.ColorIndex .Characters.Text = Range("A1") End With
isabelle
bonjour magic-dd,
With ActiveSheet.Shapes("elipse 1").OLEFormat.Object .Interior.ColorIndex = Range("A1").Interior.ColorIndex .Characters.Text = Range("A1") End With
isabelle
bonsoir à tous et encore bonne année
voila mon souci
j'aimerais qu'une forme automatique cree à partir de l'outil dessin, notemment un cercle prenne la valeur d'une cellule, et aussi la couleur de cette cellule
exemple
en A1 j'ai 100 % avec un fond vert, il faudrait que mon "elipse 1 " soit avec un fond vert et à l'interieur le texte1
j'ai deja essayé avec un label mais le probleme est que le label n'a qu'une forme rectangulaire alors que je veux un cercle.
merci pour votre aide
correction du nom de shape,
With ActiveSheet.Shapes("Oval 1").OLEFormat.Object
.Interior.ColorIndex = Range("A1").Interior.ColorIndex
.Characters.Text = Range("A1")
End With
isabelle
bonjour magic-dd,
With ActiveSheet.Shapes("elipse 1").OLEFormat.Object
.Interior.ColorIndex = Range("A1").Interior.ColorIndex
.Characters.Text = Range("A1")
End With
isabelle
bonsoir à tous et encore bonne année
voila mon souci
j'aimerais qu'une forme automatique cree à partir de l'outil dessin,
notemment un cercle prenne la valeur d'une cellule, et aussi la
couleur de cette cellule
exemple
en A1 j'ai 100 % avec un fond vert, il faudrait que mon "elipse 1 "
soit avec un fond vert et à l'interieur le texte1
j'ai deja essayé avec un label mais le probleme est que le label n'a
qu'une forme rectangulaire alors que je veux un cercle.
With ActiveSheet.Shapes("Oval 1").OLEFormat.Object .Interior.ColorIndex = Range("A1").Interior.ColorIndex .Characters.Text = Range("A1") End With
isabelle
bonjour magic-dd,
With ActiveSheet.Shapes("elipse 1").OLEFormat.Object .Interior.ColorIndex = Range("A1").Interior.ColorIndex .Characters.Text = Range("A1") End With
isabelle
bonsoir à tous et encore bonne année
voila mon souci
j'aimerais qu'une forme automatique cree à partir de l'outil dessin, notemment un cercle prenne la valeur d'une cellule, et aussi la couleur de cette cellule
exemple
en A1 j'ai 100 % avec un fond vert, il faudrait que mon "elipse 1 " soit avec un fond vert et à l'interieur le texte1
j'ai deja essayé avec un label mais le probleme est que le label n'a qu'une forme rectangulaire alors que je veux un cercle.
j'ai bien testé la combinaison qui permet de recuperer la couleur et la valeur d'une cellule
or
est il possible de recuperer la valeur et la couleur issue d'une mise en forme conditionelle
merci beaucoup
isabelle
bonjour magic-dd,
oui c'est possible :
With ActiveSheet.Shapes("Oval 1").OLEFormat.Object .Interior.ColorIndex = Range("A1").FormatConditions(1).Interior.ColorIndex .Characters.Text = Range("A1") End With
isabelle
On 25 jan, 13:02, magic-dd wrote:
j'essaye cet apres midi
merci beaucoup
salut
j'ai bien testé la combinaison qui permet de recuperer la couleur et la valeur d'une cellule
or
est il possible de recuperer la valeur et la couleur issue d'une mise en forme conditionelle
merci beaucoup
bonjour magic-dd,
oui c'est possible :
With ActiveSheet.Shapes("Oval 1").OLEFormat.Object
.Interior.ColorIndex = Range("A1").FormatConditions(1).Interior.ColorIndex
.Characters.Text = Range("A1")
End With
isabelle
On 25 jan, 13:02, magic-dd <ciolan...@gmail.com> wrote:
j'essaye cet apres midi
merci beaucoup
salut
j'ai bien testé la combinaison qui permet de recuperer la couleur et
la valeur d'une cellule
or
est il possible de recuperer la valeur et la couleur issue d'une mise
en forme conditionelle
With ActiveSheet.Shapes("Oval 1").OLEFormat.Object .Interior.ColorIndex = Range("A1").FormatConditions(1).Interior.ColorIndex .Characters.Text = Range("A1") End With
isabelle
On 25 jan, 13:02, magic-dd wrote:
j'essaye cet apres midi
merci beaucoup
salut
j'ai bien testé la combinaison qui permet de recuperer la couleur et la valeur d'une cellule
or
est il possible de recuperer la valeur et la couleur issue d'une mise en forme conditionelle
