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

VBA - Atteindre une valeur éventuellement présente dans un autre fichier

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

DoubleZero

XLDnaute Barbatruc
Bonjour à toutes et à tous,

Par clic double dans une cellule logée en colonne a ou c du fichier "Tout" (onglet "quoi"), je souhaiterais atteindre la valeur correspondante, située dans le fichier "Détail" (onglet "FT") en colonne a ou b.

Les références présentes en colonnes a et c du fichier "Tout" ne figurent pas forcément en colonnes a et b du fichier "Détails".

Les propriétés des deux fichiers sont les suivantes :


  • C:\Users\00\Downloads\Tout.xlsm ;
  • C:\Users\00\Downloads\Détails.xlsm.

Je vous remercie pour votre aide.

A bientôt 🙂
 

Pièces jointes

Trier par date Trier par votes
Re : VBA - Atteindre une valeur éventuellement présente dans un autre fichier

Bonjour ma petite orchidée 😀

Ce n'est pas que j'aie une solution à te proposer, mais en l'absence de toute réaction, un éclaircissement serait le bienvenu: qu'entends-tu par "je voudrais atteindre la valeur correspondante"? Le fichier "Détails" est ouvert et tu veux que la cellule correspondant à la valeur cherchée s'active? La même chose, mais avec le classeur fermé (au départ)? Tu veux simplement afficher le contenu de la cellule correspondante, comme avec une RECHERCHEV?
 
Vote positif 0 Vote négatif
Re : VBA - Atteindre une valeur éventuellement présente dans un autre fichier

Bonjour 00🙂, Modeste🙂

regarde peut être ceci, à placer dans le module de la feuille "quoi" :
Code: 
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Range
If Target.Column <> 1 And Target.Column <> 3 Or Target = "" Then Exit Sub
Cancel = True
Set x = Workbooks("Détails.xlsm").Worksheets("FT").Range("A:B").Find(Target, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then Application.Goto x, True
End Sub

bon après midi
@+

Edition : les 2 fichiers doivent être ouverts.
 
Vote positif 0 Vote négatif
Re : VBA - Atteindre une valeur éventuellement présente dans un autre fichier

Bonjour à tous

Avec un peu de retard

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
chemin = ThisWorkbook.Path
If Target.column= 1 Or Target.column = 3 Then
  achercher = Target.Value
  On Error Resume Next
   Set w = Workbooks("Détails.xlsm")
   If Err.Number <> 0 Then Workbooks.Open (chemin & "\" & "Détails.xlsm")
  On Error GoTo 0
Workbooks("Détails.xlsm").Activate
Set trouve = ActiveWorkbook.Sheets("FT").Cells.Find(achercher, LookIn:=xlValues, lookat:=xlWhole)
  If Not trouve Is Nothing Then
    trouve.Select
    resultat = True
  End If
End If
If Not resultat Then MsgBox ("Cette expression n'existe pas dans Détails")
End Sub

NB: Fonctionne même si Détails est fermé
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA - Atteindre une valeur éventuellement présente dans un autre fichier

Re-bonjour,

Mille et une fois MERCI, Modeste 😀, Pierrot 😀, pierrejean 😀, de me venir en aide.

@ Modeste :

Si tu voyais la « symphonie florale » qui règne, en ce moment, dans la maison… "Certains individus" 😉 la jugent envahissante !

Je souhaiterais qu’un clic double dans une cellule de la colonne a ou c du fichier « Tout » me dirige vers la petite sœur (ou le petit frère 😛) du fichier « Détails ».

Exemple :
Je sélectionne « xerographica » en c7 de « Tout », onglet « quoi » : je glisse, avec mes quatre sabots (on ne rit pas 😡, hein… j’imagine déjà ta frimousse 😛!...) en direction de b5 du fichier « Détails », onglet « FT »… Le fichier « Détails » pouvant être ouvert ou fermé.

@ Pierrot :

Ton code est, comme d’habitude « parfaitement parfait » !

J’étais parvenue à mon but grâce à une « Sub… », logée dans le fichier « Détails », assortie d’une « Private Sub Workbook_SheetChange » et d’une « Private Sub Workbook_Open » logées dans le fichier « Tout ». Quelle profusion de mots inutiles…

@ pierrejean :

Sur mon poste, le code ne fonctionne que pour la cellule c3 du fichier « Tout ».

Le reste du temps, mes mirettes ne peuvent lire que le message « Cette expression n’existe pas dans Détails » !???

Peut-être ai-je commis une ânerie supplémentaire… Pas étonnant, sans doute !

*****************
​

Je vous renouvelle, Modeste, Pierrot, pierrejean, mes chaleureux 😱 remerciements.

A bientôt,

🙂😀
 
Vote positif 0 Vote négatif
Re : VBA - Atteindre une valeur éventuellement présente dans un autre fichier

Bonjour, Modeste 😀, Pierrot 😀, pierrejean 😀, le Forum,

@ pierrejean :

Hier, j'écrivais :

Sur mon poste, le code ne fonctionne que pour la cellule c3 du fichier « Tout ».
Cliquez pour agrandir...

Ce matin, avec mon neurone plus frais, j'ai pu remédier à la chose en remplaçant cette ligne de code :

Code: 
If Target.Row = 1 Or Target.Row = 3 Then

par celle-ci :

Code: 
If Target.Column = 1 Or Target.Column = 3 Then

Ton code est, comme d’habitude itou , « parfaitement parfait » !

Un très gr😀S MERCI.

A bientôt,

🙂😀
 
Vote positif 0 Vote négatif
Re : VBA - Atteindre une valeur éventuellement présente dans un autre fichier

Re-bonjour,

pierrejean à dit:
...Merci pour avoir supprimé cette superbe ânerie...
Cliquez pour agrandir...

pierrejean 😀,

L'ânerie, c’est mon 🙄 rayon !...

Ton rayon, c’est la perfection 😱 !

pierrejean à dit:
... Bises (si tu le permets)...
Cliquez pour agrandir...

Je saisis tes bises avec grand plaisir, t’en adresse une d😀uble et te remercie encore pour ton aide.

A bientôt 😀😀
 
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

D
  • Question Question
Microsoft 365 Récupérer une valeur présente dans un autre fichier dont le chemin et le nom est présent dans une cellule
Réponses
6
Affichages
347
wDog66
W
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
989
TooFatBoy
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
728
ORL
O
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
525
TomJoad
T
P
  • Question Question
Microsoft 365 Joindre un fichier PDF dans un mail + inclure date envoi du mail dans un autre onglet
Réponses
1
Affichages
654
kiki29
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
P
  • Question Question
Microsoft 365 copier coller un onglet dans un autre fichier
Réponses
6
Affichages
757
pralo
P
C
  • Question Question
XL 2010 Suppression de valeur dans une colonne
Réponses
2
Affichages
389
CATPLUS
C
K
  • Résolu(e)
Microsoft 365 Incrémenter des valeurs présentées à l'horizontale dans une autre feuille en verticale
Réponses
4
Affichages
584
kikilabrax
K
  • Question Question
Microsoft 365 Conserver la valeur de ma variable pour l'utiliser dans un autre code
Réponses
3
Affichages
498
mapomme
S
  • Résolu(e)
XL 2016 recopier VBA dans un autre fichier
2
Réponses
19
Affichages
2 K
shitoryu
S
L
  • Résolu(e)
Microsoft 365 Ratio dans un TCD
Réponses
4
Affichages
564
Laurent78
L
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
J
  • Question Question
XL 2013 Boucle : copie valeur d'une table dans un autre onglet jusqu'à cellule non vide
Réponses
4
Affichages
530
jerome91
J
D
  • Question Question
XL 2016 Exporter au format PDF dans un dossier existant les colonnes ciblées et en filtrant les lignes qui contiennent une valeur quelconque.
Réponses
6
Affichages
860
Phil69970
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
994
Laliepomm
L
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
2 K
Dranreb
M
  • Question Question
XL 2019 VBA Valeur d'une cellule dont la feuille et la ligne est dans la feuille courante
Réponses
13
Affichages
963
job75
A
  • Résolu(e)
Microsoft 365 Lien vers un autre fichier dans une formule RechX
Réponses
4
Affichages
739
ALF75
A
P
  • Question Question
XL 2016 Copier la valeur d'une cellule si une référence est présente dans la cellule d'a coté
Réponses
3
Affichages
769
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…