Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel mp-ShadowForm de Michel Pierron

mp-ShadowForm de Michel Pierron

4 réponses
Avatar
isabelle
hello vous tous & toutes,

j'ai téléchargé le fichier mp-ShadowForm de Michel Pierron, qui en passant est super,
mais je n'arrive pas à faire fonctionner le bouton "Couleur fond" et il n'y a pas de message d'erreur.
y'a t'il un de vous qui l'a fait fonctionné ?

isabelle
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JpPradier
Bonjour Isabelle

Idem chez moi : Win XP et Excel 2002

j-p
Avatar
Michel Pierron
Bonjour Isabelle;
Regarde la procédure du bouton "Couleur fond":
Private Sub CommandButton3_Click()
On Error GoTo Handler
With CreateObject("MSComDlg.CommonDialog")
.CancelError = True
.Flags = &H100& Or &H1& Or &H4& And Not &H8& ' Restricted colors
.Color = RGB(RVB(1), RVB(2), RVB(3))
.ShowColor
'// Composantes RGB (Color = Red + Green * 256 + Blue * 256 ^ 2)
RVB(1) = .Color And &HFF&
RVB(2) = (.Color And &HFF00&) / 256
RVB(3) = (.Color And &HFF0000) / 65536
End With
Handler:
Call Form_Paint(RVB(1), RVB(2), RVB(3))
End Sub

Si tu ne possèdes pas le contrôle MSComDlg, la gestion d'erreur "On Error
GoTo Handler" by-pass l'erreur.
Si tu y tiens, je peux te communiquer la même procédure à base de fonctions
API qui sera bien évidemment beaucoup plus conséquente.
MP

"isabelle" a écrit dans le message de
news:
hello vous tous & toutes,

j'ai téléchargé le fichier mp-ShadowForm de Michel Pierron, qui en passant
est super,

mais je n'arrive pas à faire fonctionner le bouton "Couleur fond" et il
n'y a pas de message d'erreur.

y'a t'il un de vous qui l'a fait fonctionné ?

isabelle


Avatar
isabelle
bonjour Michel,

merci pour l'info, je me doutais bien qu'il me manquait une dll
je vais essayer de la récupérer à cette adresse http://www.codes-sources.com/devenirmembreclub.aspx

ps/ merci pour ton code ResizeForm, je l'ai inclue sur le projet que je fais actuellent, je le trouve très pratique
c'est un cinq étoiles

bisou
isabelle



Bonjour Isabelle;
Regarde la procédure du bouton "Couleur fond":
Private Sub CommandButton3_Click()
On Error GoTo Handler
With CreateObject("MSComDlg.CommonDialog")
.CancelError = True
.Flags = &H100& Or &H1& Or &H4& And Not &H8& ' Restricted colors
.Color = RGB(RVB(1), RVB(2), RVB(3))
.ShowColor
'// Composantes RGB (Color = Red + Green * 256 + Blue * 256 ^ 2)
RVB(1) = .Color And &HFF&
RVB(2) = (.Color And &HFF00&) / 256
RVB(3) = (.Color And &HFF0000) / 65536
End With
Handler:
Call Form_Paint(RVB(1), RVB(2), RVB(3))
End Sub

Si tu ne possèdes pas le contrôle MSComDlg, la gestion d'erreur "On Error
GoTo Handler" by-pass l'erreur.
Si tu y tiens, je peux te communiquer la même procédure à base de fonctions
API qui sera bien évidemment beaucoup plus conséquente.
MP

"isabelle" a écrit dans le message de
news:
hello vous tous & toutes,

j'ai téléchargé le fichier mp-ShadowForm de Michel Pierron, qui en passant
est super,

mais je n'arrive pas à faire fonctionner le bouton "Couleur fond" et il
n'y a pas de message d'erreur.

y'a t'il un de vous qui l'a fait fonctionné ?

isabelle




Avatar
Michel Pierron
Re isabelle;
Ici, tu as la totale:
http://www.ascentive.com/support/new/libraryfiles.exe
MP

"isabelle" a écrit dans le message de
news:
bonjour Michel,

merci pour l'info, je me doutais bien qu'il me manquait une dll
je vais essayer de la récupérer à cette adresse
http://www.codes-sources.com/devenirmembreclub.aspx


ps/ merci pour ton code ResizeForm, je l'ai inclue sur le projet que je
fais actuellent, je le trouve très pratique

c'est un cinq étoiles

bisou
isabelle



Bonjour Isabelle;
Regarde la procédure du bouton "Couleur fond":
Private Sub CommandButton3_Click()
On Error GoTo Handler
With CreateObject("MSComDlg.CommonDialog")
.CancelError = True
.Flags = &H100& Or &H1& Or &H4& And Not &H8& ' Restricted colors
.Color = RGB(RVB(1), RVB(2), RVB(3))
.ShowColor
'// Composantes RGB (Color = Red + Green * 256 + Blue * 256 ^ 2)
RVB(1) = .Color And &HFF&
RVB(2) = (.Color And &HFF00&) / 256
RVB(3) = (.Color And &HFF0000) / 65536
End With
Handler:
Call Form_Paint(RVB(1), RVB(2), RVB(3))
End Sub

Si tu ne possèdes pas le contrôle MSComDlg, la gestion d'erreur "On
Error


GoTo Handler" by-pass l'erreur.
Si tu y tiens, je peux te communiquer la même procédure à base de
fonctions


API qui sera bien évidemment beaucoup plus conséquente.
MP

"isabelle" a écrit dans le message de
news:
hello vous tous & toutes,

j'ai téléchargé le fichier mp-ShadowForm de Michel Pierron, qui en
passant



est super,
mais je n'arrive pas à faire fonctionner le bouton "Couleur fond" et
il



n'y a pas de message d'erreur.
y'a t'il un de vous qui l'a fait fonctionné ?

isabelle