Vba zoom automatique ....

A

adi399

XLDnaute Occasionnel

• 22 Décembre 2011

• #46

Re : Vba zoom automatique ....

Merci beaucoup 🙂

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 16 Juin 2014

• #47

Re : Vba zoom automatique ....

La fonction GetScreenResolution() n'est pas acceptée par les pc 64 bits. Il doit y avoir une autre solution. Merci

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Juin 2014

• #48

Re : Vba zoom automatique ....

Bonjour à tous,

Fonctionne chez moi avec Win 8.1 64 et MSOffice 2013 32...

A+ à tous

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 17 Juin 2014

• #49

Re : Vba zoom automatique ....

Bjr JCGL,
Voilà le message qui apparait sur Dell 64 bits avec excel 2013 sous windos 7 :
"Le code contenu dans ce projet doit être mis à jour pour pouvoir être utilisé sur les systèmes 64bits. Vérifiez et mettez à jour les instructions Declare, puis marquez-les avec l'attribut PtrSafe." puis il souligne en jaune le mot "Declare".
Merci de votre aide.

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 17 Juin 2014

• #50

Re : Vba zoom automatique ....

Bjr,
J'ai trouvé la solution à mon problème; j'ai ajouté PtrSafe entre Declare et function puis j'ai modifié LongLong au lieu de Long. Le message "Erreur de compilation" a disparu et la macro a bien fonctionné. Merci de votre patience
A+

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 17 Juin 2014

• #51

Re : Vba zoom automatique ....

Re Bjr,
J'ai crié victoire trop tôt. L'attribut "PtrSafe" n'est pas reconnu par le 32 bits; il faut maintenant un check conditionnel 32 ou 64 bits.
Qui à la clé ?
A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Juin 2014

• #52

Re : Vba zoom automatique ....

Bonjour à tous,

Peux-tu tester ceci :

VB:

Option Explicit
Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub Resolution()
    Dim x As Long, y As Long
    x = GetSystemMetrics32(0)
    y = GetSystemMetrics32(1)
    MsgBox Format(x, "# ##0") & " x " & Format(y, "# ##0"), vbInformation, "Résolution d'Ecran"
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 17 Juin 2014

• #53

Re : Vba zoom automatique ....

Bonjour,
Ce code est identique à celui déjà posté. Il fonctionne sous 32 bits seulement et affiche le message d'erreur sous 64 bits. Le code souhaité doit marcher sans erreur que ce soit sous 32 bits ou 64 bits.
Merci.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Juin 2014

• #54

Re : Vba zoom automatique ....

Bonjour à tous,

kadelmalin à dit:

Ce code est identique à celui déjà posté

Cliquez pour agrandir...

Peux-tu me signaler dans quel message ?

A+ à tous

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 17 Juin 2014

• #55

Re : Vba zoom automatique ....

Salut,
voilà je suis arrivé finalement à modifier le code pour qu'il fonctionne sous les 2 systèmes 32 bits et 64 bits sans retourner le message d'erreur :
'Option Explicit
#If VBA7 Then
Declare PtrSafe Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As LongLong) As LongLong
#Else
Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#End If

Sub Resolution()
#If VBA7 Then
Dim x As LongLong, y As LongLong
#Else
Dim x As Long, y As Long
#End If
x = GetSystemMetrics32(0)
y = GetSystemMetrics32(1)
MsgBox Format(x, "# ##0") & " x " & Format(y, "# ##0"), vbInformation, "Résolution d'Ecran"
End Sub

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Juin 2014

• #56

Re : Vba zoom automatique ....

Bonjour à tous,

Tu n'as pas répondu à ma demande du #54...

Je ne comprends pas ton code avec les #.
Cela ne ressemble pas à du VBA.

A+ à tous

 

Vote positif 0 Vote négatif