Positionner UserForm sur cellule

Version imprimable

Voir 40 message(s) de cette discussion en une page

re avec test existance

pour le test de son existance tu fait comme ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
    Dim datePicker As Object
    With Sheets(1)
        For Each sh In .Shapes
        If sh.Name = "datePicker" Then Exit Sub
        Next
            Set datePicker = .OLEObjects.Add(ClassType:="MSCAL.Calendar.7", Link:=False, DisplayAsIcon:=False, Left:=.Range("A10").Left, Top:=.Range("A10").Top)    '.Select
            With datePicker
                .Name = "datePicker"
                .Visible = False
                .Visible = True
                .Top = Cells(3, 4).Top
                .Left = Cells(3, 5).Left
            End With
 
    End With
End Sub

10/03/2016, 15h34
cerede2000

Je n'ai pas de soucis avec le test d'existence.
Seulement encore une fois ce foutu zoom qui agit sur le DatePicker :(

re avec test existance et dimention fixe pour n'importe quel zoom

re
teste existance ok
position sur cellule ok
dimention fixe ok

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
   Dim Z
      Dim datePicker As Object
    With Sheets(1)
        For Each sh In .Shapes
        If sh.Name = "datePicker" Then Exit Sub
        Next
            Set datePicker = .OLEObjects.Add(ClassType:="MSCAL.Calendar.7", Link:=False, DisplayAsIcon:=False, Left:=.Range("A10").Left, Top:=.Range("A10").Top)    '.Select
            With datePicker
                .Name = "datePicker"
                .Visible = False
                .Visible = True
                .Top = Cells(3, 4).Top
                .Left = Cells(3, 5).Left
            .Width = 250
            .Height = 150
            End With
 
    End With
End Sub

Citation:
Envoyé par patricktoulon
j'oubliais pour sortir du mode création il faut le rendre invisible puis visible pour débloquer son utilisation
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub test() Dim datePicker As Object With Sheets(1) Set datePicker = .OLEObjects.Add(ClassType:="MSCAL.Calendar.7", Link:=False, DisplayAsIcon:=False, Left:=.Range("A10").Left, Top:=.Range("A10").Top) '.Select datePicker.Name = "datePicker" datePicker.Visible = False datePicker.Visible = True End With End Sub
;)
Ah non !!
Je remarque qu'avec MSCAL.Calendar.7 rien ne s'affiche.
Tout a l'heure je n'avais pas supprimé le MSComCtl2.MonthView.2

En debug pas à pas, l'objet datePicker reste à Nothing après l'affectation d'OleObjects.Add
Faut il rajouter une référence pour l'utiliser ?

10/03/2016, 16h02
patricktoulon

re

non il est en natif
tu a essayé mon dernier code complet

bonjour,
j’avoue c'est pas très propre!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim datePicker As Object
    Application.ScreenUpdating = False
 a = ActiveWindow.Zoom
  ActiveWindow.Zoom = 100
    With Sheets(1)
        Set datePicker = .OLEObjects.Add(ClassType:="MSCAL.Calendar.7", Link:=False, DisplayAsIcon:=False, Left:=.Range("A10").Left, Top:=.Range("A10").Top)    '.Select
        datePicker.Name = "datePicker"
    datePicker.Visible = False
    datePicker.Visible = True
    End With
  ActiveWindow.Zoom = a
  Application.ScreenUpdating = True
End Sub

10/03/2016, 17h17
cerede2000

1 pièce(s) jointe(s)

@patricktoulon : Oui

Classeur tout neuf pour tester :
Pièce jointe 203519

Voir 40 message(s) de cette discussion en une page