Discussion :

[retraite83]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a_diard]

Bonsoir peut étre commencer par ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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...

[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 ?

[retraite83]

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"