Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Version imprimable

Bonjour,

je cherche à effectuer une opération lorsque l’utilisateur clique sur une feuille, pour cela j'ai monté un petit test, pour voir comment copier " B1" en "A1" de ma feuille "test" lorsque l'utilisateur clique sur l'onglet "test" de mon classeur (ce n'est pas la feuille courante de mon classeur)

d'après mes recherches j'ai codé dans un module :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Workbook_SheetActivate(ByVal Sh As Object) MsgBox Sh.Name ' juste pour voir le nom de la feuille en test Dim test As String test = "test" If Sh.Name = test then Sh.Range("A1").Value = Sh.Range("B1").Value Else End If End Sub
Il ne se passe rien, même pas la Msgbox

04/05/2020, 23h06
a_diard
Bonsoir peut étre commencer par ceci.
Code:

1 2 3 Private Sub Worksheet_Activate() MsgBox ActiveSheet.Name End Sub

Bonjour,
C'est certainement un problème de casse. Utilise par exemple la fonction StrComp

Code:

1
2
3
4
5
6
7
8
9
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Dim shName As String
  shName = "test"
  With Sh
    If StrComp(.Name, shName, vbTextCompare) = 0 Then
       .Range("A1").Value = .Range("B1").Value
    End If
  End With
End Sub

05/05/2020, 11h39
retraite83

Bonjour,

#2

oui cela marche j'ai bien la msgbox

#3
quand je remplace par ton code, rien ne se passe
en ajoutant la msgbox de #2, elle ne s'affiche pas

comme si la macro n'était pas déclenchée...
05/05/2020, 11h59
Philippe Tulliez

Bonjour,
Je teste tous les codes que je publie et je peux t'assurer que cela fonctionne.
Es-tu certain que le nom de la feuille n'a pas de caractères espacés devant ou derrière le nom de la feuille ?

Pourrais- tu publier ton code complet après modification ?
05/05/2020, 13h41
retraite83

1 pièce(s) jointe(s)

Bonjour,

je ne doute absolument pas que ton code ne marche pas, loin de là, cela vient forcément de chez moi, une grosse bêtise sur laquelle j'ai du passer 20 fois sans la voir, voilà mon fichier test "final"
05/05/2020, 13h48
Philippe Tulliez

Bonjour,
Je ne demandais pas de fichier à télécharger mais simplement la publication du code de la procédure événementielle Workbook_SheetActivate

Code:

1
2
3
4
5
6
7
8
9
10
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Dim shName As String
  shName = "test"
  With Sh
    If StrComp(.Name, shName, vbTextCompare) = 0 Then
       .Range("A1").Value = .Range("B1").Value
    End If
  End With
End Sub

05/05/2020, 16h28
Philippe Tulliez
Bonjour,
J'ai fini par regarder ton fichier.
Je suppose que le premier code que tu as publié, tu l'as trouvé sur internet car il est évident que là où tu as mis cette procédure, cela ne risque pas de fonctionner.
On doit placer cette procédure dans le module ThisWorkbook et pas dans un module standard.

Je te conseille la lecture de
- Les évènements du module objet ThisWorkbook, dans Excel
- Les évènements dans la feuille de calcul Excel
05/05/2020, 17h29
retraite83

Merci

c'est parfait, oui j'avais trouvé sur internet