XL 2019 Encore besoin de votre aide

C

Compte Supprimé 979

Guest

• 19 Juillet 2019

• #2

Oh tête de mort.... commence par dire bonjour

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 19 Juillet 2019

• #3

HOOO désolé j'avais pas vu je corrige ca de suite

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Juillet 2019

• #4

Bonsoir @RoyalP,

Peut-être ?:
Dans le module de la feuille de codename Feuil1 "calendrier":

VB:

Option Explicit

Public maCellule As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    Cancel = True
    If Not Application.Intersect(Target, Range("A6:AG37")) Is Nothing Then
        Set maCellule = Target
        Userform1.Show
    End If
End Sub

et pour le bouton enregistrer du userform:

Code:

Private Sub CommandButton_enreg_Click()
  ligne_insertion = Sheets("BDD").Range("A65000").End(xlUp).Row + 1

  Sheets("BDD").Cells(ligne_insertion, 1) = Feuil1.maCellule.Value2
  Sheets("BDD").Cells(ligne_insertion, 1).NumberFormat = "dd/mm/yyyy"

  ' la suite du code....

End Sub

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 19 Juillet 2019

• #5

merci mapomme, c'est a peu pres ce que je veux faire sauf que la je dois clicker sur la date , moi ce que je veux c'est si je clique sur la cellule sur mon exemple en rouge du lundi 02 septembre 2019 ca me récupere la date . merci quand meme pour l'aide ca me permet d'avancer quand meme.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Juillet 2019

• #6

Re @RoyalP ,

Dans ce cas, remplacer dans le code de Feuil1, la ligne suivante:

VB:

Set maCellule = Target

par la ligne :

Code:

Set maCellule = Cells(Target.Row, "a")

edit : bonsoir @BrunoM45

 

Dernière édition: 19 Juillet 2019

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 19 Juillet 2019

• #7

MERVEILLEUX, mille merci mapome, je vais pouvoir continuer mon projet.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Juillet 2019

• #8

Bonsoir le fil, BrunoM45, mapomme

Ou zencore zaussi possible
Set maCellule = Cells(Target.Row, 1)

 

Vote positif 0 Vote négatif

RoyalP

XLDnaute Occasionnel

• 19 Juillet 2019

• #9

je viens de voir un problème si je double click sur 15 novembre il me garde la date du 01/09/2019 !!
aie
merci de votre aide precieuse

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Juillet 2019

• #10

Re @RoyalP,

RoyalP à dit:

je viens de voir un problème si je double click sur 15 novembre il me garde la date du 01/09/2019 !!

Cliquez pour agrandir...

Essayez ce code dans le module de Feuil1 (la ligne du Msgbox est là juste pour le test).
Le code gère aussi les fins de colonne des mois inférieurs à 31 jours:

VB:

Option Explicit

Public maCellule As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
   Cancel = True
   If Not Application.Intersect(Target, Range("A6:AG37")) Is Nothing Then
      Set maCellule = Cells(Target.Row, 1 + 3 * Int((Target.Column - 1) / 3))
      MsgBox maCellule  'juste pour le test
      If IsDate(maCellule) Then Userform1.Show
   End If
End Sub

 

Dernière édition: 19 Juillet 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Juillet 2019

• #11

Bonsoir à toi aussi mapomme
(cf le message#8)

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Juillet 2019

• #12

Salut @Staple1600 @ ,

Mille + une excuses de ne pas t'avoir répondu tout de suite. J'avais vu , j'avais lu puis j'ai zappé.
Chacun a ses petites habitudes. Moi je suis un "littéraire" le "a" me parle plus que le hein!
Enfin jusqu'au "z". Après c'est plus difficile pour moi

Concern1nt l1 question, je l'1v1is lu trop r1pidement et donc m1l répondu. C'est p1s bien!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Juillet 2019

• #13

Re

Oui mais avec le Hun, on fait fuir le Trente et quatre (deux fois)
Ça ne sert pas à grand chose (ou alors juste pour se souvenir un soir de finale CAN, des Wisigoths)


Maintenant une question m'étreint la glotte
Pourquoi une variable macellule puisque Target est déjà un Range?
(PS: Je sais que cette variable était là dès le message#1)

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Juillet 2019

• #14

Staple1600 à dit:

Maintenant une question m'étreint la glotte
Pourquoi une variable macellule puisque Target est déjà un Range?
(PS: Je sais que cette variable était là dès le message#1)

Cliquez pour agrandir...

Target n'est pas accessible à partir du module de l'userform, me semble-t-il.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Juillet 2019

• #15

Re

Alors pour apaiser ma glotte (voir message précédent), pour le test et pour le fun
Et pour passer des Wisigoths à Barracuda

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)
End If
End Sub

 

Vote positif 0 Vote négatif