Microsoft 365 Appel UserForm par double clic

[mymyetnono]

Bonjour,

Je voudrais savoir si il y a une macro qui pourrait m'ouvrir un UserForm quand je double-clic dans une cellule entre B7 à AF42 avec différents champs dont la date correspondant à la cellule ou il y a eu le double clic (année selon la cellule A3) plutot que de créer une macro par jour.

 

[mymyetnono]

Voici mon tableau.

 

[ChTi160]

Bonjour
je n'ai pas utilisé le Double Click car tu as des formules Partout Lol
Donc dans le code de la feuille "Année"
j'ai mis ceux ci qui semble répondre à la demande

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Worksheets("Année")Avec la feuille Année
If Not Intersect(Target, .Range("B8:AF42")) Is Nothing Then 'si la sélection se trouve dans la plage ainsi définie
UserForm1.Show 0 'on affiche le Userform'
End If
End With
End Sub

j'ai aussi (Double Click) Testé celui ci avec l'utilisation du Cancel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Worksheets("Année")
If Not Intersect(Target, .Range("B8:AF42")) Is Nothing Then
Cancel = False
UserForm1.Show 0
Cancel = True
End If
End With
End Sub

jean marie

 

[mymyetnono]

Bonjour et merci,

J'ai trouver ce code qui va pas trop mal hormis qui m'indique constamment le jour comme un samedi.

Public irow%, icol%, ladate, jour$, mois$

Private Sub Worksheet_beforedoubleclick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("B8:AF42")) Is Nothing Then '<<< ADAPTER REFERENCE ZONE DOUBLE CLIC
    Cancel = True
    irow = Target.Row 'ligne de la cellule double cliquée
    icol = Target.Column 'colonne double clic
    With Sheets("Année")
        jour = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche")(Weekday(ladate, vbTuesday)) & " " & .Cells(6, icol) 'jour converti en français (format JJJJ JJ) à partir de la valeur numérique du jour
        mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")(Int((irow - 7) / 3)) 'mois converti en français à partir du mois numériqueladate = DateSerial(.[A3], Application.RoundUp((irow - 7) / 3, 0), .Cells(6, icol)) 'date reconstituée

    End With

    With UserForm1
        .ComboBox1 = jour & " " & mois 'prend la jour et le mois au format jjjj jj mmmm
        .TextBox_Année = Sheets("Année").[A3].Value
        .Show 'afficher userform
    End With
End If

End Sub

Mais après réflexion, il serais plus utile de pouvoir changer la date dans l'UserForm via un calendrier qui apparaît lorsqu'on clique sur la flèche du ComboBox de la date et de reprendre l'année et de l'afficher dans le TextBox_Année. (servira pour les noms de feuilles).

 

[ChTi160]

Bonjour
Peut être parce que Tu as ceux ci :

Weekday(ladate, vbTuesday))

Le premier jour de la semaine est le mardi
Et ou trouve t'on la variable. "ladate" ?
Pas pu tester pas d'ordi.
A voir ou alors explique nous
Jean marie

 

[mymyetnono]

Bonjour
Peut être parce que Tu as ceux ci :

Weekday(ladate, vbTuesday))

Le premier jour de la semaine est le mardi
Pas pu tester pas d'ordi.
A voir ou alors explique nous
Jean marie

Lorsque je met Monday à la place de Tuesday cela me met systématiquement un dimanche.

 

[ChTi160]

As tu regarde où est déterminé "ladate" dans la procédure mais je ne pense pas que la fonction weekday() puisse être modifiée au hasard elle dépends de toi de ton calendrier !
la semaine chez toi commence t'elle un mardi ?
Jean marie

 

[mymyetnono]

Visiblement il me manquait la ligne avec ladate,

Public irow%, icol%, ladate, jour$, mois$

Private Sub Worksheet_beforedoubleclick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("B8:AF42")) Is Nothing Then '<<< ADAPTER REFERENCE ZONE DOUBLE CLIC
    Cancel = True
    irow = Target.Row 'ligne de la cellule double cliquée
    icol = Target.Column 'colonne double clic
    With Sheets("Année")
        ladate = DateSerial(.[A3], Application.RoundUp((irow - 7) / 3, 0), .Cells(6, icol)) 'date reconstituée
        jour = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche")(Weekday(ladate, vbTuesday)) & " " & .Cells(6, icol) 'jour converti en français (format JJJJ JJ) à partir de la valeur numérique du jour
        mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")(Int((irow - 7) / 3)) 'mois converti en français à partir du mois numérique

    End With

    With UserForm1
        .ComboBox1 = jour & " " & mois 'prend la jour et le mois au format jjjj jj mmmm
        .TextBox_Année = Sheets("Année").[A3].Value
        .Show 'afficher userform
    End With
End If

End Sub

Je souhaiterais qu'un calendrier s'ouvre dans le ComboBox1 lorsqu'on clic sur la petite flèche afin de modifier la date si erreur on clic au mauvais endroit, et que l'année dans la TextBox_Année soit prise dans le ComboBox1 plutôt que dans la cellule a3 de la feuille "Année"

 

[ChTi160]

Re
Pour faire apparaître un calendrier autant mettre un TextBox a la place du combobox. Non ?
Et on a toujours :
Weekday(ladate, vbTuesday)
Jean marie

 

[mymyetnono]

Re
Pour faire apparaître un calendrier autant mettre un TextBox a la place du combobox. Non ?
Jean marie

Oui peut-être, je cherche la fonction la plus efficace pour que cette ComboBox ou TextBox soit une base pour rechercher la date dans la Feuille ou le nom se trouvera dans la TextBox_Année.

 

[ChTi160]

peux tu expliquer

la date dans la Feuille ou le nom se trouvera dans la TextBox_Année

jean marie

 

[mymyetnono]

peux tu expliquer

jean marie

As-tu regarder les différentes feuilles de mon tableau ?

 

[ChTi160]

arff
les différentes feuilles de ton tableau ? Surement !
Mais j'ai bêtement cru que le TextBox_Année allait contenir l'Année Lol
excuses !
Bonne continuation
jean marie

 

[mymyetnono]

Oui, je veut que le TextBox_Année contienne l'année vu que j'ai des feuilles qui sont nommer ainsi (2017, 2018, 2019 etc...) et je pense que ce sera plus facile pour mettre les informations dans les bonne feuille (je ne voudrait pas que mes heures du mercredi 18 novembre 2020 soit au 18 novembre 2018 par exemple. Cela me permettrait aussi de faire une recherche de renseignement d'une journée via cet UserForm.

Je suis encore novice dans ce types de programmation et je m'explique et/ou m'y prends très mal.

Si vous me trouvez dans l'un de ses cas (ou les 2 ), j'en suis vraiment désolé.

 

[ChTi160]

Re pourquoi as tu ComboBox1 et Non RefEdit1
j'ai modifié la macro
Pour que l'on puisse utiliser la Fonction WeekDay correctement
soit Weekday(ladate, vbMonday) - 1 ce qui permet d'avoir le Bon retour dans l'Array Jour
le premier élément étant 0 pour " Lundi " soit 1-1 etc etc 7 pour "Dimanche" soit 7-1
j'ai aussi renommé les Controls ComboBox et TextBox
Regarde :

Private Sub Worksheet_beforedoubleclick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B8:AF42")) Is Nothing Then '<<< ADAPTER REFERENCE ZONE DOUBLE CLIC
    Cancel = True
    irow = Target.Row 'ligne de la cellule double cliquée
    icol = Target.Column 'colonne double clic
    With Sheets("Année")
        ladate = DateSerial(.[A3], Application.RoundUp((irow - 7) / 3, 0), .Cells(6, icol)) 'date reconstituée
        jour = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche")(Weekday(ladate, vbMonday) - 1) & " " & .Cells(6, icol) 'jour converti en français (format JJJJ JJ) à partir de la valeur numérique du jour
        mois = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")(Int((irow - 7) / 3)) 'mois converti en français à partir du mois numérique
    End With
    With UserForm1
        .RefEdit1 = jour & " " & mois 'prend la jour et le mois au format jjjj jj mmmm
        .TextBox_Année = Sheets("Année").[A3].Value
        .Show 'afficher userform
    End With
End If
End Sub

jean marie