Pb de code

[renaud]

Bonjour a tous,

J aurais aime faire cette macro, mais elle ne marche pas, pouvez vous m eclairer.

Merci

Sub Macro1()
If Not Application.Intersect(Target, Range("A10:A44, A47:A71, A74:A123")) Is Nothing Then
BB
End If
End Sub

 

[Pascal76]

Salut renaud

Je suppose que ce fil est la suite ou le même que ce dernier

Lien supprimé

Le problème vient du fait que tu utilises du code d'un Private Sub Worksheet_SelectionChange(ByVal Target As Range) et que tu l'insères dans une procédure donc il faut définir certaines choses .

Par exemple comment ta macro connait ta Target ?

Essaies peut-être ( sit udésires faire un test par rapport à la cellule active)
If Not Application.Intersect(ActiveCell, Range("A10:A44, A47:A71, A74:A123")) Is Nothing Then

Sinon un morceau de fichier et plus d'explications seraient necessaires

Bon courage

Pascal

 

[renaud]

Merci Pascal,

J ai effectue les changements, cela marche, mais une fois seulement.
En fait ma macro BB s active des que l on clique sur une des cellules de la plage selectionnee.
j aimerais que le bouton toggle permette d activer et de mettre fin a la macro BB mais qu entre temps, elle puisse s activer a chaque fois que l on clique sur une des cellules concernees.

Pour cela j ai dans une feuille Module

Sub Macro1()
If Not Application.Intersect(ActiveCell, Range("A10:A44, A47:A71, A74:A123")) Is Nothing Then
BB
End If
End Sub


et dans Sheet 1
Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = "Activate BB links"
Macro1
Else
ToggleButton1.Caption = "NomDuBouton"
End If
End Sub


Que puis je modifier pour arriver a mon objectif

merci

 

[Pascal76]

Re

il faut donc que ce soit non pas dans une procèdure du style sub macro1 mais dans

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(target, Range("A10:A44, A47:A71, A74:A123")) Is Nothing Then
BB
End If
End Sub

cela se rentre non pas dans un module mais dans le code de la feuille

Pascal

 

[renaud]

D accord mais dans ce cas est il possible de l activer et de la desactiver a l aide d un bouton?


renaud

 

[Pascal76]

elle s'active si tu sélectionnes une cellule de ta plage.

Je croyais que c'est ce que tu voulais mais j'avais pas bien lu la phrase


Bon je t'envoies un jet pour que ta macro démarre aussi bien en selection qu'en clic bouton


Pascal

 

[renaud]

Merci pascal, mais en fait ce que je recherche, c est que la macro s active,

1/ si j active le bouton
2/ une fois que le bouton est active, seulement si je clique sur une cellule de la plage selectionnee.
3/ si possible, pouvoir desactiver la macro en recliquant sur le bouton, si bien que si apres coup je clique sur une des cellules de la plage, rien ne se passe.

Merci

renaud

 

[Pascal76]

re

Je pense que cela répond à tes questions 1 et 2

Pour la 3 je sais pas pour l'instant

Pascal

 

[renaud]

Super Pascal, c est exactement ce qu il me fallait

Merci