Microsoft 365 UserForm heures et minutes afficher à droite de ma cellule

Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous :)

Je suis toujours en train de torturer l'excellent calendrier de Rolland_M et je ne parviens pas placer "l'UserForm heures et minutes à droite de ma cellule".

Pour le calendrier, c'est très silmple car Rolland_M l'avait prévu :
VB: 
'====================================================================================================
Option Explicit
' Vous pouvez adapter ces paramètres  v (ces paramètres ont été ajouté suite à des demandes du forum.
' ----------------------------------  v
Private Const AffMoisPrecedentSuivant = True ' False)aff.mois sélectionné True)avec précédent+suivant
Private Const NoDuPremJourSem% = 1           ' 1)Lundi à 7)Dimanche
Private Const SensDuCalendrier$ = ">"        ' >)Gauche>Droite(classique)  <)Gauche<Droite
Private Const PlacementCalendrier% = 1       ' 1)à droite 2)en dessous de l'objet
Private Const FormatDateUserSurCell = False  ' True)format ci-dessous appliqué sur cellule  False)Non
Private Const FormatDateUser$ = "dd/mm/yyyy" ' "dd/mm/yyyy" ou "yyyy/mm/dd"
Private Const PaysJourFeries$ = "France"     ' choisir un des pays dispo
'Private Const PaysJourFeries$ = "Belgique"  '
'Private Const PaysJourFeries$ = "Quebec"    '
'Private Const PaysJourFeries$ = "Genève"    '
'Private Const PaysJourFeries$ = "Canada"    '
'====================================================================================================
ligne : PlacementCalendrier% = 1 ' 1)à droite

Mais pour afficher les heures et minutes, je n'y arrive pas Grrrr !
1668172505577.png

Pourriez-vous m'aider ?
En cas, je joins le fichier test et je continue mes tâtonnement lol
Un grand merci à tous,
:)
 

Pièces jointes

  • calendrier3.xlsm
    97.7 KB · Affichages: 9
Trier par date Trier par votes
cp4

cp4

XLDnaute Barbatruc
Usine à gaz à dit:
Re :)
Suis-je t'y bête.
C'était prévu aussi :
VB: 
'option de placement et position
'sous la cellule(2) ou à droite(1)
Private Const PlacementCalendrier = 1 '1 ou 2
Désolé du dérangement
:oops:
Cliquez pour agrandir...
Bonjour,

@Usine à gaz : Pas très abouti ton userform. Pas de moyen de revenir en arrière en cas d'erreur (vider cellule). En effet, dès qu'une cellule concernée par le code est sélectionnée, l'userform s'affiche et là inexorablement une date est ajoutée même en laissant les textboxs hh et mm vides. N'est-ce pas gênant pour les utilisateurs?

Bonne journée.
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour cp4, le Forum :)

Le calendrier de Roland_M est super "abouti"
Dans le fichier test de ce fil, le calendrier est paramétré pour utilisation dans un cadre très précis.
- Le calendrier ne s'affiche pas (la date est mise automatiquement (le jour+7) ).
- Affichage heure et minutes pour rappel.

Voici en pièce jointe le même calendrier dans :
- utilisation libre de sortie en feuille "SuivisAppels",
- utilisation "dirigée" en feuille "SaisieRdV"
:)
 

Pièces jointes

  • calendriers_clicGauche01.xlsm
    214.8 KB · Affichages: 5
Dernière édition:
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
bonjour lionel
je constate que l'on utilise allègrement mes codes ;)
même si ceux ci était a l’époque bien maladroits
et modifié encore plus maladroitement
VB: 
Private Sub UserformPosSurCell(ByVal Obj As Range)
Dim SvgScr As Boolean: SvgScr = Application.ScreenUpdating
Application.ScreenUpdating = True
Dim PtoPx#, Z@, L1#, T1#, C#, R#, Vr As Range, H%, V%, I%, Ok As Boolean
With ActiveWindow.ActivePane
 PtoPx = (.PointsToScreenPixelsX(Cells.Width) - .PointsToScreenPixelsX(0)) / Cells.Width
End With
With ActiveWindow
   'exit si la cellule injecté n'est pas vible a l'ecran
   'For I = 1 To .Panes.Count
   ' If Not Intersect(.Panes(I).VisibleRange, Obj) Is Nothing Then Ok = True
   'Next
   'If Ok = False Then Beep: MsgBox " cette cellule n'est pas visible a l'ecran": Unload Me: Exit Sub
   Z = (ActiveWindow.Zoom / 100): Set Vr = .VisibleRange
   L1 = (.ActivePane.PointsToScreenPixelsX(Int(Obj.Left)) / PtoPx) * Z
   T1 = (.ActivePane.PointsToScreenPixelsY(Int(Obj.Top)) / PtoPx) * Z
   With .Panes(1).VisibleRange: C = .Cells(.Cells.Count).Column: R = .Cells(.Cells.Count).Row: End With
   If .SplitRow > 0 Then
     If Obj.Row < R + 1 And .ScrollRow > R Then T1 = ((.ActivePane.PointsToScreenPixelsY(Vr.Cells(1).Top) / PtoPx) * Z) - (Range(Obj, Cells(R, Obj.Column)).Height * Z)
   End If
   If .SplitColumn > 0 Then
     If Obj.Column < C + 1 And .ScrollColumn > C Then L1 = ((.ActivePane.PointsToScreenPixelsX(Vr.Cells(1).Left) / PtoPx) * Z) - (Range(Obj, Cells(Obj.Row, C)).Width * Z)
   End If
End With
'option de placement et position
'Horizontal=0=gauche  1=milieu 2=droite
'Vertical  =0=en haut 1=milieu 2=bas
If PlacementCalendrier = 1 Then 'droite
   H = 2: V = 0
ElseIf PlacementCalendrier = 2 Then 'dessous
   H = 0: V = 2
Else: H = 0: V = 2
End If
L1 = L1 + ((Obj.Width / 2) * Z) * H
T1 = T1 + ((Obj.Height / 2) * Z) * V
'position +test limites écran
Dim EcXY%
EcXY = 4 And Int(Val(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1))) = 6 And Int(Val(Application.Version)) < 15 '<2013
Me.Top = T1 + EcXY: Me.Left = L1 + EcXY
Application.ScreenUpdating = SvgScr
End Sub
a tu plusieurs pane dans ta feuille? -->non
est il plus facile de savoir la pane -->oui

si on reste en pixel le calcul est plus simple

le must c'est ce que j'avais trouvé ca à l'epoque
VB: 
EcXY = 4 And Int(Val(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1))) = 6 And Int(Val(Application.Version)) < 15 '<2013
qui un peu plus tard c'est révélé être pas toujours juste sur 2 pc même systeme et même office
alors ca m'arrangeais bien sur 2007
mais apres j'ai vite compris que c’était pas ça 🤣
c'est bien pourça que j'ai abandonné cette piste dans mon principe
chez toi sur ton fichier la chose est simple
ici ton userform travaille sur la cellule que tu a rightcliqué c'est donc l'activecell et par conséquent l'activepane
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
Usine à gaz à dit:
Bonjour cp4, le Forum :)

Le calendrier de Roland_M est super "abouti"
Dans le fichier test de ce fil, le calendrier est paramétré pour utilisation dans un cadre très précis.
- Le calendrier ne s'affiche pas (la date est mise automatiquement (le jour+7) ).
- Affichage heure et minutes pour rappel.

Voici en pièce jointe le même calendrier dans :
- utilisation libre de sortie en feuille "SuivisAppels",
- utilisation "dirigée" en feuille "SaisieRdV"
:)
Cliquez pour agrandir...
Bonjour @patricktoulon ;), @Usine à gaz ;),

@Usine à gaz : Je n'ai pas parlé du calendrier de @Roland_M mais du tien. Celui où tu saisis (ou insères) des heures et des minutes.

A+
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
patricktoulon à dit:
bonjour lionel
je constate que l'on utilise allègrement mes codes ;)
même si ceux ci était a l’époque bien maladroits
et modifié encore plus maladroitement
VB: 
Private Sub UserformPosSurCell(ByVal Obj As Range)
Dim SvgScr As Boolean: SvgScr = Application.ScreenUpdating
Application.ScreenUpdating = True
Dim PtoPx#, Z@, L1#, T1#, C#, R#, Vr As Range, H%, V%, I%, Ok As Boolean
With ActiveWindow.ActivePane
 PtoPx = (.PointsToScreenPixelsX(Cells.Width) - .PointsToScreenPixelsX(0)) / Cells.Width
End With
With ActiveWindow
   'exit si la cellule injecté n'est pas vible a l'ecran
   'For I = 1 To .Panes.Count
   ' If Not Intersect(.Panes(I).VisibleRange, Obj) Is Nothing Then Ok = True
   'Next
   'If Ok = False Then Beep: MsgBox " cette cellule n'est pas visible a l'ecran": Unload Me: Exit Sub
   Z = (ActiveWindow.Zoom / 100): Set Vr = .VisibleRange
   L1 = (.ActivePane.PointsToScreenPixelsX(Int(Obj.Left)) / PtoPx) * Z
   T1 = (.ActivePane.PointsToScreenPixelsY(Int(Obj.Top)) / PtoPx) * Z
   With .Panes(1).VisibleRange: C = .Cells(.Cells.Count).Column: R = .Cells(.Cells.Count).Row: End With
   If .SplitRow > 0 Then
     If Obj.Row < R + 1 And .ScrollRow > R Then T1 = ((.ActivePane.PointsToScreenPixelsY(Vr.Cells(1).Top) / PtoPx) * Z) - (Range(Obj, Cells(R, Obj.Column)).Height * Z)
   End If
   If .SplitColumn > 0 Then
     If Obj.Column < C + 1 And .ScrollColumn > C Then L1 = ((.ActivePane.PointsToScreenPixelsX(Vr.Cells(1).Left) / PtoPx) * Z) - (Range(Obj, Cells(Obj.Row, C)).Width * Z)
   End If
End With
'option de placement et position
'Horizontal=0=gauche  1=milieu 2=droite
'Vertical  =0=en haut 1=milieu 2=bas
If PlacementCalendrier = 1 Then 'droite
   H = 2: V = 0
ElseIf PlacementCalendrier = 2 Then 'dessous
   H = 0: V = 2
Else: H = 0: V = 2
End If
L1 = L1 + ((Obj.Width / 2) * Z) * H
T1 = T1 + ((Obj.Height / 2) * Z) * V
'position +test limites écran
Dim EcXY%
EcXY = 4 And Int(Val(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1))) = 6 And Int(Val(Application.Version)) < 15 '<2013
Me.Top = T1 + EcXY: Me.Left = L1 + EcXY
Application.ScreenUpdating = SvgScr
End Sub
a tu plusieurs pane dans ta feuille? -->non
est il plus facile de savoir la pane -->oui

si on reste en pixel le calcul est plus simple

le must c'est ce que j'avais trouvé ca à l'epoque
VB: 
EcXY = 4 And Int(Val(Mid(Application.OperatingSystem, InStrRev(Application.OperatingSystem, " ") + 1))) = 6 And Int(Val(Application.Version)) < 15 '<2013
qui un peu plus tard c'est révélé être pas toujours juste sur 2 pc même systeme et même office
alors ca m'arrangeais bien sur 2007
mais apres j'ai vite compris que c’était pas ça 🤣
c'est bien pourça que j'ai abandonné cette piste dans mon principe
chez toi sur ton fichier la chose est simple
ici ton userform travaille sur la cellule que tu a rightcliqué c'est donc l'activecell et par conséquent l'activepane
Cliquez pour agrandir...
Bonjour Patrick :)
Merci pour ce retour...
Chez moi, tout fonctionne bien.
:)
 
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
re
oui il fonctionne je sais
mais j'ai fait plus simple et plus propre depuis
et vu que tu te sert pas de ecx et tout le toin toin , tu peux donc supprimer tout ça surtout que c'est avéré faux comme raisonnement a part pour 2 seuls cas sur W7 et office 2007 ou 2013
(j'ai pas toujours réfléchi dans le bon sens 😂 )
 
Vote positif 0 Vote négatif

Discussions similaires

O
  • Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
437
ChTi160
ChTi160
M
  • Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
403
Mody200
M
A
  • Question
XL 2021 Ouverture d'un PDF à l'aide d'un bouton clic et pour multi utilisateur PC
Réponses
3
Affichages
286
AugusteP
A
Usine à gaz
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
2 K
Usine à gaz
Usine à gaz
A
  • Question
XL 2021 Comment créer un code VBA afin de création un chemin d'accès universel
Réponses
8
Affichages
794
AugusteP
A
P
  • Question
Microsoft 365 Calendrier qui s'affiche quand je sélectionne une cellule
Réponses
4
Affichages
741
Piksaw
P
P
  • Question
XL 2019 Macro qui ralenti mon classeur après exécution
Réponses
2
Affichages
625
pat66
P
Ferbank
  • Question
XL 2019 modifier une macro
Réponses
2
Affichages
734
Ferbank
Ferbank
S
  • Résolu(e)
XL 2016 Export pdf non possible suite à bascule office 365 vers office 2016
Réponses
4
Affichages
790
Sophieg72
S
VBA_dev_Anne_Marie
  • Question
Microsoft 365 Imprimer en PDF sans note de bas page
Réponses
4
Affichages
1 K
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie

Membres actuellement en ligne

9 membres et 91 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 104
Messages
2 085 344
Membres
102 865
dernier inscrit
FreyaSalander