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

lien entre cellule feuilles differentes + lancement macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tactic6
  • 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

tactic6

XLDnaute Impliqué
Bonjour le forum
je cherche depuis hier soir une solution mais je n'arrive pas a réaliser mon bout de code

dans un classeur 2 feuilles
- feuille "Recap"
- feuille "Feuil1"
dans Recap la colonne C est une suite de chiffre qui se suivent de 1 à ...... à partir de C5
dans Feuil1 un tableau avec en colonne A à partir de A2 une série de chiffre

Comment faire un genre de lien hypertexte (ou autre) pour que quand on clic sur un chiffre de la colonne C de la feuille "Recap" excel repère la cellule dans la colonne A de la feuille Feuil1 qui a le même chiffre et lance une macro ?


j'ai commencé avec un truc comme
Code: 
Sub Macro6()
'
' Macro6 Macro
'

'
    Range("C:C").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Feuil1!A:A"
End Sub
mais comme vous pouvez le constater c'est loin d'être ce que j'essaie d'avoir
Merci pour votre aide
 
Trier par date Trier par votes
Re : lien entre cellule feuilles differentes + lancement macro

Salut,
Essaye ceci.....
Click droit sur l'onglet Recap>visualiser le code et copier/coller
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 Or Target.Row < 5 Or Target = "" Or Target.Count > 1 Then Exit Sub
If IsNumeric(Application.Match(Target, Feuil1.[A:A], 0)) Then _
MsgBox "Ligne " & Application.Match(Target, Feuil1.[A:A], 0)
'ta macro
End Sub

A+
 
Vote positif 0 Vote négatif
Re : lien entre cellule feuilles differentes + lancement macro

Merci pour ton aide
ça avance ça avance
le seul truc c'est que apparemment ça reste bloqué sur la cellule A1 de feuil1 au lieu de détecter le numero correct

une petite idée ?
 
Vote positif 0 Vote négatif
Re : lien entre cellule feuilles differentes + lancement macro

Re:
Cela doit faire l'affaire...


Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 Or Target.Row < 5 Or Target = "" Or Target.Count > 1 Then Exit Sub
If IsNumeric(Application.Match(Target, Feuil1.[A:A], 0)) Then
x=Application.Match(Target, Feuil1.[A:A], 0)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Feuil1!A" & x  ', TextToDisplay:="France"
End If
End Sub
 
Vote positif 0 Vote négatif
Re : lien entre cellule feuilles differentes + lancement macro

Re et encore merci pour ton aide mais j'ai une incompatibilité de type a la ligne
Code: 
If Target.Column <> 3 Or Target.Row < 5 Or Target = "" Or Target.Count > 1 Then Exit Sub
 
Vote positif 0 Vote négatif
Re : lien entre cellule feuilles differentes + lancement macro

Bon, procède ainsi,
donc macro avec qlq modifs, si plusieurs cellules selectionnées, ça marche
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 3 Or Target.Row < 5 Or Target = "" Then Exit Sub
If IsNumeric(Application.Match(Target, Feuil1.[A:A], 0)) Then
x = Application.Match(Target, Feuil1.[A:A], 0)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Feuil1!A" & x
End If
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

  • Résolu(e)
Microsoft 365 Modifier un code copie donnée chaque feuil séparément
Réponses
11
Affichages
313
ExcelDow
  • Résolu(e)
Microsoft 365 Formule entre 2 feuilles
Réponses
7
Affichages
190
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Afficher la référence de colonne d'un entête
Réponses
3
Affichages
237
Cousinhub
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
6
Affichages
505
dadaze
D
  • Résolu(e)
Microsoft 365 Recherche sur plusieurs Feuilles
2
Réponses
18
Affichages
504
lcouaci
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
351
patricktoulon
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
651
job75
O
  • Résolu(e)
XL 2013 Macro qui duplique les lignes d'un tableau en fonction d'un nombre précis
Réponses
7
Affichages
246
Staple1600
D
  • Question Question
XL 2021 Boucle sur deux feuilles
Réponses
11
Affichages
238
dadaze
D
D
  • Question Question
XL 2016 Lien hypertexte
Réponses
1
Affichages
114
fanfan38
  • Question Question
XL 2016 relevé de consommation électrique
Réponses
1
Affichages
256
wDog66
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
398
fanch55
  • Résolu(e)
XL 2019 Recopier mes feuilles dans mon USF
2 3
Réponses
39
Affichages
458
Phil Du59
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
414
Anthony_51
A
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
555
sousou
P
  • Résolu(e)
Microsoft 365 Utiliser la même macro dans des feuilles différentes
2 3
Réponses
35
Affichages
939
cathodique
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
316
KTM
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
188
MATLEA
M
T
  • Question Question
Microsoft 365 Identifier si une cellule contient une valeur parmi une liste de valeur
Réponses
5
Affichages
253
TRANSPLANT69
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…