A voir également:
- [VBA] Le même code dans plusieurs feuilles
- Le code ascii - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Fusionner plusieurs feuilles excel en une seule - Guide
- Code blocks free - Télécharger - Langages
13 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié le 18 mai 2017 à 18:03
Modifié le 18 mai 2017 à 18:03
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...
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...
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
18 mai 2017 à 19:27
18 mai 2017 à 19:27
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
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
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 :)
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
Ça ne fait rien :/ Quand je met par exemple dans une feuille spécifique :
Ça m'affiche bien le message quand je modifie une cellule, mais quand je met ce code dans ThisWorkbook ça marche plus
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
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
18 mai 2017 à 20:03
18 mai 2017 à 20:03
Re,
ce que tu as écrit ne veux rien dire, explique exactement ce que tu veux faire
ce que tu as écrit ne veux rien dire, explique exactement ce que tu veux faire
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
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
18 mai 2017 à 20:12
18 mai 2017 à 20:12
Re,
comment ça deux Thiswokbook, par classeur tu n'en as qu'une
comment ça deux Thiswokbook, par classeur tu n'en as qu'une
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
18 mai 2017 à 20:26
18 mai 2017 à 20:26
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
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
