Ouverture Macro Quand Selection Celulle

[jpmasclet]

Bonjour a tous,

je cherche a créer une macro qui en excecute une lorsque je selectionne une des celulles d'une zone.
A l'ouverture cela ouvrira un userform avec un choix de bouton et lorsque je clique admettons sur CP , ça m'inscrit 1 et me met la celulle d'une couleur ...

Pour l'userform et le reste ça va, mais c'est au niveau de la macro qui s'ouvre je coince, j'avais trouvé une macro qui actionnai l'ouverture mais seulement à la selection d'une celulle précise.

Ma zone est de T10 à BL40 tout de meme.....

Avez vous une idée , merci d'avance pour aide/commentaire.

 

[Pierrot93]

Re : Ouverture Macro Quand Selection Celulle

Bonjour Jpmasclet

le code ci dessous à mettre dans le module de la feuille concernée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("T10:BL40")) Is Nothing Then
'nom de ta macro
End If
End Sub

bonne soirée
@+

 

[Robert]

Re : Ouverture Macro Quand Selection Celulle

Bonjour JPMasclet, bonjour le forum,

Pour l'userform et le reste ça va,

Alors pourquoi pas un fichier exemple avec ton UserForm pour simplifier la tâche de ceux qui désireraient t'aider ? Si c'est pas trop te demander bien sûr...

 

[jpmasclet]

Re : Ouverture Macro Quand Selection Celulle

Bonjour et merci bcp pour ton aide c'est génial ça marche a merveille, juste un dernier complement d'info. comment puis ajouter plusieurs zone ?
car je voudrais essayer de faire des zones de type T10:BL40 puis T50:BL90 et T100 : BL 150 .. vous voyez ce que je veux dire je ne suis pas sur d'etre assez clair ..

Quant a la seconde remarque .. effectivement j'aurai vu le faire mais je n'en voyai pas l'interet mon userform n'ayant rien de particulier. (clique sur une image ça ecrit quelque chose, clique sur un autre ça ecrit autre chose 🙂 ))

Merci encore.

 

[Pierrot93]

Re : Ouverture Macro Quand Selection Celulle

Re Jpmasclet, Robert

utilise la virgule ciomme séparateur de plage comme l'exemple ci dessous :

If Not Intersect(Target, Range("T10:BL40,T50:BL90 ")) Is Nothing Then

Attention, il faut tout de même que les plages soient cohérentes.

Bon après midi
@+