Faire apparaître un userform uniquement par un clic droit

[Alexandre]

Bonjour....

Dans le fichier joint, créé grace à l'aide de nombreuses personnes du forum que je remercie, un userform apparait quand on clic sur les cellules des différentes feuilles. Cependant, j'aurais souhaité ne faire apparaitre ce userform uniquement par un clic droit avec la souris....de façon à pouvoir écrire librement dans ces cellules....

Espérant que je sois assez clair.


Merci à tout le monde


Alexandre

 

[yves]

Salut Alexandre,


Utilise ça pluto que selection change,

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Yves

 

[Robert]

Salut Alexanre, Yves, le forum,

En pièce jointe ton fichier modifié où j'ai fait ce que préconnise Yves. J'ai aussi rajouter un bouton dans l'UserForm (il est caché en arrière plan derrière les labels) auquel j'ai attribué la propriété Cancel = True ce qui te permet de fermer l'UserForm à l'aide de la touche [Échap.].

À plus,

Robert

 

[Alexandre]

Bonjour....

...et grand merci !

Tout fonctionne parfaitement sur le fichier....

Cependant, j'ai voulu l'adapter à un autre classeur (que je joins), et là....tout plante.

En verrais-tu la raison ?


Merci

Alexandre

 

[CHti160]

salut "alexandre "bonsoir le "Forum"
il te suffit d'oter l'apostrophe de 'For l = 3 To Range("A3").End(xlDown).Row
et de rajouter un next a lasuite de next cel
A+++
Jean Marie

 

[Alexandre]

bonsoir....

J'ai fait ce que tu as dit, mais le classeur plante quand même...et justement il m'indique cette fameuse ligne.....For l = 3 To Range("A3").End(xlDown).Row

???

j'ai remis en pièce-jointe le fichier modifié selon tes indications......

Quelqu'un aurait une idée ?


Merci beaucoup


Alexandre

 

[CHti160]

re
je pense que celà plante en janvier car tu n'a rien dans ta colonne A
j'y ai mis des 1 est ça marche à voir
A+++
Jean Marie

 

[Alexandre]

Re

A priori, oui....il s'agissait de ça....

Parfois, on cherche loin alors que ça semble si simple


En tout cas.....

merci beaucoup


Alexandre

 

[Alexandre]

Re...bonsoir,

En effet, celà fonctionne....cependant, j'ai l'impression que le classeur est long à effectuer ces opérations.....

J'ai l'impression que les calculs se font sur l'ensemble de la feuille alors qu'il me suffirait de les faire sur la plage B3 à AF100....

Une modification à faire ? ou alors il s'agit d'autre chose ?


MErci encore et toujours


Alexandre

 

[CHti160]

Salut"Alexandre"
bonjour le"FORUM"
je pense que le code peut être obtimisé.....
pour ce qui est de la plage traitée elle est fonction de la colonne A donc
la macro ne couvre pas toute la feuille mais la plage délimiée
A+++
Jean Marie

 

[yves]

Salut Alexandre et le Forum

Ci-joint ton code optimisé a toi de voir.


Yves

 

[Alexandre]

Bonjour

ton nouveau code optimisé a vraiment l'air d'accéler les calculs...

je t'en remercie


Alexandre

 

[Alexandre]

Bonjour....

Comme je le disais à l'instant, tout fonctionne superbement....

Mais, il y a toujours un mais...... j'ai voulu le réadapter à un autre fichier....
et là, rien à faire. J'ai tenté de comprendre les différents codes...malheureusement, je ne maîtrise pas bien .

Pourrais-tu me dire ce qui cloche ?


Merci


Alexandre

 

[Stan]

Hello le forum

Suis pas un pro du vba mais si tu changes ta ligne de code vers la fin en

Cells(lig, i).Value = Cells(lig, i - 1)

ça doit rouler .....


stan

 

[Alexandre]

Bonjour....et merci

J'ai appliqué ce que tu m'as conseillé....mais bêtement sans réellement comprendre. Enfin, ça fonctionne.

Curieusement, sur l'ancien fichier, le clic droit ne déclenchait que l'userform...et maintenant, une fois que l'userform a été utilisé et qu'il se ferme, le menu contextuel déroulant d'excel apparait.... une ligne a rajouter dans le code ?

De plus, je n'arrive plus à calculer les lignes par mois où se trouverait une des couleurs définies par l'userform....


Merci


Alexandre