Pb private sub worksheet_selectionchange
Résolu
yannperceval1
Messages postés
6
Statut
Membre
-
Goldrigger 61 Messages postés 77 Date d'inscription Statut Membre -
Goldrigger 61 Messages postés 77 Date d'inscription Statut Membre -
Voila je veux que'à chaque fois que la cellule sélectionnée change , ma macro s'execute ou execute une autre macro. Alors j'ai pensé faire:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mon code If Target.Select = "$C$1" Then
[B1] = "VRAI"
End If
MsgBox "J'ai Réussi"
End Sub
ou
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Run "autremacro"
MsgBox "J'ai Réussi"
End Sub
Mais ca ne marche pas. Qq'un peut-il m'aider? Merci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mon code If Target.Select = "$C$1" Then
[B1] = "VRAI"
End If
MsgBox "J'ai Réussi"
End Sub
ou
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Run "autremacro"
MsgBox "J'ai Réussi"
End Sub
Mais ca ne marche pas. Qq'un peut-il m'aider? Merci
1 réponse
-
'ai trouver. en fait je n'avais pas écrit Private Sub Worksheet_SelectionChange dans ThisWorkbook.
Pour les débutants comme moi, qui n'ont pas encore trouver la solution, ceci peut les interesser.
Il faut faire Alt+F11, puis explorateur de projet (aller dans ThisWorkbook). utiliser l'évennement voulu (répertorié dans explorateur d'objet)
petite adresse utile: pb private sub worksheet selectionchange
Merci-
Bonsoir,
En fait j'ai un peu le même problème que tu avait.
Voici mon code:
Private Sub Worksheet_Change(ByVal sel As Range)
If Cells(23, 2) >= 0 Then
Sheets("Feuil2").Activate
End If
End Sub
Je veux passer a la feuille 2 des que la valeur de la cellule B23 est supérieur à 0 ou change.
Ca ne marche pas.
-
