[VBA] Le même code dans plusieurs feuilles Fermé

Question

Bonjour, 

je dois faire un changement de couleur automatique en fonction d'une valeur saisie dans la cellule en VBA. Je sais comment faire sur une feuille mais je ne sais pas comment écrire le même code sur beaucoup de feuilles sans avoir à C/C dans chaque feuille associée, comment puis-je faire ?

Merci d'avance !

Configuration: Windows / Chrome 58.0.3029.110

Mike-31 · Answer

Bonjour,

Si j'ai bien compris, une solution rapide, tu ouvres ta Thiswokbook dans le VBA et tu colles le code dans cette syntaxe
le fait de basculer sur tes feuilles le code s'active

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
' et ici ton code
' ou tu fais référence à ta macro précédé de Call comme ci dessous
Call le nom de ta macro
End Sub 
 
A+
Mike-31

Je suis responsable de ce que je dis, pas de ce que tu comprends...

LordHorus · Answer

Bonjour, merci pour ta réponse rapide, j'ai trouvé la méthode correspondante, c'est Workbook_SheetChange() car je veux appeler une procédure au changement de valeur d'une cellule. Merci d'avoir confirmé ma piste :)

LordHorus · Answer

Je met un lien très explicatif pour les prochains qui viendront sur ce topic en quête d'une réponse : https://www.excel-pratique.com/fr/vba/evenements_classeur.php

LordHorus · Answer

Par contre je ne comprends pas, si je modifie une cellule, la cellule A1 n'est-elle pas censée prendre "Test" comme valeur ?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)    Range("A1") = "Test"End Sub

Mike-31 · Answer

Re,

dans la Thiswokbook, comme cela

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Target = "Test"
End Sub

LordHorus · Answer

Ça ne fait rien :/ Quand je met par exemple dans une feuille spécifique :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)    MsgBox("Test")End Sub
Ça m'affiche bien le message quand je modifie une cellule, mais quand je met ce code dans ThisWorkbook ça marche plus

Mike-31 · Answer

Re,

ce que tu as écrit ne veux rien dire, explique exactement ce que tu veux faire

LordHorus · Answer

Non c'est bon j'ai réussi à régler le problème merci :) En fait j'avais deux feuilles ThisWorkbook (ThisWorkbook et ThisWorkbook1) je ne sais pas pourquoi et j'avais mis dans la premier. Mais quand j'ai mis dans ThisWorkbook1 ça a marché

Mike-31 · Answer

Re,

comment ça deux Thiswokbook, par classeur tu n'en as qu'une

LordHorus · Answer

Bah j'ai repris le fichier de quelqu'un et y en avait deux et ils sont tous les deux insupprimables

LordHorus · Answer

Cf. screenshot : http://www.noelshack.com/2017-20-1495131412-sans-titre.png

Mike-31 · Answer

Re,

oui je vois bien qu'il y en a deux, mais ce n'est pas logique et encore plus bizarre est que celui qui fonctionne est le doublon Thiswokbook(1)
pour la part je referais mon dossier à partir d'un nouveau fichier, mais bon cela n'engage que moi et demande un peu de travail

LordHorus · Answer

Je suis juste stagiaire dans l'entreprise mais je dirai qu'il faudra refaire un dossier l'an prochain (mais bon je suis le seul informaticien donc je verrai) ^^

[VBA] Le même code dans plusieurs feuilles

13 réponses

Discussions similaires