Bonjour à tous,

suite à de multiples recherches je me tourne vers vous car je n'arrive toujours pas à résoudre mon problème.

Je vous explique: je dispose d'une macro qui fait des verifications dans des multipes fichiers afin de trouver d'éventuelles erreurs. Les colonnes à vérifier ne sont pas situées au même endroit dans chaque fichier. Une nouvelle feuille decrivant les erreurs est crée dans le fichier ou est lancée la macro et un lien hypertexte est crée pour attérir directement sur la cellule ou le groupement de cellules concernées.
Le problème c'est que j'ai une erreur dans mon lien hypertexte et que je n'arrive pas à trouver la manière de faire trouver la cellule plutot que la valeur de celle ci.

Voici mon code:

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
 
If sommecoeff <> 1 Then        
        ' intitulé de l erreur
        Worksheets(positionFeuille + 1).Cells(index, 1) = _
        "La somme des coefficients heures n'est pas égale à 1 :"
        ' ligne concernée
        Worksheets(positionFeuille + 1).Cells(index, 2) = " erreur ligne " & i
        ' on ajoute à cette ligne un lien permettant d accéder à l endroit de l erreur
        Worksheets(positionFeuille + 1).Select
        Cells(index, 2).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'" & Worksheets(positionFeuille).Name & "'!" & Cells(i, tabCoeffHrs(0)).Address & ":" & Cells(i, tabCoeffHrs(tailleHrs)).Address, _
        TextToDisplay:=" erreur ligne " & i
        index = index + 1
        ' On applique une couleur pour cette erreur
        Worksheets(positionFeuille).Select
        Cells(i, division).Select
        With Selection.Interior
        .ColorIndex = 4 'vert
        End With
    End If
Si vous avez des questions n'hesitez pas, je ne sais pas si j'ai été claire dans mon explication.

D'avance merci.

Jamelie