Carte final

Question

Ma carte est prete avec les fonctionnalité que je veux maisj'ai perdu la fonctionnalité de cliquer sur un département et le faire apparaitre en H6 désoler banzaï (ou tout autre ame charitable )cela doit etre pénible de se répéter mais plus je pratique et plus j'apprend merci d'avance...

dsou · Accepted Answer

Fichier interressant modifie comme ceci dans les évènements Sub Evt_Dpt01_Sel() Sheets("france").Range("h6") = 1 End Sub Sub Evt_Dpt02_Sel() Sheets("france").Range("h6") = 2 End Sub et comme cela dans la feuille france Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("H6")) Is Nothing Then If Val(Target) &gt; 0 And Val(Target) &lt; 96 And Val(Target) &lt;&gt; 20 Then Evt_Dpt_Sel (Target) 'Run "Evt_Dpt" & Format(Range("H6"), "00") & "_Sel" cette ligne disparait End If End If End Sub...