Plusieurs Worksheet_Change dans un classeur ?

Question

Bonjour, 

j'aurais voulu savoir s'il était possible d'avoir plusieurs routines Worksheet_Change dans un même classeur ? C'est à dire en écrire une sur une feuille pour qu'elle exécute certaines conditions sur cette feuille, et en écrire une sur une autre feuille pour qu'elle exécute d'autres conditions sur cette même feuille ?

Cordialement.

Configuration: Windows 7 / Firefox 9.0.1

michel_m · Answer

Bonjour chossette 

Non, 1 seule dans laquelle tu écris les différentes conditions de déclenchement ==> suite de if ou de select case 
par ex 
if not intersect(target, range("A1:A10") is nothing then 
   tonaction1 
end if 
if not intersect(target, range("A11:A20")  is nothing then 
   tonaction2 
end if
mais ça peut être un truc assez piègeux !!!  
tu dis si ça coince: plus on est de fous... ;-) 
 Michel

chossette9 · Answer

En fait ça coince parce que je veux réaliser une action sur une première feuille, et une seconde action sur d'autres feuilles.

J'ai essayé avec la Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) seulement ça fonctionne pas.

N'ayant pas mon fichier près de moi (je suis au bureau), je vais essayer de créer rapidement un exemple de mon code macro :Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
	Dim feuilles As String, Feuilles2 As String
	feuilles = ("Bundesliga, Calcio, Ligue 1, Ligue 2, Liga BBVA, Premier League")
	feuilles2 = ("Buts")

	If InStr(feuilles, Sh.Name) > 0 Then
		macro1
	ElseIF InStr(feuilles2, Sh.Name) > 0 Then
		macro2
	End If
End Sub

En fait il s'agit d'un fichier pour suivre les résultats de championnats européens, ainsi que les classements des buteurs.

Si tu as besoin du fichier entier pour voir ce que je veux faire, je ne pourrais pas le donner avant ce soir :/

Cordialement.

michel_m · Answer

si j'ai compris qu'il s'agit d'un déclenchement d'action suivant la feuille que tu actives 

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
onglets = Array("feuil1", "feuil2", "feuil3", "feuil4") 
num = Application.Match(Sh.Name, onglets, 0) 
If num = 2 Then 
     MsgBox "action2" 
Else 
     MsgBox "action1" 

End If 

End Sub

Ca, tu peux l'essayer au bureau! :oD
 Michel

chossette9 · Answer

Bonsoir, 

me revoilà, cette fois-ci avec mon fichier, qui permettra plus facilement de régler le problème auquel je fais face.

https://www.cjoint.com/?BAstvfrxB4E

J'ai mis les onglets sur lesquels portent les deux macros à tester (celle qui fonctionnera sur l'onglet Bundesliga devra fonctionner pour les onglets Calcio, Ligue 1, Ligue 2, Liga BBVA et Premier League).

Cordialement.

michel_m · Answer

Bonjour,

Ok, bien reçu.

juste jeté un oeil donc... : où sont tes logos de club ?

je regarde dans la journée mais d'autres trucs à faire, sois patient!

Le Pingou · Answer

Bonjour, 
Est-vous sur de votre formule, elle devrait correspondre à : ActiveSheet.Pictures.Insert("C:\Users\jpp\Pictures\Divers\an2_pt.jpg").Select 
Peut-être un problème de [.... \.... ] qui manque ? 

Salutations. 
Le Pingou

chossette9 · Answer

J'ai une autre question : quand j'utilise la macro pour insérer les images, cela fonctionne. Seulement, pour la lancer j'appuie sur Entrée. J'arrive donc à la cellule d'en dessous. Je suis donc obligé de préciser que mon image doit s'implanter sur la ligne d'au dessus.

Ce principe ne fonctionne pas si jamais je me mets à taper sur tabulation, ou en utilisant les flèches directionnelles du clavier.

Ma question est donc : y a-t-il possibilité de tester sur quelle touche j'appuie, et donc de varier certaines valeurs en conséquences ?

Cordialement.

Plusieurs Worksheet_Change dans un classeur ?

7 réponses

Discussions similaires

Newsletters