Carte délais France département - Colorier

Re,

Oui la boucle sur les lignes sera désormais For n= 2 to 96 et il faudra remplacer le nom de la feuille (84 pour l'instant) par celui de ton nouvel onglet

La 3eme étape pour lancer la macro tu as 2 possibilités :
- soit à partir de l'onglet Développeur dans le ruban des menus en haut puis Macros et selectionner le nom de la macro à exécuter (la manip est à faire à chaque actualisation)
Si l'onglet Developpeur n'est pas présent cliquer sur bouton Excel en haut à gauche puis Options Excel puis Standard et cocher Afficher onglet Developpeur dans le ruban
- soit de créer un bouton dans la feuille carte de France pour lancer la macro et actualiser la carte : Onglet Developpeur Inserer puis choisir le bouton dans les contrôles ActiveX l'inserer sur la page puis clic droit sur le bouton Visualiser le code et sous Private Sub CommandButton1_Click() tu inseres une ligne avec simplement le nom de la macro à eacuter soit colorie

Par contre peux tu me dire où tu as trouvé une carte avec les formes de chaque département, cela m'interesse

Cdlmnt

J'ai bien fait ce que tu m'as dit, j'ai créé un bouton

Je suis dans développeur, j'ai fait insérer, Controles ActiveX, clic droit visualiser le code

Voici le code que je viens de renseigner, j'ai juste rajouté colorie comme tu peux le voir:
Private Sub CommandButton1_Click()
colorie
End Sub

Ensuite j'ai enregistré et quand je click sur le bouton il n'y a rien qui se passe, je peux juste sélectionner le bouton et voici le nom de la formule du bouton
=INCORPORER("Forms.CommandButton.1";"")

Sais tu pourquoi ca ne fonctionne pas ?

Voici le macro que j'ai inséré au début:
Sub colorie()
For n = 2 To 96
dep = Sheets("111").Range("A" & n)
delai = Sheets("111").Range("C" & n)
nomdep = "&" & dep
Select Case delai
Case 0
Sheets("Carte de France").Shapes(nomdep).Fill.ForeColor.RGB = RGB(255, 192, 0)
Case 1
Sheets("Carte de France").Shapes(nomdep).Fill.ForeColor.RGB = RGB(0, 112, 192)
Case 2
Sheets("Carte de France").Shapes(nomdep).Fill.ForeColor.RGB = RGB(123, 210, 240)
Case 3
Sheets("Carte de France").Shapes(nomdep).Fill.ForeColor.RGB = RGB(17, 213, 134)
End Select
Next n
End Sub

Dans l'onglet Developpeur as tu bien désactivé le mode création après avoir avoir inséré le code ?
Si malgré tout ça ne fonctionne pas repost moi ton fichier, je regarderai

Et je te redemandes si possible la source de ta carte, j'en ai mais pas des aussi bien.

D'avance merci

Cdlmnt