Discussion :

[jamelie]

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

[LeForestier]

Tu met en debbug et tu regarde ce que tu a dans

Code :

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

 tabCoeffHrs(0)).Address & ":" & Cells(i, tabCoeffHrs(tailleHrs)).Address

Il y a une erreur dans l'adresse de la cellule, de plus pas de ":" dans une adresse de cellule
A+

[jamelie]

Bonjour,
en ce qui concerne le ":" c'est parce que je veux qu'il selectionne une plage de cellules. Dans Excel, dans les formule on écrit toujours = AQ45:BC45
C'est pour ca que j'ai mis ça. Sinon mon code va être super long si je lui dit de sélectionner telle cellule puis la suivante...
Enfin je vais essayer et je vous dit le résultat

[jamelie]

C'est bon ca fonctionne très bien. L'erreur viens du fait que la valeur dans la parenthèsene doit pas correspondre à un chiffre directement mais à une valeur -1. Pourquoi je ne le sais pas mais le principal c'est que ca fonctionne.

Voici le code avec les modifications.

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
 
If sommecoeff <> 1 Then
    k = tailleHrs
        Worksheets(positionFeuille + 1).Cells(index, 1) = _
        "La somme des coefficients heures n'est pas égale à 1 :"
        Worksheets(positionFeuille + 1).Cells(index, 2) = " erreur ligne " & i
        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(k - 1)).Address, _
        TextToDisplay:=" erreur ligne " & i
        index = index + 1
End If

Merci beaucoup.

Bonne journée

Jamelie