SwimCoachNico79
XLDnaute Occasionnel
Bonjour à tous,
J'ai crée une carte de l'IDF avec l'outil forme libre d'Excel (onglet : "carteIDF").
Chaque forme se nomme "idfrce1" jusqu'à "idfrce8".
Mes données se trouvent dans mon onglet : "resultIDF"
J'ai écris la macro suivante :
Sub show_resultIDF()
For I = 1 To 8
ActiveSheet.Shapes("idfrce" & I).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(242, 242, 242)
Next
borne_1 = Cells(33, 2)
borne_2 = Cells(34, 2)
borne_3 = Cells(35, 2)
borne_4 = Cells(35, 2)
J = 2
While Sheets("resultIDF").Cells(J, 4) <> ""
K = Sheets("resultIDF").Cells(J, 1)
If Sheets("resultIDF").Cells(J, 4) > borne_4 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 102)
ElseIf Sheets("resultIDF").Cells(J, 4) > borne_3 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 38, 140)
ElseIf Sheets("resultIDF").Cells(J, 4) > borne_2 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 77, 179)
ElseIf Sheets("resultIDF").Cells(J, 4) > borne_1 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 115, 217)
ElseIf Sheets("resultIDF").Cells(J, 4) > 0 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 153, 255)
End If
J = J + 1
Wend
End Sub
Ma question : comment je peux insérer dans chacune des formes le contenu de la cellule correspondante.
Merci d'avance pour votre aide.
SCN79
J'ai crée une carte de l'IDF avec l'outil forme libre d'Excel (onglet : "carteIDF").
Chaque forme se nomme "idfrce1" jusqu'à "idfrce8".
Mes données se trouvent dans mon onglet : "resultIDF"
J'ai écris la macro suivante :
Sub show_resultIDF()
For I = 1 To 8
ActiveSheet.Shapes("idfrce" & I).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(242, 242, 242)
Next
borne_1 = Cells(33, 2)
borne_2 = Cells(34, 2)
borne_3 = Cells(35, 2)
borne_4 = Cells(35, 2)
J = 2
While Sheets("resultIDF").Cells(J, 4) <> ""
K = Sheets("resultIDF").Cells(J, 1)
If Sheets("resultIDF").Cells(J, 4) > borne_4 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 102)
ElseIf Sheets("resultIDF").Cells(J, 4) > borne_3 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 38, 140)
ElseIf Sheets("resultIDF").Cells(J, 4) > borne_2 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 77, 179)
ElseIf Sheets("resultIDF").Cells(J, 4) > borne_1 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 115, 217)
ElseIf Sheets("resultIDF").Cells(J, 4) > 0 Then
ActiveSheet.Shapes("idfrce" & K).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 153, 255)
End If
J = J + 1
Wend
End Sub
Ma question : comment je peux insérer dans chacune des formes le contenu de la cellule correspondante.
Merci d'avance pour votre aide.
SCN79