A voir également:
- Thisworkbook
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
13 réponses
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...
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
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é
