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

Carte de france

Créer une discussion

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
B

bloublou

XLDnaute Occasionnel
Bonjour à tous,

J'avais trouvé cette carte de france sur le forum, après avoir lu pas mal de fils.
Merci à ceux qu'ils l'ont developpé pour avoir fait cet énorme travail 🙂

J'ai essayé de commenter le code mais je ne comprends pas tous les enchevêtrements.
Est-ce que quelqu'un peut m'aider à y voir plus clair ? 😕

Egalement le but de la compréhension du code, serait de pouvoir le modifier pour arriver à mettre sur le côté de la carte de france (CF) les informations de la feuille liste :

Exemple :

je clique sur le dpt des bouches du rhône j'obtiens les 3 noms de ma liste.

Est-ce que quelqu'un peut m'aider pour cette demande ?

Merci

BlouBlou
 

Pièces jointes

Trier par date Trier par votes
Re : Carte de france

Bonsoir bloublou, Salut JC 🙂
Ma pierre à l'édifice
VB: 
=SI(LIGNES($1:1)<=NB.SI(Liste!$G$2:$G$8;$P$1);INDEX(Liste!$B$2:$G$8;(EQUIV($P$1;Liste!$G$2:$G$8;0)-1)+LIGNES($1:1);COLONNES($A:A));"")
A tirer de K15 à P22 ou plus si affinités 😀.
J'ai déplacé ce qui s'inscrit en P15 vers la cellule P1 pour garder la cohérence de la formule.
Je suis bien certain qu'il y a mieux.
Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Carte de france

Bonjour bloublou,
Salut Jean-Claude, Efgé,

une autre pierre à l'édifice

à+
Philippe

Edit: Nouvelle version avec une petite correction
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Carte de france

Bonjour JCGL, Efgé, phlaurent55, et Modeste geedee,

Merci à tous pour ces solutions.

Effectivement JCGL l'index equiv mais le pb il prend que le 1er resultat trouvé 🙁 🙁 🙁 Mais c vrai que je n'ai pas pensé à l'appliquer comme premiere solution à notre cas 🙂


Par contre Efgé, je n'ai pas réussi à ouvrir ton fichier, un contenu illisible, il a pas aimé :-(

Phlaurent55, je ne comprends pas l'utilisation de la formule ligne()-14.

Modeste Geedee est-ce que tu peux m'expliquer un petit plus sur ton code ? que je comprenne bien toute la logique.

En tout cas merci à tous pour tes solutions 🙂 🙂 🙂

BlouBlou
 
Vote positif 0 Vote négatif
Re : Carte de france

Bonsour®
bloublou à dit:
Modeste Geedee est-ce que tu peux m'expliquer un petit plus sur ton code ? que je comprenne bien toute la logique.
Cliquez pour agrandir...

[Highlight=VB]
Sub Macro1()
Dim noDpt As Integer, Ligne As Integer, Colonne As Integer
Dim c As Range, FirstAddress As String
' ---------------------------------récuperation du N°dept issu de la selection
' ---------------------------------voir module de feuille Sht_Fra : Sub Cbx_Dpt_Click()
noDpt = [q14]
' ---------------------------------blocage rafraichissement écran(clignotement)
Application.ScreenUpdating = False
' -------------------------------- effacement de la palge de réception
Sheets("France").[K15:q45].ClearContents
' -------------------------------- la source est la plage de de données de la feuille liste
With Worksheets("liste").Range("a1:a100")
' --------------------------------code adapté de l'aide en ligne
' -------ms-help://MS.EXCEL.DEV.12.1036/EXCEL.DEV/content/HV10062997.htm
' --------------------------------recherche NoDpt dans valeurs, cellule complete
Set c = .Find(noDpt, LookIn:=xlValues, lookat:=xlWhole)
' --------------------------------correspondance trouvée
If Not c Is Nothing Then
'--------------------------------- initialisation ligne cible
Ligne = 15
' --------------------------------première adresse trouvée
FirstAddress = c.Address
' -------------------------------- bouclage sur les colonnes pour récuperer les données
Do
For Colonne = 1 To 6 ' ---il y a 6 colonnes de données
' ----------------------- ecriture cible décaleé de 10 colonnes / à la colonne lue
Sheets("France").Cells(Ligne, Colonne + 10) = c.Offset(0, Colonne)
Next
' ----------------------- ecriture NoDpt pour rappel
Sheets("France").Cells(Ligne, 17) = noDpt
' -------------------------recherche suivante
Ligne = Ligne + 1 ' -- prépositionnement ligne cible suivante
' -------------------------rechercheche suivante selon parametre Find initial
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FirstAddress
' --------------------------sortie de recherche si adresse trouvée identique à premiere
End If
End With
' -------------------------réactivation rafraichissement écran
Application.ScreenUpdating = True
End Sub

[/code]
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Carte de france

Bonjour Modeste Geedee,

Merci pour ton info sur l'aide en ligne.
Mais j'ai du mal à comprendre cette ligne même dans l'exemple :

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then => Si c'est c est différent de rien ? parce que la methode Find renvoie nothing ?
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress => Boucle jusqu'à ce que c est à rien Et l'adresse de C est différent de first adresse
End If
End With

Merci beaucoup

BlouBlou
 
Vote positif 0 Vote négatif
Re : Carte de france

Bonsour® Cette méthode renvoie Nothing si aucune correspondance n'est trouvée.
La méthode Find n'affecte pas la sélection ni la cellule active.
c'est l'équivalent mathématique de l'ensemble Vide (rien, Nada...)


il faut traduire :
Loop tant que (pas Nothing ET adresse <> 1ere adresse)
ou encore
Loop tant que l'on trouve une adresse différente de la première

Lorsque la recherche atteint la fin de la plage de recherche spécifiée, elle
revient au début de cette plage. Pour arrêter une recherche lorsqu'elle revient
au point de départ, enregistrez l'adresse de la première cellule trouvée, puis
comparez l'adresse de chaque cellule ultérieurement trouvée avec l'adresse
enregistrée.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Carte de france

Bonjour Modeste Geedee,

Merci pour toutes ces explications 🙂 🙂

Encore une derniere chose, le :

Set c = .Find(2, lookin:=xlValues)
Set => initialise la variable c ? à la place de c (plage de cellule) c'est la recherche du chiffre 2 ?

Merci

BlouBlou
 
Vote positif 0 Vote négatif
Re : Carte de france

Bonsour®
c'est vrai que l'exemple Microsoft n'est pas didactiquement trés cohérent

il aurait fallut ecrire :
Set c = .Find(What:=2, lookin:=xlValues, MatchCase:=true, lookat:=xlwhole)
paramétres expréssement nommés (à privilégier !!!)

cela est autorisé ici car le parametre What est le premier à fournir et dans le cas présent le nom de l'argument peut etre omis,
les parametres étant nommés l'ordre est alors sans incidence.

ce n'est pas le cas des parametres suivants qui doivent expréssement etre nommés si chacun n'est pas documenté, les arguments étant chacuns facultatifs.

Function Find(What, [After], [LookIn], [LookAt], [SearchOrder], [SearchDirection As XlSearchDirection = xlNext], [MatchCase], [MatchByte], [SearchFormat])

set c =.find(2, , xlvalue, xlwhole, , , true)
parametres non nommés, ils doivent etre dans l'ordre !!

la formulation équivalente ci-dessous est à éviter !!! #?!¿
set c =.find(2, , -4163, 1, , , -1)
 
Vote positif 0 Vote négatif
Re : Carte de france

salut

tu pouvais passer par une simple boucle :
Code: 
Sub Macro1()
  Dim noDpt As Integer, Ligne As Integer, Colonne As Integer
  Dim c As Range, a As String
  noDpt = [q14]
  Application.ScreenUpdating = False
  With Sheets("France")
    .[K15:q45].ClearContents
    Ligne = 15
    For Each c In Worksheets("Liste").Range("A1:A100")
      If c = noDpt Then
        For Colonne = 1 To 6
          .Cells(Ligne, Colonne + 10) = c.Offset(, Colonne)
        Next
        .Cells(Ligne, 17) = noDpt
        Ligne = Ligne + 1
      End If
    Next
  End With
End Sub
 
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

H
  • Question Question
Microsoft 365 Carte Choroplèthe avec Région de France
Réponses
8
Affichages
544
HB66
H
S
StfDuberry
Réponses
0
Affichages
412
StfDuberry
S
D
  • Question Question
XL 2021 Carte choroplèthe - Hotel sélectionnée Iles de France
Réponses
2
Affichages
342
djunbi
D
T
  • Question Question
XL 2016 Carte de France interactive
Réponses
3
Affichages
2 K
Tophehb
T
  • Question Question
Microsoft 365 Carte choroplèthe: communes Ille-et-Vilaine
2 3
Réponses
31
Affichages
5 K
Efgé
L
  • Question Question
XL 2019 Carte interactive France HS
2
Réponses
28
Affichages
3 K
Usine à gaz
S
  • Question Question
XL 2010 Résultats possibles d'une combinaison de nombres
Réponses
2
Affichages
2 K
Stellaire
S
E
  • Question Question
XL 2013 Dessiner carte communes
2 3
Réponses
34
Affichages
4 K
SAMSICFM
S
R
  • Question Question
Microsoft 365 Carte de france "coloriable"
Réponses
6
Affichages
3 K
Efgé
T
  • Question Question
XL 2016 Gestion/suivi dynamique du personnel sur une carte de France
Réponses
5
Affichages
2 K
TechnologyNewStore
T
B
  • Question Question
Autres Renvoyer un nom dans une cellule en fonction d'une résultat dans une autre
Réponses
8
Affichages
1 K
BabyDolphin30
B
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
F
  • Résolu(e)
Microsoft 365 Copier à tour de rôle les éléments d'une liste vers une même cellule
Réponses
1
Affichages
453
flint125
F
C
  • Question Question
Microsoft 365 Problème Code VBA
Réponses
9
Affichages
561
fanch55
S
  • Question Question
XL 2016 Nombre de facture close
Réponses
11
Affichages
728
JHA
J
C
  • Question Question
XL 2021 Mise en forme d'un tableau de résultats avec powerquery
Réponses
0
Affichages
764
CDR77
C
J
  • Question Question
XL 2013 Obtenir une boucle de liste dans un tableau qui change avec le choix de l'année
Réponses
2
Affichages
556
mapomme
A
  • Résolu(e)
XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte
2 3 4
Réponses
54
Affichages
4 K
sylvanu
T
  • Question Question
XL 2013 Colorer une carte de France
Réponses
1
Affichages
1 K
Staple1600
O
  • Question Question
Microsoft 365 fonction HISTORIQUE.ACTIONS : dépend du jour de la semaine ?
Réponses
3
Affichages
883
OMX33
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…