couleur d'excel vers html

**patricktoulon** · 12/04/2012, 15h34

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

**Jean-Philippe André** · 12/04/2012, 15h39

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

)

**patricktoulon** · 12/04/2012, 17h38

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 ???

au plaisir

**Jean-Philippe André** · 12/04/2012, 17h45

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

**patricktoulon** · 12/04/2012, 18h07

hihi

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

ok,

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

**patricktoulon** · 12/04/2012, 19h18

youpi!!! super merci a toi

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci a toi

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

Si c'est OK pour toi, pense au bouton

Au plaisir

**patricktoulon** · 13/04/2012, 11h08

Bonjour jpcheck

oupss

oui tu a raison c'est résolu

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

couleur d'excel vers html

Macros et VBA Excel

Discussions similaires

Partager

Partager