Faire apparaître un userform uniquement par un clic droit

Y

yves

Guest

• 27 Novembre 2004

• #2

Salut Alexandre,


Utilise ça pluto que selection change,

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

Yves

 

Vote positif 0 Vote négatif

R

Robert

Guest

• 27 Novembre 2004

• #3

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

 

Pièces jointes

• PLANNING_ABSENCES_ANIMATEURS_3.zip

  30.5 KB · Affichages: 27

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 27 Novembre 2004

• #4

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

 

Pièces jointes

• PLANNING_ABSENCESPLANTE.zip

  30.3 KB · Affichages: 22
• PLANNING_ABSENCESPLANTE.zip

  30.3 KB · Affichages: 27
• PLANNING_ABSENCESPLANTE.zip

  30.3 KB · Affichages: 26

Vote positif 0 Vote négatif

C

CHti160

Guest

• 27 Novembre 2004

• #5

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

 

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 27 Novembre 2004

• #6

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

 

Pièces jointes

• PLANNING_ABSENCESPLANTE.zip

  32.1 KB · Affichages: 25
• PLANNING_ABSENCESPLANTE.zip

  32.1 KB · Affichages: 26
• PLANNING_ABSENCESPLANTE.zip

  32.1 KB · Affichages: 24

Vote positif 0 Vote négatif

C

CHti160

Guest

• 27 Novembre 2004

• #7

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

 

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 27 Novembre 2004

• #8

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

 

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 27 Novembre 2004

• #9

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

 

Pièces jointes

• PLANNING_ABSENCES.zip

  34.6 KB · Affichages: 29
• PLANNING_ABSENCES.zip

  34.6 KB · Affichages: 24
• PLANNING_ABSENCES.zip

  34.6 KB · Affichages: 23

Vote positif 0 Vote négatif

C

CHti160

Guest

• 28 Novembre 2004

• #10

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

 

Vote positif 0 Vote négatif

Y

yves

Guest

• 28 Novembre 2004

• #11

Salut Alexandre et le Forum

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


Yves

 

Pièces jointes

• PLANNINGABSENCES1.zip

  32.2 KB · Affichages: 35

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 28 Novembre 2004

• #12

Bonjour

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

je t'en remercie


Alexandre

 

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 28 Novembre 2004

• #13

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

 

Pièces jointes

• SUIVI_DES_HEURES4.zip

  48.6 KB · Affichages: 29
• SUIVI_DES_HEURES4.zip

  48.6 KB · Affichages: 33
• SUIVI_DES_HEURES4.zip

  48.6 KB · Affichages: 29

Vote positif 0 Vote négatif

S

Stan

Guest

• 28 Novembre 2004

• #14

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

 

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 28 Novembre 2004

• #15

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

 

Pièces jointes

• SUIVI_DES_HEURES4.zip

  49 KB · Affichages: 33
• SUIVI_DES_HEURES4.zip

  49 KB · Affichages: 32
• SUIVI_DES_HEURES4.zip

  49 KB · Affichages: 32

Vote positif 0 Vote négatif