Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Actualiser des données sur une carte de France

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion L_Bear
  • Date de début Date de début
  • Mots-clés Mots-clés
    carte

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

L_Bear

XLDnaute Nouveau
Bonjour à tous,

J'ai trouvé sur ce forum un fichier avec une carte de France dont les départements se colorient en fonction des valeurs d'une cellule.

Je l'ai un peu modifié pour qu'il corresponde à mes attentes et j'en suis content à une exception près.

Les valeurs des cellules doivent être entrées "à la main" dans l'onglet "répartition" pour que les départements se colorent, or j'aimerai que les cellules renvoient à un onglet de données que je mettrai à jour de temps en temps.

Le problème est que la mise à jour de ce fameux onglet (évolutions) ne "déclenche pas le code" et que du coup mes départements ne se colorent pas.

Comment pourrais-je rajouter un bouton "Mise à jour" qui permet de faire en sorte que tout s'actualise ?

Je ne sais pas si je suis clair...

En tout cas merci de votre aide !
 

Pièces jointes

Trier par date Trier par votes
Cela fonctionne si je change les valeurs dans le tableau du second onglet "à la main".
Or ce tableau comporte des données issues d'un tableau croisé dynamique normalement situé dans un troisième onglet (pas dans le document pour des raisons de confidentialité).

Donc quand je met à jour le TCD du 3eme onglet, le tableau du second onglet se met à jour, mais pas les couleurs des départements du premier onglet, d'où l'idée d'un bouton qui pourrait résoudre le problème.

Pourriez vous m'aider s'il vous plait ?
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour,

Pour expliciter un peu plus le problème :

Le bouton effacer vide la colonne C de ses valeurs, et recolorie les départements en blancs.

Comment créer un bouton qui commande le remplissage de la colonne C en fonction des valeurs du deuxième onglet, et qui appelle la fonction qui colorie les départements ?

Merci de votre aide, et désolé pour le double post.
 
Vote positif 0 Vote négatif
Re
Modifie la macro comme suit
Code: 
Private Sub BoutonEffacer_Click()
Dim Reponse As Variant
Dim PosCel As Byte
Application.EnableEvents = False
Reponse = MsgBox("Voulez-vous vraiment tout effacer?", vbYesNo, "Effacement")
If Reponse = vbYes Then
    Application.ScreenUpdating = False
    For PosCel = 0 To Range(Range("B2"), Range("B2").End(xlDown)).Offset(0, 1).Cells.Count - 1
        Range("C2").Offset(PosCel, 0).ClearContents
    Next PosCel
    ThisWorkbook.Sheets(1).Shapes("CarteFrance").Fill.ForeColor.RGB = 16777215  ' Blanc
    ThisWorkbook.Sheets(1).Shapes("Rectangle 5").Fill.ForeColor.RGB = 15773696   ' Bleu
    ThisWorkbook.Sheets(1).Shapes("Freeform 31").Fill.ForeColor.RGB = 10921638  ' Gris
    ThisWorkbook.Sheets(1).Shapes("Freeform 6").Fill.ForeColor.RGB = 10921638  ' Gris
    ThisWorkbook.Sheets(1).Shapes("Freeform 13").Fill.ForeColor.RGB = 10921638  ' Gris
    ThisWorkbook.Sheets(1).Shapes("Freeform 8").Fill.ForeColor.RGB = 10921638  ' Gris
    ThisWorkbook.Sheets(1).Shapes("Freeform 10").Fill.ForeColor.RGB = 10921638  ' Gris
    ThisWorkbook.Sheets(1).Shapes("Freeform 19").Fill.ForeColor.RGB = 10921638  ' Gris
    ThisWorkbook.Sheets(1).Shapes("Freeform 15").Fill.ForeColor.RGB = 10921638  ' Gris
    ThisWorkbook.Sheets(1).Shapes("Freeform 23").Fill.ForeColor.RGB = 10921638  ' Gris
    ThisWorkbook.Sheets(1).Shapes("Freeform 28").Fill.ForeColor.RGB = 10921638  ' Gris
    ThisWorkbook.Sheets(1).Shapes("Freeform 17").Fill.ForeColor.RGB = 10921638  ' Gris
    For i = 2 To 97
      ActiveSheet.Shapes.Range(Array(Cells(i, 2))).Select
      Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = ""
    Next
    Cells(2, 3).Select
    Application.ScreenUpdating = True
End If
Application.EnableEvents = True
For Each cel In Sheets("Evolutions").Range("C3:C" & Sheets("Evolutions").Range("C" & Rows.Count).End(xlUp).Row)
   ad = cel.Offset(-1).Address
   Sheets("Répartition").Range(ad) = cel.Value
Next
End Sub
 
Vote positif 0 Vote négatif
Mon bouton effacer s'est donc transformé en un bouton "mettre à jour les données" en somme !
Mais à priori cela fonctionne bien sur ce document.

Dernière chose : dans mon document final l'onglet répartition comporte plusieurs colonnes, et les valeurs qui m’intéressent sont situées dans la colonne F. Je voudrais que le bouton les transfère dans la colonne C du premier onglet.

J'adapte donc le code ainsi :

Code: 
For Each cel In Sheets("Evolutions").Range("F3:F" & Sheets("Evolutions").Range("F" & Rows.Count).End(xlUp).Row)
   ad = cel.Offset(-1).Address
   Sheets("Répartition").Range(ad) = cel.Value
Next

Mais évidement les valeurs arrivent dans la colonne F...
Comment faire ?

Merci pour votre aide !
 
Vote positif 0 Vote négatif
Re
Ok pour colonne F mais le départ est-il sur la même ligne (ou décalé comme dans ton fichier : si oui de combien et dans quel sens ?? )
N'est-il pas plus simple de poster un fichier conforme au problème ????
 
Vote positif 0 Vote négatif
Le départ est en décalé, donc je n'ai pas touché au offset.
La seule chose qui change c'est que maintenant les chiffres de l'onglet évolution sont en colonne F.

C'est surement simple mais je n'arrive pas à trouver.

Désolé pour la différence de fichier, j'ai du le tronquer pour cacher certaines colonnes.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2016 Listing commune sur excel reliée a une carte
Réponses
2
Affichages
883
chris
V
  • Question Question
Autres Importer des données avec condition depuis l'onglet source
Réponses
4
Affichages
479
vdudu
V
L
  • Résolu(e)
Power Query Problème de fusion de données entre deux fichiers Excel sous Power Query
Réponses
8
Affichages
424
chris
P
  • Question Question
Microsoft 365 Créer un radar dynamique en lien avec des données d'un tableau excel
Réponses
6
Affichages
300
sylvanu
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
349
Dégé59
D
S
  • Question Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
597
Jacky67
S
  • Question Question
Microsoft 365 Ventiler des données sur une année (sans TCD)
2
Réponses
25
Affichages
567
cathodique
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
340
sylvanu
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
617
Musbek
M
S
  • Question Question
XL 2010 Résultats possibles d'une combinaison de nombres
Réponses
2
Affichages
1 K
Stellaire
S
L
  • Question Question
XL 2021 Transformer des données verticales en horizontales et mettre à jour un graphique automatiquement
Réponses
11
Affichages
367
Leina
L
B
  • Question Question
XL 2016 Somme automatique des prix associés aux produits sélectionnés sur Excel
Réponses
6
Affichages
272
bkarima1
B
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
779
Dégé59
D
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
562
JJ69
J
S
  • Résolu(e)
XL 2010 tableau de cumul automatisé
Réponses
13
Affichages
590
stefiskool
S
S
  • Question Question
Autres Report de données d'un onglet sur autre pour récapitulatif
Réponses
0
Affichages
398
Shimano
S
T
  • Question Question
XL 2016 Gestion/suivi dynamique du personnel sur une carte de France
Réponses
5
Affichages
2 K
TechnologyNewStore
T
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
2 K
sousou
P
  • Question Question
XL 2021 Code VBA pour copier coller des données de cellules d'une feuille a une autre
2
Réponses
15
Affichages
1 K
lafleur
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…