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

Création d'un lien

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

roro69

XLDnaute Impliqué
Bonsoir;
Dans le fichier joint j'ai un tableau avec des informations en ligne;j'aimerais que si dans une cellule il apparait la valeur "NS" alors dans une cellule adjacente ce crée un lien me renvoyant dans une nouvelle feuille avec les infos de la lignes de mon tableau.
Je joint le fichier pour plus de compréhension ; enfin j'éspère .........
Allez je vous verse déjà un petit Jura blanc ;et je trinque à la bonne santé de ceux qui me donneront un peut de leurs temps.
Enfin merci d'avance.
 

Pièces jointes

Trier par date Trier par votes
Re : Création d'un lien

Tient donc, vive l'entraide aujourd'hui Roro 😉

je t'envoi une partie de ton problème résolu... (j'ai ajouter du code dans la feuille "Avril"

il reste maintenant à ajouter un fonction pour que la recherche se fasse en Loop Until... avec la fonction .findnext on devrait y arriver...

j'vais essayer de complèter le tout.. mais je suis au boulot en ce moment, c'est pas évident...

Zut.. pas capable d'ajouter le fichier en pièce jointe.. j'ai pas Winzip ici 🙁

je te paste le code à ajouter à la fin de ta page "Avril"

cependant, je t'avise qu'il ne fonctionne pas à point parce que la recherche trouve NS dans ton titre "A/S/NS" et si on met la recherche en mode LookAt :=xlWhole vu que ton NS provient d'une formule il repère pas la cellule...
===========================================
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cellule As Variant
Dim NSColone As Range

Set NSColone = Range("L11:L9999")
NSColone.Select
Set Cellule = Selection.Find(What:="NS", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)

If Not Cellule Is Nothing Then

Feuil1.Cells(Cellule.Row - 11, Cellule.Column - 11) = Cellule.Offset(0, -10)
Feuil1.Cells(Cellule.Row - 11, Cellule.Column - 10) = Cellule.Offset(0, -11)

End If

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Création d'un lien

RE bonsoir Pacoako et le forum
j'ai testé ton code il fonctionne ;mais ce que j'aimerais;c'est que lorsque la valeur "NS" est trouvé ;les informations de la lignes soit renvoyé dans mon autre feuilles les unes après les autres et à partir de la ligne 2.
Merci pour l'aide apporter
 
Vote positif 0 Vote négatif
Re : Création d'un lien

Bonsoir roro, pacoako

Voici un exemple:

Le code est dans le module de code de la feuille "Avril". Il se déclenche quand tu entres les valeurs dans la colonne k.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)

Dim K As Long
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("k12:K10000")) Is Nothing Then
   K = Sheets("ActionCorrect").Range("A65536").End(xlUp).Row
     If Target.Offset(0, 1) = "NS" Then
       With Sheets("ActionCorrect")
         .Range("A" & K + 1) = Sheets("Avril").Range("B" & Target.Row)
         .Range("B" & K + 1) = Sheets("Avril").Range("A" & Target.Row)
       End With
       
       With Sheets("ActionCorrect").Range("A" & K + 1 & ":C" & K + 1).Borders
         .LineStyle = xlContinuous
         .Weight = xlThin
         .ColorIndex = 5
       End With
         
       Target.Offset(0, 2).Hyperlinks.Add Anchor:=Target.Offset(0, 2), Address:="", SubAddress:= _
           "ActionCorrect!A" & K + 1, TextToDisplay:="A" & K + 1
     End If
End If

End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Création d'un lien

Bonsoir ;Bqtr
Je te remercie beaucoup; cest super ; c'est exactement ce que je voulais.De plus vu la qualité du code ,je continu d'apprendre.

Je te verse un bon petit vin jaune et trinque à ta bonne santé.
Encore merci.
Et merci aussi à pacoako qui m'avai donné aussi de son temps
 
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

A
  • Question Question
XL 2013 Création d'un planning en 3x8 sur l'année 2026
2
Réponses
29
Affichages
1 K
Atexide
A
Y
  • Résolu(e)
XL 2013 Bloquer la saisie dans une plage selon un critère
Réponses
6
Affichages
698
TooFatBoy
  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
823
Cousinhub
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
350
patricko-13
P
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
782
SAMUAL_2023
S
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
239
Marie L
M
E
  • Question Question
Microsoft 365 Création d'un filtre sur une cellule avec recherche de mot indexé
Réponses
3
Affichages
353
elgringo123456
E
M
  • Question Question
XL 2021 Création d'un document à partir d'un tableau
Réponses
6
Affichages
464
gbinforme
G
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
4 K
patricktoulon
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
887
Max
M
  • Question Question
XL 2019 liste utilisateur
2
Réponses
22
Affichages
1 K
Neileru4
A
  • Résolu(e)
Microsoft 365 Insérer un résultat dans une cellule d'un tableau
Réponses
5
Affichages
357
Alain 79
A
J
  • Résolu(e)
XL 2021 Coloriser et décoloriser une cellule activée par lien hypertexte
3 4 5
Réponses
71
Affichages
4 K
JMC
J
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
2 K
firecarl
F
  • Résolu(e)
Microsoft 365 Génération automatique calendrier par année
Réponses
6
Affichages
467
Etoto
7
  • Question Question
Microsoft 365 Tableau de Géolocalisation de vidéos de drone avec lien vers Google Earth
2
Réponses
15
Affichages
1 K
sylvanu
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
714
iruri
I
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
667
job75
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
600
Droopyougo
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…