Plusieurs Worksheet_Change dans un classeur ?

En fait non je me suis mal exprimé. Je vais essayer d'être clair, mais ça ne va pas être facile car sans le fichier sous les yeux, je crains de ne pouvoir me faire comprendre :

- j'ai une première macro qui doit se déclencher sur l'onglet "Buts". Cet onglet permet de faire un récapitulatif des buts marqués dans chaque match des différents championnats. Je marque donc le championnat, la date et l'heure, le buteur, pour quelle équipe, contre quelle équipe, s'il s'agit d'un CSC, d'un penalty, et le score avec ce but. En colonne O, dès que je marque "X" et appuie sur Entrée, la macro doit me rajouter le but dans l'onglet "Buteurs" (ou dans l'onglet "CSC" si le but est marqué contre son camp par le joueur)

- la seconde macro doit me permettre d'insérer une image dans différentes colonnes des feuilles "Bundesliga", "Calcio", "Ligue 1"... Ces feuilles ont le même modèle.
Lorsque je tape le nom d'un club en colonne E ou en colonne H et que j'appuie sur Entrée, la seconde macro affiche le logo du club a côté.

J'ai déjà créé les deux macro, seulement je ne sais pas comment faire pour les déclencher.

Merci de te pencher sur le problème. Si je ne suis toujours pas assez clair, il faudra attendre ce soir que je puisse envoyer mon fichier sur cjoint.com.

OK pour ce soir

Bonjour Michel,

merci d'y avoir déjà jeté un coup d'oeil.

Alors effectivement pour les logo, j'ai mal joué le coup. Si jamais tu peux tester avec une image qui est sur ton ordinateur, et que ça marche, je retenterais chez moi avec le bon chemin.

Aucun problème si tu as d'autres choses à faire. Mon objectif est que ce fichier soit prêt pour la saison 2012-2013, qui ne commencera que fin Juillet au plus tôt :)

Cordialement.

OK, Merci
De toutes façons le top one c'est le Barça... :o)

Ca on n'en doute pas, même si je suis un peu plus 'Parisien' dans l'âme :)

je regarde demain matin ( ton pb, pas le PSG) à la fraiche

Okay !

Merci de prévenir. Bonne soirée !

Pour le moment le code plante à l'appel de la fonction, il m'ouvre une popup avec
'Erreur de compilation : erreur de syntaxe'

Bonjour,
Si vous sortez de la routine principal vous pouvez passer la valeur de (Target.value) à un argument de votre procédue secondaire .
Sub secondaire ( targetval as string)
......
Club=targetval
....
End sub
Salutations.
Le Pingou

Bonjour
tiré de mon grenier à adapter: insertion d'images dans un trombinoscope

   design = ThisWorkbook.Path & "\" & Ss_dossier & "\" & ident 
     'prend en compte le format de la photo 
     If Dir(design & ".png") <> "" Then design = design & ".png" 
     If Dir(design & ".jpg") <> "" Then design = design & ".jpg" 
     If Dir(design & ".jpeg") <> "" Then design = design & ".jpeg" 
     If Dir(design & ".gif") <> "" Then design = design & ".gif" 
     
    'mémorise la photo à afficher 
     Set cellule = Cells(lig, col) 
     On Error GoTo absence 'photo non disponible 

     Set image = ActiveSheet.Pictures.Insert(design) 
     'insere la photo dans le trombi 
     With image.ShapeRange 
          .Top = cellule.Top + 2 
          .Left = cellule.Left + 1 
          .Name = "numphoto" & cptr2 
         .Height = cellule.Height - 3 
          .Width = cellule.Width - 2 
          .LockAspectRatio = msoFalse 'garde les proportions de l'original 
    End With 
     Exit Sub 
      
absence: 
    cellule = "photo non disponible"

Evite au maximum les Select-selection et utilise les blocs (with -end with)

Merci !! J'arrive à ajouter mes images dans le classeur en m'inspirant de ta macro ci-dessus.

Maintenant, comment dois-je faire pour que l'image s'adapte à la taille de la cellule ?

bin tu as
.Height = cellule.Height - 3
.Width = cellule.Width - 2
.LockAspectRatio = msoFalse 'garde les proportions de l'original

-3 et -2 sont à adapter avec des essais

je bosse sur ton classement ; je vais te donner une proposition mais avec pas mal de questions
a' tadleur