Dernier petit coup de main macro carte

bonjour,

ma carte est parfaite (grace a certains camarades du forum qui se reconnaitrons) pour mon utilisation, je voudrais juste modifier la macro pour

avoir une carte vierge lorsque je tape 20 , 97 ,98 ou tout autre valeur qui ne soit pas un département sur la carte

merci de votre précieuse aide

Bonjour

Une solution

Remplace le code correspondant dans le code de la page "France"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim J As Byte

  If Not Intersect(Target, Range("H6")) Is Nothing Then
    If Val(Target) > 0 And Val(Target) < 96 And Val(Target) <> 20 Then
      Evt_Dpt_Sel (Target)
    Else
      On Error Resume Next
      For J = 1 To 95
        Sheets("France").Shapes("Dpt" & Format(J, "00")).Fill.ForeColor.RGB = _
            Sheets("France").Shapes("CouleurFrance").Fill.ForeColor.RGB
      Next J
    End If
  End If
End Sub

bonjour,

parfais Banzaï , c'est mieux comme ça !!

derniere petite chose , peut on faire en sorte que les 2 volets indiquant le département et la région soient vierges

si je tape 20 98 ou tout autre valeur que les départements.

cordialement

Bonjour

Modifies ta procédure

Private Sub Worksheet_Change(ByVal Target As Range)
Dim J As Byte

  If Not Intersect(Target, Range("H6")) Is Nothing Then
    If Val(Target) > 0 And Val(Target) < 96 And Val(Target) <> 20 Then
      Evt_Dpt_Sel (Target)
    Else
      On Error Resume Next
      For J = 1 To 95
        Sheets("France").Shapes("Dpt" & Format(J, "00")).Fill.ForeColor.RGB = _
            Sheets("France").Shapes("CouleurFrance").Fill.ForeColor.RGB
      Next J
'
'
'
      Me.Cbx_Dpt.ListIndex = -1
      Me.Cbx_Rgn.ListIndex = -1
'
'
'
    End If
  End If
End Sub

nickel,

cette fois le rendu est parfais

encore merci banzaï