OVH Cloud OVH Cloud

image dans excel

36 réponses
Avatar
Pierre
Bonjour à tous,

Il est bien sure possible d’insérer des images dans Excel.

Mais est-il possible d’insérer une image, comme une carte, donc des zone
changeraient de couleur selon les valeurs d’une cellule.

Cordialement.

10 réponses

1 2 3 4
Avatar
Nicolas B.
Re-bonjour,

Il n'y a pas de mise en formes conditionnelles pour les images. Mais tu
peux t'en sortir par macro :

Dessine par exemple avec l'outil "Forme libre" la France et colle cette
macro dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Union(Target, [B1]) Is Nothing Then
Shapes("Freeform 1").Fill.ForeColor.RGB = _
RGB([B1], 255 - [B1], 0)
End If
End Sub

Retourne sur la feuille et mets en B1 une valeur entre 0 et 255 selon
que tu veuilles que l'alerte canicule soit dans le rouge ou le vert.


A+
Nicolas B.

Bonjour à tous,

Il est bien sure possible d’insérer des images dans Excel.

Mais est-il possible d’insérer une image, comme une carte, donc des zone
changeraient de couleur selon les valeurs d’une cellule.

Cordialement.



Avatar
lSteph
Bonsoir,
ceci pourrait aider: http://www.pagat.com/com/cardsttf.html

lSteph
"Pierre" a écrit dans le message de news:

Bonjour à tous,

Il est bien sure possible d'insérer des images dans Excel.

Mais est-il possible d'insérer une image, comme une carte, donc des zone
changeraient de couleur selon les valeurs d'une cellule.

Cordialement.



Avatar
Pierre
Bonjour Nicolas!

Je ne mis connais pas énormément encore avec le vb, par ou je passe pour
insérer la macro?


Re-bonjour,

Il n'y a pas de mise en formes conditionnelles pour les images. Mais tu
peux t'en sortir par macro :

Dessine par exemple avec l'outil "Forme libre" la France et colle cette
macro dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Union(Target, [B1]) Is Nothing Then
Shapes("Freeform 1").Fill.ForeColor.RGB = _
RGB([B1], 255 - [B1], 0)
End If
End Sub

Retourne sur la feuille et mets en B1 une valeur entre 0 et 255 selon
que tu veuilles que l'alerte canicule soit dans le rouge ou le vert.


A+
Nicolas B.

Bonjour à tous,

Il est bien sure possible d’insérer des images dans Excel.

Mais est-il possible d’insérer une image, comme une carte, donc des zone
changeraient de couleur selon les valeurs d’une cellule.

Cordialement.






Avatar
Pierre
Re-bonjour Nicolas!

J'ai réussi!!!!!!!!

1 million de merci!!!

Il ne reste plus qu'a l'adapter a mes valeurs.




Re-bonjour,

Il n'y a pas de mise en formes conditionnelles pour les images. Mais tu
peux t'en sortir par macro :

Dessine par exemple avec l'outil "Forme libre" la France et colle cette
macro dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Union(Target, [B1]) Is Nothing Then
Shapes("Freeform 1").Fill.ForeColor.RGB = _
RGB([B1], 255 - [B1], 0)
End If
End Sub

Retourne sur la feuille et mets en B1 une valeur entre 0 et 255 selon
que tu veuilles que l'alerte canicule soit dans le rouge ou le vert.


A+
Nicolas B.

Bonjour à tous,

Il est bien sure possible d’insérer des images dans Excel.

Mais est-il possible d’insérer une image, comme une carte, donc des zone
changeraient de couleur selon les valeurs d’une cellule.

Cordialement.






Avatar
Pierre
Autre petite question.

Ou je pourrais avoir la liste des couleurs?

merci!


Re-bonjour,

Il n'y a pas de mise en formes conditionnelles pour les images. Mais tu
peux t'en sortir par macro :

Dessine par exemple avec l'outil "Forme libre" la France et colle cette
macro dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Union(Target, [B1]) Is Nothing Then
Shapes("Freeform 1").Fill.ForeColor.RGB = _
RGB([B1], 255 - [B1], 0)
End If
End Sub

Retourne sur la feuille et mets en B1 une valeur entre 0 et 255 selon
que tu veuilles que l'alerte canicule soit dans le rouge ou le vert.


A+
Nicolas B.

Bonjour à tous,

Il est bien sure possible d’insérer des images dans Excel.

Mais est-il possible d’insérer une image, comme une carte, donc des zone
changeraient de couleur selon les valeurs d’une cellule.

Cordialement.






Avatar
Pierre
Pardonnez-moi encore une fois.

Je remarque à présent toutes les possibilités qui s’offre à moi avec vos
conseilles.

Je remarque aussi que le code RGB de 0 à 255 ne me donne que du vert et
rouge. De quelle manière je peux avoir les autres couleurs?

Merci


Je remarque a p


Autre petite question.

Ou je pourrais avoir la liste des couleurs?

merci!


Re-bonjour,

Il n'y a pas de mise en formes conditionnelles pour les images. Mais tu
peux t'en sortir par macro :

Dessine par exemple avec l'outil "Forme libre" la France et colle cette
macro dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Union(Target, [B1]) Is Nothing Then
Shapes("Freeform 1").Fill.ForeColor.RGB = _
RGB([B1], 255 - [B1], 0)
End If
End Sub

Retourne sur la feuille et mets en B1 une valeur entre 0 et 255 selon
que tu veuilles que l'alerte canicule soit dans le rouge ou le vert.


A+
Nicolas B.

Bonjour à tous,

Il est bien sure possible d’insérer des images dans Excel.

Mais est-il possible d’insérer une image, comme une carte, donc des zone
changeraient de couleur selon les valeurs d’une cellule.

Cordialement.








Avatar
jps
bonjour pierre
tente de jouer sur les trois valeurs de RGB :

Range("A1").Interior.Color = RGB(255, 100, 100)

c'est pas du rouge ni du vert, ça!!!!
jps

"Pierre" a écrit dans le message de news:

Pardonnez-moi encore une fois.

Je remarque à présent toutes les possibilités qui s'offre à moi avec vos
conseilles.

Je remarque aussi que le code RGB de 0 à 255 ne me donne que du vert et
rouge. De quelle manière je peux avoir les autres couleurs?

Merci


Je remarque a p


Autre petite question.

Ou je pourrais avoir la liste des couleurs?

merci!


Re-bonjour,

Il n'y a pas de mise en formes conditionnelles pour les images. Mais tu
peux t'en sortir par macro :

Dessine par exemple avec l'outil "Forme libre" la France et colle cette
macro dans le module de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Union(Target, [B1]) Is Nothing Then
Shapes("Freeform 1").Fill.ForeColor.RGB = _
RGB([B1], 255 - [B1], 0)
End If
End Sub

Retourne sur la feuille et mets en B1 une valeur entre 0 et 255 selon
que tu veuilles que l'alerte canicule soit dans le rouge ou le vert.


A+
Nicolas B.

Bonjour à tous,

Il est bien sure possible d'insérer des images dans Excel.

Mais est-il possible d'insérer une image, comme une carte, donc des
zone
changeraient de couleur selon les valeurs d'une cellule.

Cordialement.










Avatar
Nicolas B.
Pour veux avoir les 65536 couleurs possibles, rentre les quantités de
rouge vert et bleu comme te l'a indiqué jps.

Si tu veux une échelle arc-en-ciel, tu peux utiliser cette fonction (à
coller dans un nouveau module) :

Function ObtCouleur(ByVal Index As Integer) As Integer()
Dim RVB(2) As Integer
Select Case Index 256
Case 0
RVB(0) = 255
RVB(1) = Index
Case 1
RVB(0) = 511 - Index
RVB(1) = 255
Case 2
RVB(1) = 255
RVB(2) = Index - 512
Case 3
RVB(1) = 1023 - Index
RVB(2) = 255
Case 4
RVB(0) = Index - 1024
RVB(2) = 255
Case 5
RVB(0) = 255
RVB(2) = 1535 - Index
End Select
ObtCouleur = RVB
End Function


Le code dans la feuille est alors :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Union(Target, [B1]) Is Nothing Then
Dim A() As Integer
A = ObtCouleur([B1])
Shapes("Freeform 1").Fill.ForeColor.RGB = _
RGB(A(0), A(1), A(2))
End If
End Sub

Cette fois, rentre en B1 un nombre entre 0 et 1535. En 0, la couleur est
rouge, et en 1535... rouge aussi. Pour les valeurs intermédiaires, tu
passe par l'orange (128), le jaune (256), le vert (512), le bleu (1024),
le violet (1152), le rose (1280) et ça revient au rouge, tout ça en
faisaint un joli dégradé.


A+
Nicolas B.

Pardonnez-moi encore une fois.

Je remarque à présent toutes les possibilités qui s’offre à moi avec vos
conseilles.

Je remarque aussi que le code RGB de 0 à 255 ne me donne que du vert et
rouge. De quelle manière je peux avoir les autres couleurs?

Merci


Avatar
Modeste
Bonsour® Nicolas B. avec ferveur ;o))) vous nous disiez :

Pour veux avoir les 65536 couleurs possibles
??????

Je remarque aussi que le code RGB de 0 à 255 ne me donne que du vert et
rouge. De quelle manière je peux avoir les autres couleurs?



la fonction RGB permet la definition de 16 777 216 couleurs differentes !!!!
hélas la palette Excel est limitée à 56 couleurs simultanées à choisir parmi ce
large éventail .

un coup d'oeil là : http://excelabo.net/moteurs/compteclic.php?nom=gd-xlcolors
;o)))




--
--
@+
;o)))


Avatar
Nicolas B.
Bonjour Modeste,

Merci d'avoir corrigé les 65536...

la fonction RGB permet la definition de 16 777 216 couleurs
differentes !!!!
hélas la palette Excel est limitée à 56 couleurs simultanées à choisir
parmi ce large éventail .


Mais la palette n'est pas limitée pour les couleurs des objets de
dessin. Tant mieux pour Pierre et ses cartes :-)


A+
Nicolas B.

Bonsour® Nicolas B. avec ferveur ;o))) vous nous disiez :

Pour veux avoir les 65536 couleurs possibles
??????

Je remarque aussi que le code RGB de 0 à 255 ne me donne que du vert et
rouge. De quelle manière je peux avoir les autres couleurs?



la fonction RGB permet la definition de 16 777 216 couleurs differentes !!!!
hélas la palette Excel est limitée à 56 couleurs simultanées à choisir parmi ce
large éventail .

un coup d'oeil là : http://excelabo.net/moteurs/compteclic.php?nom=gd-xlcolors
;o)))




1 2 3 4