private sub sur plusieurs colonne

[steve]

bonjour voila certains d'entres vous m'ont donnés des debut de code mais la j'aurai besoin d'un dernier coup de pouce pour finaliser mon projet.

le but est que lorsque je clique en feuille 2 en A1 le code me ramene en feuil 1 ; A1. voici le code que j'ai u qui correspond le mieux et qui fonctionne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range('B8:B65536')) Is Nothing Then Exit Sub
If Target.Row > 8 Then
Worksheets('feuil2').Activate
Worksheets('feuil2').Range('C3').Offset(Target.Row - 8, 0).Select
End If
End Sub

mais je voudrais pouvoir appliquer ce code sur plusieurs colonnes.
On m'a donne ces quelques informations mais je ne sais pas ou il faut les mettre.... je ne connais pas super bien la programmation alors merci de me donner un petit coup de mains.


Sheets('Feuil2').Range(Target.Address).Offset(-5, 1).Select

en clair, Target.address est la cellule sur laquelle tu cliques (oui, dans la feuille 1). On cible une autre feuille avec le Sheets('Feuill2'). On utilise un décallage par rapport à cette adresse pour cibler la bonne cellule : c'est le offset(-5,1) qui signifie 5 ligne plus haut et 1 colonne plus à droite. En modifiant ces nombre, tu cible la colonne que tu souhaites.

Par contre il faudra surement modifier la structure de la macro et modifier le
If Application.Intersect(Target, Range('B8:B65536')) Is Nothing Then Exit Sub
Ca donnera surement quelquechose du genre :

If not Application.Intersect(Target, Range('B8:B65536')) Is Nothing Then
Code pour la colonne B
else If not Application.Intersect(Target, Range('C8:C65536')) Is Nothing then
Code pour colonne C
...
etc...
end if
Exit Sub

Merci.