XL 2019 Encore besoin de votre aide

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Juillet 2019

• #16

Re @Staple1600,

Oui mais toujours pas accessible à partir du Userform...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Juillet 2019

• #17

Re

Je m'en tiens à la première phrase de mon message précédent qui clairement indique que la baliverne m'importe ici plus que le sort de l'userform.

Charge au demandeur, si jamais l'envie lui prends, d'adapter/mixer avec l'Userform

C'est vrai que j'aurais plus laissé le commentaire pour être plus explicite

VB:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal T As Excel.Range, Cancel As Boolean)
Cancel = True
If Not Application.Intersect(T, Range("A6:AG37")) Is Nothing Then
MsgBox T.Offset(, -(T.Column + 2) Mod 3) 'juste et rien que pour le test
End If
End Sub

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Juillet 2019

• #18

Staple1600 à dit:

pour apaiser ma glotte

Cliquez pour agrandir...

je connais des breuvages qui le font bien mieux qu'une rasade d'Excel

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Juillet 2019

• #19

Re,

Moi aussi.
Une bonne rasade de gnamakoudji
(dommage que ce soit refusé au Scr.bble )

Sur ces considérations rafraîchissantes, je vous laisse deviser calendrier et double-click

Bonne nuit.

EDITION
Mes excuses, Monsieur mapomme
Je viens de relire tout le fil.
Et j'ai vu que je m'étais fourvoyé et mélangé les pinceaux.
Je rends donc macellule à César.

 

Dernière édition: 20 Juillet 2019

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 20 Juillet 2019

• #20

hello et merci de vos aides, je viens de tester et ca ne marche tjrs pas il ne me prend pas la date
Désolé de vous répondre tard, j'étais voir asterix avec les enfants

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Juillet 2019

• #21

Bonsoir @RoyalP ,

Chez moi, il récupère bien la date. Voir fichier joint qui affiche la date récupérée à l'ouverture du Userform.

 

Pièces jointes

• RoyalP- test_cal- v2.xlsm

  33.8 KB · Affichages: 9

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 21 Juillet 2019

• #22

ha ben oui chez avec ta version ca fonctionne , je comprend pas pk la mienne ne fonctionné pas !!! c'est pas grave je vais reprendre a partir de ta version. Merci Mapomme, et les autres qui ont repondu sur ce fil.

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 24 Juillet 2019

• #23

si je peux abuser de vos talents ,j'ai une erreur sur le fichier que j'ai légèrement modifié et cette erreur je n'arrive pas a la corrigé je vous laisse voir avec le fichier joint,l'erreur se passe sur le double click !!
Merci encore de vos aides precieuses

 

Pièces jointes

• RoyalP- test_cal- v2.xlsm

  39.5 KB · Affichages: 5

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juillet 2019

• #24

Bonjour à tous,

Je ne comprends pas, 23 messages et pas de solution ??? Alors voyez celle-ci :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A6:AG37")) Is Nothing Then Exit Sub
Dim dat
dat = Cells(Target.Row, Target.Column - ((Target.Column - 1) Mod 3))
If Not IsDate(dat) Then Exit Sub
Cancel = True
Userform1.Label_date = dat
Userform1.Show
End Sub

A+

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 24 Juillet 2019

• #25

job75 à dit:

Bonjour à tous,

Je ne comprends pas, 23 messages et pas de solution ??? Alors voyez celle-ci :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A6:AG37")) Is Nothing Then Exit Sub
Dim dat
dat = Cells(Target.Row, Target.Column - ((Target.Column - 1) Mod 3))
If Not IsDate(dat) Then Exit Sub
Cancel = True
Userform1.Label_date = dat
Userform1.Show
End Sub

A+

Cliquez pour agrandir...

Merci pour la réponse en faite y'a de l'aide c'est juste que j'ai modifié la version pour y ajouter des heures et depuis ca ne marche plus !!!

Pour ton code j’obtiens cette erreur, merci de l'aide vu la chaleur je m'attendais a une réponse plutôt dans la soirée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juillet 2019

• #26

C'était légèrement le foutoir dans le code de l'UserForm, je l'ai un peu arrangé, plus de bug dans ce fichier.

La variable dat de mon code est maintenant déclarée Public dans Module1.

 

Pièces jointes

• RoyalP- test_cal- v2(1).xlsm

  44 KB · Affichages: 7

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 24 Juillet 2019

• #27

ha cool merci, y'a juste un petit bug il m'affiche une ligne vide dans bdd
quand on efface les infos dans bdd et que l'on crée un nouveau , ca ajoute 2 lignes dont une ligne !!
On avance, on avance merci encore pour ton aide

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juillet 2019

• #28

J'ai corrigé le fichier du post #26, le calcul de ligne_insertion était incorrect.

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 24 Juillet 2019

• #29

je viens de tester mais ca fait toujours pareil

 

Vote positif 0 Vote négatif