XL 2019 comment passer le tableur 32 bits en 64 bits

patricktoulon

XLDnaute Barbatruc

• 25 Mars 2021

• #16

re
bon comme ca vite fait (façon bateau )sans api j'ai tout viré !!!
ton userform d’accueil plein écran sans caption et tes controls redimensionnés et repositionnés au prorata du width et du height
(s'adapte a tout écran)
terminé 32/64 on s'en balance
il faudrait apprendre un peu a se servir du moteur de recherche du site tu aurais trouvé en deux secondes

 

Pièces jointes

• Concours belote.xls

  283 KB · Affichages: 11

Vote positif 0 Vote négatif

S

snoopy07

XLDnaute Occasionnel

• 25 Mars 2021

• #17

Re

merci pour ta réponse et pour le temps que tu m as consacré
ca fonction mais tous ce qui se trouve au milieu de usf n est plus aligner
je vais chercher comment recentre tous ca

Cordialement
Snoopy07

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Mars 2021

• #18

re
il n'y a aucune raison que ça ne soit pas aligné tel que ça l'est au départ a part une autre macro qui déplacerait éventuellement les controls

que fait mon code :
1° ce code code prend la mesure du userform au départ
2° met le userform en plein écran en cachant la caption en mettant son top en négatif
3° et enfin les controls sont repositionné au prorata de la différence entre la taille de départ et celle en plein écran et cela pour le width comme le height ainsi que le left et le top

il est vrai que j'ai remarqué que ton classeur avait un comportement bizarre
quelque chose me dis que ce classeur n'ira pas bien loin
j'ai aussi remarqué que les titres des colonne de la listboxs n’était pas bien placés au niveau des 2 premières
et cela même en taille normale ,comme j'ai pas compris ton intention je n' ai pas relevé

voila comment ca ressort chez moi en plein écran
les positions sont parfaitement replacées avec l'original avec le prorata du redimensionnement
les largeurs colonnes de la listbox sont parfaitement redimensionnées au prorata du départ
seul le titre change en effet il se retrouve sur une seule ligne et c'est normal au depart il est sur 2 lignes par rapport au wraptext du controls
bref tout est parfaitement centré

 

Dernière édition: 26 Mars 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Mars 2021

• #19

re
et si tu tiens au apis voici ma fonction bateau api avec les macro4 sans déclaration

 

Pièces jointes

• Concours belote api macro4.xls

  285 KB · Affichages: 7

Vote positif 0 Vote négatif

S

snoopy07

XLDnaute Occasionnel

• 26 Mars 2021

• #20

re
voila comment ca ressort chez moi en plein ecran


je vais essayer avec les api et je revient te dire comment ca marche

cordialement

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Mars 2021

• #21

donc chez toi le columnwidth de la listbox ne s'effectue pas

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Mars 2021

• #22

re
c'est vrai que typename peut jouer des tours selon les versions d'excel
change
If TypeName(Ctrl) = "ListBox" Then
pour ceci
If TypeOf Ctrl Is ListBox Then

 

Vote positif 0 Vote négatif

S

snoopy07

XLDnaute Occasionnel

• 26 Mars 2021

• #23

RE

patricktoulon à dit:

donc chez toi le columnwidth de la listbox ne s'effectue pas

Cliquez pour agrandir...

avec les api c est pareil
comment faire pour résoudre ce probleme

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Mars 2021

• #24

change comme je t'ai dis en post 22 pour voir

 

Vote positif 0 Vote négatif

S

snoopy07

XLDnaute Occasionnel

• 26 Mars 2021

• #25

re

j ai changer dans

VB:

Sub reformUF()
    Dim H&, WW&, HH&, Ctrl, wstate, coeffH#, coeffW#, coeffFont, cw, I&, hwnd&
    HH = Me.InsideHeight: WW = Me.InsideWidth: wstate = Application.WindowState

    hwnd = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'api GetActiveWindow Capture du handle de la fenetre active
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hwnd & ", " & -16 & ", " & &H94080080 & ")")      'api SetWindowLongA
    ExecuteExcel4Macro ("CALL(""user32"",""DrawMenuBar"",""JJJJJJ"", " & hwnd & ")")
    ExecuteExcel4Macro ("CALL(""user32"",""ShowWindow"",""JJJ"",""" & hwnd & """,""" & 3 & """)")    ' application du mode
    
    coeffH = Me.InsideHeight / HH: coeffW = Me.InsideWidth / WW
    coeffFont = Application.Min(coeffW, coeffH)
       For Each Ctrl In Me.Controls
        Ctrl.Move Ctrl.Left * coeffW, Ctrl.Top * coeffH, Ctrl.Width * coeffW, Ctrl.Height * coeffH
        On Error Resume Next
        Ctrl.Font.Size = (Ctrl.Font.Size * coeffFont) - 1
        Err.Clear
        If TypeOf Ctrl Is ListBox Then
            cw = Split(Ctrl.ColumnWidth, ";")
            For I = 0 To UBound(cw): cw(I) = cw(I) * coeffW: Next
            Ctrl.ColumnWidth = Join(cw, ";")
        End If
    Next

End Sub

ca fait pareil

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Mars 2021

• #26

re
Alors je peux plus rien pour toi désolé
c'est ton fichier qui a un soucis

 

Vote positif 0 Vote négatif

S

snoopy07

XLDnaute Occasionnel

• 26 Mars 2021

• #27

re
merci pour ton aide
je vais continuer a chercher

cordialement

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Mars 2021

• #28

tu travail avec quoi comme version d'excel?
j'ai cru voir 2019 alors dis moi un peu pourquoi tu travaille en xls

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Mars 2021

• #29

Bonjour @bruno45
et tu rigole derrière hein !!!

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 26 Mars 2021

• #30

patricktoulon à dit:

Bonjour @bruno45
et tu rigole derrière hein !!!

Cliquez pour agrandir...

Salut Patrick, tu m'étonnes
Je reconnais bien là ta patience... mais faut pas pousser

 

Vote positif 0 Vote négatif