Pb private sub worksheet_selectionchange

Résolu/Fermé

yannperceval1 Messages postés 6 Date d'inscription mardi 18 septembre 2007 Statut Membre Dernière intervention 20 septembre 2007 - 18 sept. 2007 à 23:12
Goldrigger 61 Messages postés 77 Date d'inscription samedi 26 janvier 2008 Statut Membre Dernière intervention 27 juin 2008 - 28 févr. 2008 à 10:41

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

A voir également:

Private sub worksheet_selectionchange(byval target as range)
Navigation in private - Guide
D'sub out of range - Forum Ecran
Input signal out of range ✓ - Forum Matériel & Système
Out of range - Forum Ecran
Ecran noir avec 'out of range" sous windows 10 - Forum Ecran

1 réponse

Réponse 1 / 1

yannperceval1 Messages postés 6 Date d'inscription mardi 18 septembre 2007 Statut Membre Dernière intervention 20 septembre 2007
20 sept. 2007 à 15:44

'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

Goldrigger 61 Messages postés 77 Date d'inscription samedi 26 janvier 2008 Statut Membre Dernière intervention 27 juin 2008
27 févr. 2008 à 22:48

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.

Goldrigger 61 Messages postés 77 Date d'inscription samedi 26 janvier 2008 Statut Membre Dernière intervention 27 juin 2008 > Goldrigger 61 Messages postés 77 Date d'inscription samedi 26 janvier 2008 Statut Membre Dernière intervention 27 juin 2008
28 févr. 2008 à 10:41

Ok c bon ca marche.

Discussions similaires

Worksheet_Change(ByVal Target As Range)

Plusieurs Worksheet_Change dans un classeur ?

[VBA] private sub

cue ccd img sub.. que choisir?

c'est quoi SUB FR

sous titres forcés (sub forced)