xxxxxxxxxxxxxxxxxxxxxxx
Sheets("Wallonie").Shapes("Rixensart").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et ce que je voudrais, ce sont deux astuces
Une pour que la valeur de la couleur soit celle afficher dans une
cellule (D5 dans ce cas-ci)
Deuxième astuces
Comment faire pour que cela se passe pour toutes les formes de ma
feuille? En prenant bien sur le chiffre de couleur dans la colonne D
sur la même ligne que le nom de la formeSur une feuille nommée ENTREE (mais quelle immagination!) j'ai des
données dans le style
Communes Revendeurs Utilisateurs Tableaux
Rixensart 1 5 14
etc 4 25 53
xxxxxxxxxxxxxxxxxxxxxxx
Sheets("Wallonie").Shapes("Rixensart").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et ce que je voudrais, ce sont deux astuces
Une pour que la valeur de la couleur soit celle afficher dans une
cellule (D5 dans ce cas-ci)
Deuxième astuces
Comment faire pour que cela se passe pour toutes les formes de ma
feuille? En prenant bien sur le chiffre de couleur dans la colonne D
sur la même ligne que le nom de la forme
Sur une feuille nommée ENTREE (mais quelle immagination!) j'ai des
données dans le style
Communes Revendeurs Utilisateurs Tableaux
Rixensart 1 5 14
etc 4 25 53
xxxxxxxxxxxxxxxxxxxxxxx
Sheets("Wallonie").Shapes("Rixensart").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et ce que je voudrais, ce sont deux astuces
Une pour que la valeur de la couleur soit celle afficher dans une
cellule (D5 dans ce cas-ci)
Deuxième astuces
Comment faire pour que cela se passe pour toutes les formes de ma
feuille? En prenant bien sur le chiffre de couleur dans la colonne D
sur la même ligne que le nom de la formeSur une feuille nommée ENTREE (mais quelle immagination!) j'ai des
données dans le style
Communes Revendeurs Utilisateurs Tableaux
Rixensart 1 5 14
etc 4 25 53
Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :xxxxxxxxxxxxxxxxxxxxxxx
Sheets("Wallonie").Shapes("Rixensart").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et ce que je voudrais, ce sont deux astuces
Une pour que la valeur de la couleur soit celle afficher dans une
cellule (D5 dans ce cas-ci)
Deuxième astuces
Comment faire pour que cela se passe pour toutes les formes de ma
feuille? En prenant bien sur le chiffre de couleur dans la colonne D
sur la même ligne que le nom de la formeSur une feuille nommée ENTREE (mais quelle immagination!) j'ai des
données dans le style
Communes Revendeurs Utilisateurs Tableaux
Rixensart 1 5 14
etc 4 25 53
1 - Feuilles ENTREE
nommer les plages Communes et Tableaux
2 - Feuille WALLONIE
associer aux différentes shapes souhaitées la macro ci-dessous
Option Explicit
Sub ColorShape()
Dim myshape As Shape
Dim selectedshape As String
Dim myindex As Long
'------ retrieve selected shape name
selectedshape = Application.Caller
' ------retrieve current line from Communes
myindex = Application.Index([tableaux],
Application.Match(selectedshape, [Communes], 0), 1)
MsgBox selectedshape & Chr(10) & myindex & " Tableaux"
'------- qualification of the correct shape to avoid physical
selection
Set myshape = Sheets("Wallonie").Shapes(selectedshape)
With myshape.Fill
.Visible = msoTrue
.Solid
'------- immediate IF
'------- 10 is lower value, 11 is schemeColor for green
'------- 20 is higher value, 10 is schemecolor for red, 12 is
schemecolor for blue
.ForeColor.SchemeColor = IIf(myindex < 10, 11, IIf(myindex <
20, 10, 12))
End With
End Sub
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
xxxxxxxxxxxxxxxxxxxxxxx
Sheets("Wallonie").Shapes("Rixensart").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et ce que je voudrais, ce sont deux astuces
Une pour que la valeur de la couleur soit celle afficher dans une
cellule (D5 dans ce cas-ci)
Deuxième astuces
Comment faire pour que cela se passe pour toutes les formes de ma
feuille? En prenant bien sur le chiffre de couleur dans la colonne D
sur la même ligne que le nom de la forme
Sur une feuille nommée ENTREE (mais quelle immagination!) j'ai des
données dans le style
Communes Revendeurs Utilisateurs Tableaux
Rixensart 1 5 14
etc 4 25 53
1 - Feuilles ENTREE
nommer les plages Communes et Tableaux
2 - Feuille WALLONIE
associer aux différentes shapes souhaitées la macro ci-dessous
Option Explicit
Sub ColorShape()
Dim myshape As Shape
Dim selectedshape As String
Dim myindex As Long
'------ retrieve selected shape name
selectedshape = Application.Caller
' ------retrieve current line from Communes
myindex = Application.Index([tableaux],
Application.Match(selectedshape, [Communes], 0), 1)
MsgBox selectedshape & Chr(10) & myindex & " Tableaux"
'------- qualification of the correct shape to avoid physical
selection
Set myshape = Sheets("Wallonie").Shapes(selectedshape)
With myshape.Fill
.Visible = msoTrue
.Solid
'------- immediate IF
'------- 10 is lower value, 11 is schemeColor for green
'------- 20 is higher value, 10 is schemecolor for red, 12 is
schemecolor for blue
.ForeColor.SchemeColor = IIf(myindex < 10, 11, IIf(myindex <
20, 10, 12))
End With
End Sub
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :xxxxxxxxxxxxxxxxxxxxxxx
Sheets("Wallonie").Shapes("Rixensart").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et ce que je voudrais, ce sont deux astuces
Une pour que la valeur de la couleur soit celle afficher dans une
cellule (D5 dans ce cas-ci)
Deuxième astuces
Comment faire pour que cela se passe pour toutes les formes de ma
feuille? En prenant bien sur le chiffre de couleur dans la colonne D
sur la même ligne que le nom de la formeSur une feuille nommée ENTREE (mais quelle immagination!) j'ai des
données dans le style
Communes Revendeurs Utilisateurs Tableaux
Rixensart 1 5 14
etc 4 25 53
1 - Feuilles ENTREE
nommer les plages Communes et Tableaux
2 - Feuille WALLONIE
associer aux différentes shapes souhaitées la macro ci-dessous
Option Explicit
Sub ColorShape()
Dim myshape As Shape
Dim selectedshape As String
Dim myindex As Long
'------ retrieve selected shape name
selectedshape = Application.Caller
' ------retrieve current line from Communes
myindex = Application.Index([tableaux],
Application.Match(selectedshape, [Communes], 0), 1)
MsgBox selectedshape & Chr(10) & myindex & " Tableaux"
'------- qualification of the correct shape to avoid physical
selection
Set myshape = Sheets("Wallonie").Shapes(selectedshape)
With myshape.Fill
.Visible = msoTrue
.Solid
'------- immediate IF
'------- 10 is lower value, 11 is schemeColor for green
'------- 20 is higher value, 10 is schemecolor for red, 12 is
schemecolor for blue
.ForeColor.SchemeColor = IIf(myindex < 10, 11, IIf(myindex <
20, 10, 12))
End With
End Sub
Ben cette fois-ci j'y comprends rien
Alors que ce que je cherche à faire et d'avoir une carte de Wallonie
dont les zones sont coloriées
en fonctions de leurs chiffres
Donc une macro générale affectée à un bouton
Ben cette fois-ci j'y comprends rien
Alors que ce que je cherche à faire et d'avoir une carte de Wallonie
dont les zones sont coloriées
en fonctions de leurs chiffres
Donc une macro générale affectée à un bouton
Ben cette fois-ci j'y comprends rien
Alors que ce que je cherche à faire et d'avoir une carte de Wallonie
dont les zones sont coloriées
en fonctions de leurs chiffres
Donc une macro générale affectée à un bouton
Et voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Rex
"FFO" a écrit dans le message de news:Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Et voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Rex
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
7F813936-7EF6-4F5B-9132-F17BF66AF503@microsoft.com...
Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Et voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Rex
"FFO" a écrit dans le message de news:Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Quelle est la plage de cellules servant au coloriage ?Et voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Rex
"FFO" a écrit dans le message de news:Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est
inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Quelle est la plage de cellules servant au coloriage ?
Et voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Rex
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
7F813936-7EF6-4F5B-9132-F17BF66AF503@microsoft.com...
Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est
inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Quelle est la plage de cellules servant au coloriage ?Et voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Rex
"FFO" a écrit dans le message de news:Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est
inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Bonjour
Bien vu!!
Je viens de créer deux nouvelles plages
EntreeListeCommuneTotal pour les chiffres
EntreeListeCommuneTotal pour les noms des communes
Rex
"Daniel.C" a écrit dans le message de news:
%Quelle est la plage de cellules servant au coloriage ?Et voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Rex
"FFO" a écrit dans le message de news:Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Bonjour
Bien vu!!
Je viens de créer deux nouvelles plages
EntreeListeCommuneTotal pour les chiffres
EntreeListeCommuneTotal pour les noms des communes
Rex
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23xxIuGNpKHA.5776@TK2MSFTNGP04.phx.gbl...
Quelle est la plage de cellules servant au coloriage ?
Et voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Rex
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de news:
7F813936-7EF6-4F5B-9132-F17BF66AF503@microsoft.com...
Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Bonjour
Bien vu!!
Je viens de créer deux nouvelles plages
EntreeListeCommuneTotal pour les chiffres
EntreeListeCommuneTotal pour les noms des communes
Rex
"Daniel.C" a écrit dans le message de news:
%Quelle est la plage de cellules servant au coloriage ?Et voici le fichier
http://www.cijoint.fr/cjlink.php?file=cj201002/cijcoSHW79.xls
Rex
"FFO" a écrit dans le message de news:Salut à toi
1° astuce :
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D5")
2° astuce
For i = 1 To Sheets("Wallonie").Shapes.Count
Sheets("Wallonie").Shapes(i).Select
On Error Resume Next
Ligne = 0
Ligne = Cells.Find(What:=Sheets("Wallonie").Shapes(i).Name,
LookIn:=xlValues, LookAt:=xlWhole).Row
If Ligne <> 0 Then
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Range("D" & Ligne)
Else
MsgBox("Le nom " & Sheets("Wallonie").Shapes(i).Name & " est inexistant")
End If
Next
Celà devrait faire
Dis moi !!!!!!
Ben cette fois-ci j'y comprends rien
Alors que ce que je cherche à faire et d'avoir une carte de Wallonie
dont les zones sont coloriées
en fonctions de leurs chiffres
Donc une macro générale affectée à un bouton
Ben cette fois-ci j'y comprends rien
Alors que ce que je cherche à faire et d'avoir une carte de Wallonie
dont les zones sont coloriées
en fonctions de leurs chiffres
Donc une macro générale affectée à un bouton
Ben cette fois-ci j'y comprends rien
Alors que ce que je cherche à faire et d'avoir une carte de Wallonie
dont les zones sont coloriées
en fonctions de leurs chiffres
Donc une macro générale affectée à un bouton