show usf dans Sub change

[herve62]

Bonjour
Quelqu'un pourrait-il me donner la méthode pour que lorsque je clique en C ( de 12 à xxx) l'USF s'active
La Sub Change existe et doit se poursuivre après selection des valeurs
J'ai mis qq explications dans la sub
Pour le moment il faut que j'entre quelque chose en C et donc cela ne va pas

 

[pierrejean]

Bonjour hervé

A priori il suffit d'utiliser Slection_Change

 

[herve62]

Bonjour Pierre jean
Merci de ta réponse , cela à l'air de fonctionner pour le début car je bloque sur le passage de variable ( et toujours !!! du mal à ancrer)
pour voir si la suite est correcte
Il me faut mettre les data du choix , dans la bonne cellule cliquée, dans la grille

 

[pierrejean]

Re
Comme ceci

 

[herve62]

Re PJ
Ok merci, ça colle , merci pour la piqure de rappel > Les var public c'est dans MODULE !!!!!
A voir l'adaptation dans l'appli ... avec la suite
Par contre déjà , si je selectionne C13 ..14 etc : PAS d'effet ??

 

[herve62]

Bonjour
Je repose le Pb plus clairement
Je voulais qu'en cliquant dans une cellule d'une plage précise ( de C12 à Cxxx) , l'USF s'execute
En Exemple j'avais C12 ; Pierre Jean m'a proposé une solution qui fonctionne
Mais en poursuivant je m'aperçois qu'en cliquant En C13 cela ne fonctionne plus ??
Je pense à l'Intersect mais ne l'utilisant jamais je ne maîtrise pas

 

[phlaurent55]

Bonjour à tous,

remplace;

If Not Intersect(Target, Range("C12:g" & Range("C65000").End(xlUp).Row )) Is Nothing Then

par:

If Not Intersect(Target, Range("C12:g" & Range("C65000").End(xlUp).Row + 1)) Is Nothing Then

à+
Philippe

 

[herve62]

Re , Slt Philippe
Merci,Oui c'est mieux comme ça
Mais je pige pas pourquoi dans l'appli cette ligne fonctionne avec juste Row ? sauf que la Sub est worksheet_change
et ici c'est selectionChange