Discussion :

[aiglon74]

bonjour a tous

j'ai monter une macro qui recherche la ligne qui correspond a ma demande en feuille recherche réf
et qui passe a la suivante qui a les même référence
enfin je dirais bricoler
mais ca marche

pourrais t'on monter une macro plus sérieuse
avec le bouton en moins qui serait remplacer par enter
et un message qui me dirait combien de ligne correspond a ma recherche

je joins un tableau exemple

merci a ceux qui liront ce message pour leur bonne volonté et leur temps

a+
aiglon74

[tamtam64]

Bonjour, Si tu n'as pas eu de reponse c'est que mettre un fichier en pj c'est pas une bonne idee , car on veut pas forcement ouvrir , mais si tu nous donne simplement un code et que l on peut modifier on trouvera une solution , si tu specifie le probleme .

Si tu veux gerer des liens , tu peux les gerer par un dictionnaire
On imagine que tu mette une feuilleavec les liens et les feuilles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    'dicos a partir de ma reference : fichier
Function dicotest() As Dictionary
    'definition variables
Dim RangeTotal As Range, MyRange As Range
Dim MyDico As New Dictionary
Dim xlsheet As Worksheet
Set xlsheet = ThisWorkbook.Worksheets("")
    'Creation dico
With xlsheet
    Set RangeTotal = .Range(.Range("").Offset(1), .Range("").End(xlDown))
    'creation dico
For Each MyRange In RangeTotal
    If Not MyDico.Exists(MyRange.Value) Then
        MyDico.Add MyRange.Value, MyRange.offset(1).value & "\" & MyRange.offset(1).value
    End If
Next MyRange
End With
    'attribution et vidage
Set DicoTest = MyDico
Set MyDico = Nothing
End Function

sinon tu peux gerer ca par un inputbox a la limite , donne nous des infos et sans pj et on va trouver une solution. Ici celle la marche si tu met le nom de la feuille en colonne 1 et dans une colonne 2 et 3 pour le lien (que tu peux mettre directement aussi