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

Localiser cellule alimentée par liaison

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Madjon6
  • Date de début Date de début

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
M

Madjon6

XLDnaute Occasionnel
Bonjour,

Je cherche un code vba me permettant de localiser les cellules qui sont alimentées par des fichiers en liaisons et par quel fichier.

En effet j'ai des fichiers avec trop de liaisons vers d'autres fichiers et je perds un temps fou à comprendre quelle liaison alimente quelle cellule.


Merci à vous
 
Trier par date Trier par votes
Re : Localiser cellule alimentée par liaison

Bonjour,

A adapter:

Code: 
[COLOR=BLUE]Sub[/COLOR] AfficherLiens()
    [COLOR=BLUE]Dim[/COLOR] formulesLiens [COLOR=BLUE]As[/COLOR] Range, c [COLOR=BLUE]As[/COLOR] Range
    [COLOR=BLUE]Dim[/COLOR] sh [COLOR=BLUE]As[/COLOR] Worksheet
    [COLOR=BLUE]Dim[/COLOR] Adr [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]String[/COLOR], Texte [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]String[/COLOR]
    [COLOR=BLUE]For[/COLOR] [COLOR=BLUE]Each[/COLOR] sh [COLOR=BLUE]In[/COLOR] Worksheets
        [COLOR=BLUE]With[/COLOR] sh.UsedRange
            [COLOR=BLUE]Set[/COLOR] c = .Find([i]"*.xls"[/i], LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=[COLOR=BLUE]False[/COLOR])
            [COLOR=BLUE]If[/COLOR] [COLOR=BLUE]Not[/COLOR] c [COLOR=BLUE]Is[/COLOR] [COLOR=BLUE]Nothing[/COLOR] [COLOR=BLUE]Then[/COLOR]
                Adr = c.Address
                [COLOR=BLUE]Do[/COLOR]
                    Texte = Texte & [i]"'"[/i] & sh.Name & [i]"'!"[/i] & c.Address & [i]" -> "[/i] & c.Formula & Chr(10)
                    [COLOR=BLUE]Set[/COLOR] c = .FindNext(c)
                [COLOR=BLUE]Loop[/COLOR] [COLOR=BLUE]While[/COLOR] [COLOR=BLUE]Not[/COLOR] c [COLOR=BLUE]Is[/COLOR] [COLOR=BLUE]Nothing[/COLOR] [COLOR=BLUE]And[/COLOR] c.Address <> Adr
            [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
        [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
    [COLOR=BLUE]Next[/COLOR]
    [COLOR=BLUE]If[/COLOR] Len(Texte) > 0 [COLOR=BLUE]Then[/COLOR] MsgBox Texte
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]

A+
 
Vote positif 0 Vote négatif
Re : Localiser cellule alimentée par liaison

Oui c'est à peu près ça mais le résultat n'est pas très lisible et comme je ne suis novice sur VBA je vais avoir du mal à lo'adapter pour rendre le résultat lisible. l'idéal serait que les cellule ayant pour source une liaison soit coloriée ....
 
Vote positif 0 Vote négatif
Re : Localiser cellule alimentée par liaison

Bonjour,

Avec un bonjour ça passe mieux. Et tu pouvais pas préciser ta demande de coloration dès le départ.

Code: 
[COLOR=BLUE]Sub[/COLOR] AfficherLiens()
    [COLOR=BLUE]Dim[/COLOR] formulesLiens [COLOR=BLUE]As[/COLOR] Range, c [COLOR=BLUE]As[/COLOR] Range
    [COLOR=BLUE]Dim[/COLOR] sh [COLOR=BLUE]As[/COLOR] Worksheet
    [COLOR=BLUE]Dim[/COLOR] Adr [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]String[/COLOR]
    [COLOR=BLUE]For[/COLOR] [COLOR=BLUE]Each[/COLOR] sh [COLOR=BLUE]In[/COLOR] Worksheets
        [COLOR=BLUE]With[/COLOR] sh.UsedRange
            [COLOR=BLUE]Set[/COLOR] c = .Find([i]"*.xls"[/i], LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=[COLOR=BLUE]False[/COLOR])
            [COLOR=BLUE]If[/COLOR] [COLOR=BLUE]Not[/COLOR] c [COLOR=BLUE]Is[/COLOR] [COLOR=BLUE]Nothing[/COLOR] [COLOR=BLUE]Then[/COLOR]
                Adr = c.Address
                [COLOR=BLUE]Do[/COLOR]
                    c.Interior.ColorIndex = 44
                    [COLOR=BLUE]Set[/COLOR] c = .FindNext(c)
                [COLOR=BLUE]Loop[/COLOR] [COLOR=BLUE]While[/COLOR] [COLOR=BLUE]Not[/COLOR] c [COLOR=BLUE]Is[/COLOR] [COLOR=BLUE]Nothing[/COLOR] [COLOR=BLUE]And[/COLOR] c.Address <> Adr
            [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
        [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
    [COLOR=BLUE]Next[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]

A+
 
Vote positif 0 Vote négatif
Re : Localiser cellule alimentée par liaison

Bonjour Hasco désolé pour le désagrément.

Par contre serait ce possible d'avoir un supplément de code permettant d'enlever la couleur au besoin.

Merci encore
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Localiser cellule alimentée par liaison

Bonjour Majon6, salut Hasco 🙂

Si l'on change son fusil d'épaule à chaque post ça ne va pas être triste 🙄

S'il s'agit seulement de colorer les cellules avec liaison, on peut aussi plus simplement utiliser une MFC appliquée à toutes les cellules de chaque feuille.

1) Dans chaque feuille sélectionner toutes les cellules.

2) Menu Insertion-Nom et définir le nom F par la formule (en A1) :

Code: 
=LIRE.FORMULE(Feuil1!A1)

3) Menu Format-Mise en forme conditionnelle => La formule est :

Code: 
=CHERCHE("[";F)

qui fonctionne même si le document en liaison n'est pas enregistré.

Nota : LIRE.FORMULE est une fonction macro Excel 4.0.

A+
 
Dernière édition:
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

  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
698
jeff1494
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
554
Yogean
Y
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
349
p'tit vieux
T
  • Question Question
Microsoft 365 Bouton qui change de taille...
Réponses
3
Affichages
884
ThierryP
T
A
  • Résolu(e)
Microsoft 365 cumuler des valeurs de cellules dont l'emplacement peut varier dans des tableaux
Réponses
4
Affichages
652
auloin
A
L
  • Question Question
XL 2013 Liaisons Word / Excel : quelle solution retenir et comment la mettre en œuvre
2 3 4
Réponses
50
Affichages
6 K
LMOAL
L
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
532
AtTheOne
N
  • Question Question
Microsoft 365 Affichage information de plusieurs cellules à partir d'une seule
Réponses
8
Affichages
452
narkoleptik
N
  • Question Question
XL 2016 Apparition de cadres en survol de cellule
Réponses
2
Affichages
469
flocon
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
846
Lu76Fer
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
807
MarineU
M
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
645
JJ69
J
T
  • Question Question
XL 2016 Récupérer le contenu de cellule par VBA
2 3
Réponses
37
Affichages
2 K
telemarrk
T
D
  • Question Question
XL 2016 Utiliser un équivalent de INDIRECT sur des classeurs fermés
Réponses
8
Affichages
952
job75
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
S
  • Question Question
XL 2016 Comment remplir mon tableau quotidiennement par liaison et conserver les valeurs de la veille?
Réponses
8
Affichages
1 K
xUpsilon
A
  • Résolu(e)
Microsoft 365 Interpolation avec données date et pourcentage
Réponses
3
Affichages
767
Alex_P
A
E
  • Question Question
Microsoft 365 utilisation de la fonction rechercher/remplacer pour ajouter un caractère d'annihilation par ' en amont de chaque contenu de la cellule
Réponses
2
Affichages
578
elgringo123456
E
L
  • Résolu(e)
XL 2016 MFC sur plusieurs critères
2 3 4
Réponses
55
Affichages
3 K
Lorenzini
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…