Création d'un lien

[roro69]

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.

 

[pacoako]

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

 

[roro69]

Re : Création d'un lien

Bonsoir Pacoako et le forum
Merci de ta réponse;Je teste tout çà et je te tiens au courant

 

[roro69]

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

 

[bqtr]

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.

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+

 

[roro69]

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