JeanMikael
XLDnaute Junior
Bonjour le forum, voilà mon problème en fait j'ai une macro complémentaires qui me sert pour plusieurs fichiers et le programme principale fait une comparaison entre plusieurs colonnes et me renvoi dans la colonne AN le mot "Erreur" s'il y a une erreur détecté le soucil c'est que quand je dois cliquez sur "Erreur" cela me renvoi a l'endroit ou il y a l'erreur mais sa ne marche pas en tant que macro complémentaires, par contre si je le met dans un module d'une feuille les liens dynamiques fonctionnent niquel, voici le code dans la feuil1 de la macro complémentaires
J'espère vraiment que vous m'aidrez car c'est très urgent et très important s'il faut je peux envoyé un fichier exmple bonne appetit.
Cordialement,
Jean-Mikaël
Code:
Public Sub Workbook_SheetSelectionChange(ByVal Target As Range)
If Target.Column = 33 And Target.Row > 2 And Not IsEmpty(ActiveCell) Then
If ActiveCell = "Erreur" And ActiveCell.Offset(0, -9) = 0 Then
ActiveCell.Offset(0, -9).Select
End If
End If
If Target.Column = 34 And Target.Row > 2 And Not IsEmpty(ActiveCell) Then
If ActiveCell = "Erreur" And ActiveCell.Offset(0, -9) = 0 Then
ActiveCell.Offset(0, -9).Select
End If
End If
If Target.Column = 35 And Target.Row > 2 And Not IsEmpty(ActiveCell) Then
If ActiveCell = "Erreur" And ActiveCell.Offset(0, -9) = 0 Then
ActiveCell.Offset(0, -9).Select
End If
End If
If Target.Column = 36 And Target.Row > 2 And Not IsEmpty(ActiveCell) Then
If ActiveCell = "Erreur" And ActiveCell.Offset(0, -9) = 0 Then
ActiveCell.Offset(0, -9).Select
End If
End If
If Target.Column = 37 And Target.Row > 2 And Not IsEmpty(ActiveCell) Then
If ActiveCell = "Erreur" And ActiveCell.Offset(0, -17) = 0 Then
ActiveCell.Offset(0, -17).Select
End If
End If
If Target.Column = 38 And Target.Row > 2 And Not IsEmpty(ActiveCell) Then
If ActiveCell = "Erreur" And ActiveCell.Offset(0, -17) = 0 Then
ActiveCell.Offset(0, -17).Select
End If
End If
If Target.Column = 39 And Target.Row > 2 And Not IsEmpty(ActiveCell) Then
If ActiveCell = "Erreur" And ActiveCell.Offset(0, -17) = 0 Then
ActiveCell.Offset(0, -17).Select
End If
End If
If Target.Column = 40 And Target.Row > 2 And Not IsEmpty(ActiveCell) Then
If ActiveCell = "Erreur" And ActiveCell.Offset(0, -17) = 0 Then
ActiveCell.Offset(0, -17).Select
End If
End If
End Sub
J'espère vraiment que vous m'aidrez car c'est très urgent et très important s'il faut je peux envoyé un fichier exmple bonne appetit.
Cordialement,
Jean-Mikaël