couleur d'excel vers html

Version imprimable

12/04/2012, 15h34
patricktoulon

couleur d'excel vers html

bonjour a tous

je cherche comment traduire le nombre représentant une couleur au format html

et j'avoue que je ne distingue pas vraiment la difference entre long, hex, ect....

quelqu'un a une idée???

au plaisir
12/04/2012, 15h39
Jean-Philippe André

Hum,

tu cherches un convertisseur de couleur->code couleur ?
http://silkyroad.developpez.com/VBA/...CodesCouleurs/

Ou alors tu aimerais pouvoir transformer une plage de cellule à la volée en html ?
http://outlook.developpez.com/faq/?p...VBA_Send_Range
(tu n'utiliserais pas la partie outlook mais juste la conversion en html ;))
12/04/2012, 17h38
patricktoulon

bonjour jpcheck

tu a parfaitement compris ce que je suis en train de faire

en fait je traduit tout plein de mes petites applications au format hta
a fin de ne pas avoir forcement besoin d'excel pour des petits travaux

en fait j'ai fait une petite macro qui m'écrit le hta en entier

les cellules sont remplacées par des input type texte dans le fichier hta avec toutes les propriétés des cellules mon seul problème c'est que les couleur ne correspondent pas au format html

je vais regarder du coté des liens que tu m'a transmis

merci a toi

au plaisir

RE

Je reviens car je n'est pas trouvé ce que je cherche

en effet dans le lien que tu m'a donné il y a bien une partie de la macro qui cré le code pour mettre des cellule dans un code html mais les propriétés sont ecrit en dur
tandis que moi les propriétés sont pris dans les propriété des cellules

alors j'ai essayé la couleur en long convertie en hex mais visiblement ca n'est pas le bon format

une autre idée ???:calim2:

au plaisir
12/04/2012, 17h45
Jean-Philippe André

hum, ton panel de couleurs dans les cellules est-il potentiellement infini ou pas ? :aie:

hihi

je ne sais pas si il est infini mais bon voila un morceau de mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 Sub truc3()
 
Dim laligne As String
Dim colonne As String, ligne As String
Dim couleur As Long
Open ThisWorkbook.Path & "\" & "essai.hta" For Output As #1
 
Print #1, "<!DOCTYPE HTML PUBLIC " & "-//W3C//DTD HTML 4.01 Transitional//EN" & Chr(34) & " >"
Print #1, "<!meta http-equiv =" & Chr(34) & "Refresh" & Chr(34) & "Content =" & Chr(34) & "10;URL =tableau Loyer 2011 2012 toto.hta" & Chr(34) & ">"
Print #1, "<html>"
Print #1, "<head>"
Print #1, "<title>tableau Loyer 2011 2012 toto robert</title>"
Print #1, "<HTA:APPLICATION"
Print #1, " ApplicationName = "; tableau; Loyer; 2011; 2012; robert; toto; """"
Print #1, "WindowState =" & Chr(34) & "maximize" & Chr(34)
Print #1, ">"
Print #1, "<script Langage=JScript>"
Print #1, "</script>"
Print #1, "<script language= VBScript" & Chr(34) & ">"
Print #1, "Sub Window_onLoad()"
Print #1, "End Sub"
Print #1, "</script>"
Print #1, "</head>"
Print #1, "<body >"
 
 
 
 
For i = 1 To 13
colonne = Split(Cells(7, i).Address, "$")(1)
ligne = Split(Cells(7, i).Address, "$")(2)
couleur = Cells(7, i).Interior.Color
hauteur = Cells(7, i).Height * 4 / 3 + 10
largeur = Cells(7, i).Width * 4 / 3 + 15
letop = Cells(7, i).Top * 4 / 3
 
 leleft = (Cells(7, i).Left * 4 / 3) + i * 14
 
taillecaractere = Round(Cells(7, i).Font.Size) * 4 / 3
If Cells(7, i).Value = "" Then
valeur = ""
Else
valeur = Format(Cells(7, i).Value, "0.00")
End If
laligne = "<input type='text' id='" & colonne & ligne & "' " & "name=""" & colonne & ligne & """" & " style='position:absolute;left:" & _
leleft & "px" & ";top:" & letop & "px" & ";width:" & largeur & "px;height:" & hauteur & _
"px;border:1px #000000 solid;background-color:" & couleur & ";color:" & Cells(7, i).Font.Color & ";font-family:Verdana;font-size:" & taillecaractere & "px;font-weight:bold;' INPUT STYLE=" & Chr(34) & "Text-ALIGN:center""" & "; value=""" & valeur & """></input>"
 
Print #1, laligne
 
 
 
Next
Print #1, "</body>"
 
Print #1, "</html>"
Close #1
End Sub

ce code me restitue la ligne 7 sur 13 colonnes a l'identique de la feuille excel
sauf les couleurs

je cherche toujours

au plaisir

12/04/2012, 18h14
Jean-Philippe André

ok,

les pistes éventuelles :
- http://www.developpez.net/forums/d98...cel-vers-html/
- http://dmcritchie.mvps.org/excel/colors.htm

youpi!!! super merci a toi

alors pour convertir les couleur excel en format html
j'ai remplacé

Code:

couleur=cell(7,1).interior.color

par

Code:

1
2
3
str0 = Right("000000" & Hex(Cells(7, i).Interior.Color), 6)
    str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2)
    couleur = "#" & str & ""

et voila la macro complète
elle te restitue dans un hta la ligne 7 sur 13 colonne
je me suis servi de input type text pour pouvoir ajouter la fonction "on change" du input text

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub truc3()
Dim str0 As String, str As String
Dim laligne As String
Dim colonne As String, ligne As String
Dim couleur As Variant
Open ThisWorkbook.Path & "\" & "essai.hta" For Output As #1
 
Print #1, "<!DOCTYPE HTML PUBLIC " & "-//W3C//DTD HTML 4.01 Transitional//EN" & Chr(34) & " >"
Print #1, "<!meta http-equiv =" & Chr(34) & "Refresh" & Chr(34) & "Content =" & Chr(34) & "10;URL =tableau Loyer 2011 2012 toto robert.hta" & Chr(34) & ">"
Print #1, "<html>"
Print #1, "<head>"
Print #1, "<title>tableau Loyer 2011 2012 toto robert</title>"
Print #1, "<HTA:APPLICATION"
Print #1, " ApplicationName = "; tableau; Loyer; 2011; 2012; robert; toto; """"
Print #1, "WindowState =" & Chr(34) & "maximize" & Chr(34)
Print #1, ">"
Print #1, "<script Langage=JScript>"
Print #1, "</script>"
Print #1, "<script language= VBScript" & Chr(34) & ">"
Print #1, "Sub Window_onLoad()"
Print #1, "End Sub"
Print #1, "</script>"
Print #1, "</head>"
Print #1, "<body >"
 
 
 
 
For i = 1 To 13
colonne = Split(Cells(7, i).Address, "$")(1)
ligne = Split(Cells(7, i).Address, "$")(2)
 
str0 = Right("000000" & Hex(Cells(7, i).Interior.Color), 6)
  'Excel shows nibbles in reverse order so make it as RGB
  str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2)
  'generating 2 columns in the HTML table
   couleur = "#" & str & ""
hauteur = Cells(7, i).Height * 4 / 3 + 10
largeur = Cells(7, i).Width * 4 / 3 + 14
letop = Cells(7, i).Top * 4 / 3
 
 leleft = (Cells(7, i).Left * 4 / 3) + i * 13
 
taillecaractere = Round(Cells(7, i).Font.Size) * 4 / 3
If Cells(7, i).Value = "" Then
valeur = ""
Else
valeur = Format(Cells(7, i).Value, "0.00")
End If
laligne = "<input type='text' id='" & colonne & ligne & "' " & "name=""" & colonne & ligne & """" & " style='position:absolute;left:" & _
leleft & "px" & ";top:" & letop & "px" & ";width:" & largeur & "px;height:" & hauteur & _
"px;border:1px #000000 solid;background-color:" & couleur & ";color:" & Cells(7, i).Font.Color & ";font-family:Verdana;font-size:" & taillecaractere & "px;font-weight:bold;' INPUT STYLE=" & Chr(34) & "Text-ALIGN:center""" & "; value=""" & valeur & """></input>"
 
Print #1, laligne
 
 
 
Next
Print #1, "</body>"
 
Print #1, "</html>"
Close #1
End Sub

voila une petite,jolie et utile, formule a retenir
trop fort ce jpcheck:mouarf:

merci a toi :D

13/04/2012, 09h22
Jean-Philippe André

Si c'est OK pour toi, pense au bouton :resolu: ;)
Au plaisir
13/04/2012, 11h08
patricktoulon

re

Bonjour jpcheck

oupss

oui tu a raison c'est résolu :ccool:

merci encore a toi pour ton aide et efficacité

je pense que je vais mettre cette formule dans les contributions avec un titre

assez explicite de façon a ce qu'on la retrouve plus facilement la prochaine fois

au plaisir