Re : Problème de macros complémentaires...
Salut JeanMikael et le forum
Tout à l'heure Excel-Lent m'a donné une macro pour me permettre de créer des liens entre les cellules automatiquement seulement voilà j'ai voulu intégrer son code dans mon fichiers de macros complémentaires et là sa marche que a moitié, ma macro doit faire une comparaison et donné les erreurs si elle en trouve, et une fois qu'il y a un erreur de trouvé la cellule dans laquelle il y a marqué erreur me renvoi a la cellule ou il y a l'erreur, alors la comparaison il n'y a pas de soucil mais c'est le lien entre les cellules qui ne fonctionnent pas alors que si je met directement le code dans la feuille que je veux analyser et non dans les macro complémentaires sa marche, voici le code :
D'après le code que tu fournis, tu utilises une macro à lancement automatique : elle ne peut être active que sur un module lié à une feuille (module de classe)
Quand tu change de sélection sur ta feuille, Excel met à jour Target avec la nouvelle sélection.
Si tu lances la macro manuellement, target est vide (=Nothing)
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
Elle se lance nsuivant les restriction énoncées ci-dessus
Call Comparaison
effectuer la macro comparaison
If Target.Column = 17 And Target.Row > 2 And Not IsEmpty(ActiveCell) Then
si la nouvelle sélection débute en Q et à une ligne > 2 et que la cellule active n'est pas vide
tu sélectionnes R5 et tu poursuis ta sélection sur Q3 =>
Target : Q3:R5 et activecel=R5 => je te souhaites bien du plaisir
Plusieurs solutions possibles, dont un test (target.cells.count=1)
If ActiveCell = "Avec Erreur" And ActiveCell.Offset(0, -6) = "N" Then
ActiveCell.Offset(0, -6).Select
si target="Avec Erreur" et la colonne L contient "N", on sélectionne celle-ci
Else
ActiveCell.Offset(0, -7).Select
sinon, on sélectionne la cellule de la colonne K
End If
End If
End Sub
A+