Bonjour,
J'ai trouvé en partie ma réponse sur le forum avec le code suivant:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
test 'ici, le nom de ta macro
End Sub
Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1".
J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne
fonctionne.
D'avance merci pour votre aide
Georges
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Charabeuh
Bonjour,
Peut-être :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> Range("Choix1").Address Then Exit Sub Test End Sub
Au revoir
"Georges" a écrit dans le message de news:
Bonjour, J'ai trouvé en partie ma réponse sur le forum avec le code suivant:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub test 'ici, le nom de ta macro End Sub
Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1". J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne fonctionne. D'avance merci pour votre aide Georges
Bonjour,
Peut-être :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Range("Choix1").Address Then Exit Sub
Test
End Sub
Au revoir
"Georges" <Georges@discussions.microsoft.com> a écrit dans le message de news:17B96805-272D-4F14-94EC-177E19DA50B1@microsoft.com...
Bonjour,
J'ai trouvé en partie ma réponse sur le forum avec le code suivant:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
test 'ici, le nom de ta macro
End Sub
Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1".
J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne
fonctionne.
D'avance merci pour votre aide
Georges
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> Range("Choix1").Address Then Exit Sub Test End Sub
Au revoir
"Georges" a écrit dans le message de news:
Bonjour, J'ai trouvé en partie ma réponse sur le forum avec le code suivant:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub test 'ici, le nom de ta macro End Sub
Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1". J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne fonctionne. D'avance merci pour votre aide Georges
Georges
Bonjour, Merci pour cette réponse rapide, mais elle ne fonctionne pas Georges
"Charabeuh" a écrit :
Bonjour,
Peut-être :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> Range("Choix1").Address Then Exit Sub Test End Sub
Au revoir
"Georges" a écrit dans le message de news: > Bonjour, > J'ai trouvé en partie ma réponse sur le forum avec le code suivant: > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > If Target.Address <> "$A$1" Then Exit Sub > test 'ici, le nom de ta macro > End Sub > > Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1". > J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne > fonctionne. > D'avance merci pour votre aide > Georges
Bonjour,
Merci pour cette réponse rapide, mais elle ne fonctionne pas
Georges
"Charabeuh" a écrit :
Bonjour,
Peut-être :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Range("Choix1").Address Then Exit Sub
Test
End Sub
Au revoir
"Georges" <Georges@discussions.microsoft.com> a écrit dans le message de news:17B96805-272D-4F14-94EC-177E19DA50B1@microsoft.com...
> Bonjour,
> J'ai trouvé en partie ma réponse sur le forum avec le code suivant:
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Target.Address <> "$A$1" Then Exit Sub
> test 'ici, le nom de ta macro
> End Sub
>
> Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1".
> J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne
> fonctionne.
> D'avance merci pour votre aide
> Georges
Bonjour, Merci pour cette réponse rapide, mais elle ne fonctionne pas Georges
"Charabeuh" a écrit :
Bonjour,
Peut-être :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> Range("Choix1").Address Then Exit Sub Test End Sub
Au revoir
"Georges" a écrit dans le message de news: > Bonjour, > J'ai trouvé en partie ma réponse sur le forum avec le code suivant: > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > If Target.Address <> "$A$1" Then Exit Sub > test 'ici, le nom de ta macro > End Sub > > Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1". > J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne > fonctionne. > D'avance merci pour votre aide > Georges
Georges
Désolé, elle fonctionne bien Merci et bonne journée Georges
"Georges" a écrit :
Bonjour, Merci pour cette réponse rapide, mais elle ne fonctionne pas Georges
"Charabeuh" a écrit :
> Bonjour, > > Peut-être : > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > If Target.Address <> Range("Choix1").Address Then Exit Sub > Test > End Sub > > Au revoir > > > "Georges" a écrit dans le message de news: > > Bonjour, > > J'ai trouvé en partie ma réponse sur le forum avec le code suivant: > > > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > > If Target.Address <> "$A$1" Then Exit Sub > > test 'ici, le nom de ta macro > > End Sub > > > > Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1". > > J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne > > fonctionne. > > D'avance merci pour votre aide > > Georges > >
Désolé, elle fonctionne bien
Merci
et bonne journée
Georges
"Georges" a écrit :
Bonjour,
Merci pour cette réponse rapide, mais elle ne fonctionne pas
Georges
"Charabeuh" a écrit :
> Bonjour,
>
> Peut-être :
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Target.Address <> Range("Choix1").Address Then Exit Sub
> Test
> End Sub
>
> Au revoir
>
>
> "Georges" <Georges@discussions.microsoft.com> a écrit dans le message de news:17B96805-272D-4F14-94EC-177E19DA50B1@microsoft.com...
> > Bonjour,
> > J'ai trouvé en partie ma réponse sur le forum avec le code suivant:
> >
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > If Target.Address <> "$A$1" Then Exit Sub
> > test 'ici, le nom de ta macro
> > End Sub
> >
> > Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1".
> > J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne
> > fonctionne.
> > D'avance merci pour votre aide
> > Georges
>
>
Désolé, elle fonctionne bien Merci et bonne journée Georges
"Georges" a écrit :
Bonjour, Merci pour cette réponse rapide, mais elle ne fonctionne pas Georges
"Charabeuh" a écrit :
> Bonjour, > > Peut-être : > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > If Target.Address <> Range("Choix1").Address Then Exit Sub > Test > End Sub > > Au revoir > > > "Georges" a écrit dans le message de news: > > Bonjour, > > J'ai trouvé en partie ma réponse sur le forum avec le code suivant: > > > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > > If Target.Address <> "$A$1" Then Exit Sub > > test 'ici, le nom de ta macro > > End Sub > > > > Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1". > > J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne > > fonctionne. > > D'avance merci pour votre aide > > Georges > >
Charabeuh
Bonjour,
As tu défini une cellule de la feuille avec le nom "Choix1" ?
et comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo TheEnd If Target.Address <> Range("Choix1").Address Then Exit Sub MsgBox "ca marche" TheEnd: End Sub
"Georges" a écrit dans le message de news:
Bonjour, Merci pour cette réponse rapide, mais elle ne fonctionne pas Georges
"Charabeuh" a écrit :
Bonjour,
Peut-être :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> Range("Choix1").Address Then Exit Sub Test End Sub
Au revoir
"Georges" a écrit dans le message de news: > Bonjour, > J'ai trouvé en partie ma réponse sur le forum avec le code suivant: > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > If Target.Address <> "$A$1" Then Exit Sub > test 'ici, le nom de ta macro > End Sub > > Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1". > J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne > fonctionne. > D'avance merci pour votre aide > Georges
Bonjour,
As tu défini une cellule de la feuille avec le nom "Choix1" ?
et comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo TheEnd
If Target.Address <> Range("Choix1").Address Then Exit Sub
MsgBox "ca marche"
TheEnd:
End Sub
"Georges" <Georges@discussions.microsoft.com> a écrit dans le message de news:5005503E-8C51-485A-8875-CD461C1BB0CC@microsoft.com...
Bonjour,
Merci pour cette réponse rapide, mais elle ne fonctionne pas
Georges
"Charabeuh" a écrit :
Bonjour,
Peut-être :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Range("Choix1").Address Then Exit Sub
Test
End Sub
Au revoir
"Georges" <Georges@discussions.microsoft.com> a écrit dans le message de
news:17B96805-272D-4F14-94EC-177E19DA50B1@microsoft.com...
> Bonjour,
> J'ai trouvé en partie ma réponse sur le forum avec le code suivant:
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Target.Address <> "$A$1" Then Exit Sub
> test 'ici, le nom de ta macro
> End Sub
>
> Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1".
> J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne
> fonctionne.
> D'avance merci pour votre aide
> Georges
As tu défini une cellule de la feuille avec le nom "Choix1" ?
et comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo TheEnd If Target.Address <> Range("Choix1").Address Then Exit Sub MsgBox "ca marche" TheEnd: End Sub
"Georges" a écrit dans le message de news:
Bonjour, Merci pour cette réponse rapide, mais elle ne fonctionne pas Georges
"Charabeuh" a écrit :
Bonjour,
Peut-être :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> Range("Choix1").Address Then Exit Sub Test End Sub
Au revoir
"Georges" a écrit dans le message de news: > Bonjour, > J'ai trouvé en partie ma réponse sur le forum avec le code suivant: > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > If Target.Address <> "$A$1" Then Exit Sub > test 'ici, le nom de ta macro > End Sub > > Par contre je souhaite lancer la macro à partir d'une cellule nommée "Choix1". > J'ai essayé de remplacer $A$1 par le nom de la cellule mais rien ne > fonctionne. > D'avance merci pour votre aide > Georges