Re:affecter 1 macro à 1 cellule+ recopier vers le
Bonjour,
En fait, la clé se trouve dans cette ligne :
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
A+
Message édité par: 2passage, à: 17/08/2005 09:56