MsgBox Personnaliser boutons Yes No

Bonjour à tous,

Je désire personnaliser les boutons d'une MsgBox YesNo en remplaçant Yes et No par LIGNES et COLONNES.

Merci d'avance à vous,

A+

Bonjour,

Voici un petit article qui devrait vous aider :

http://www.mdf-xlpages.com/modules/publisher/item.php?itemid=42

BI4ol

Bonjour,

sur ma dernière application "Suivi des activités", j'ai remplacé des MSGBOX avec OK CANCEL par du USF Info qui reprend le même principe de deux boutons. Une fois le choix fait je met dans le "TAG" d'un des bouton le résultat du choix.

Comme cela au retour sur le code VBA je n'ai plus qu'à tester le TAG pour savoir quoi faire :

code du USF :

Private Sub CommandButton1_Click() ' Annuler
    CommandButton2.Tag = ""
    Me.Hide ' on masque le USF
End Sub

Private Sub CommandButton2_Click() ' OK
    CommandButton2.Tag = "OK"
    Me.Hide ' on masque le USF
End Sub

Private Sub UserForm_Initialize()
    CommandButton2.Tag = "" ' on initialise à "ANNULER"
End Sub

Et le code appelant suite à l'action voulue :

Sub Action()
    Info.Label1.Caption = "Attention !  vous allez initialiser le planning et perdre toutes les données !"
    Info.Show
    If Info.CommandButton2.Tag = "OK" Then
        ' on lance la nouvelle année
        Call Nouvelle_Année
    End If
    Unload Info ' on vide le USF
End Sub

Ce USF peut servir pour différent cas puisque le label de l'information est changé avant l'ouverture du USF, tout comme les boutons, on peut très bien changer leur texte également, ce qui reste c'est le test du TAG du bouton2, et que le bouton2 correspond soit au OK soit à ce que l'on veut.

@ bientôt

LouReeD

Bonjour BI4ol !

Je suis allé voir votre lien... En fait je connais ce site, je m'en suis servi à l'époque où Excel ne prenait pas plus de trois MFC sur ses feuilles ! (donc 4 avec celle par défaut !).

C'est sympa ce code, mais comme il le dit en bas de page, il souffre de deux choses...

Avec le USF géré comme cela, on peut très bien avoir plusieurs boutons, un seul servant de boite pour la réponse, et le reste est entièrement paramétrables dans les possibilités d'un USF : couleur, image, largeur des formes boutons ou autre...

Maintenant, depuis ma dernière application, je vais tâcher de l'appliquer, car en plus on sort de l'image des fenêtres Windows Excel et du coup le skin d'une application peut être "total"

@ bientôt

LouReeD

Bonjour B14ol, Bonjour à tous sur le Forum,

Désolé, pas bossé hier aprem et hier soir car tombé comme une pierre de sommeil !!!!!

Je viens de copier le code.

Vba me met les 9 premières lignes en rouge avec texte suivant (désolé, je ne sais pas comment copier une boîte de dialogue !!!!)

QUOTE

Le code contenu dans ce projet doit être mis à jour pour pouvoir être utilisé sur système 64 bits.

Vérifiez et mettez à jour les instructions Declare, puis marquez les avec l'attribut Ptr Safe

UNQUOTE

Merci à toi de me dire, car là, je suis largué.

Bonne journée,

A+

Bonjour,

Il faut modifier la déclaration des Function ou Sub :

Private Function

Remplacé par

Private PtrSafe Function

A faire également s'il y a des Sub

Je parle de vos lignes en rouge.

Dans la déclaration de ces fonction et Sub s'il y a des variables As Long, les remplacer par

As LongPtr

@ bientôt

LouReeD

Merci LouReed...

Tes informations sont hyper claires... Bravo...

Je fais ça ce midi...

Encore merci...

Passe une bonne journée...

Bonjour Lou ReeD,

Désolé de répondre si tard, mais j'ai été pris par ailleurs.

Merci pour ta réponse.

Je viens de remplacer comme tu me l'a dit.

Les 9 lignes restent en erreur.

Mais le code est:

Private Declare Function et non pas comme tu me l'as écrit

Private Function

Cela a-t-il son importance ???

Merci à toi...

Bonne journée,

A+

Bonjour,

Comme souvent le tiret 6 des règles est plus qu'utile...

@ bientôt

LouReeD

Bonjour Lou Reed,

Comme tu l'as certainement vu, je suis nouveau sur le site et je ne suis pas encore au fait de tous les us et coutumes.

Désolé...

Je te joins le fichier. C'est la macro Enel_masquer_afficher_lignes_colonnes

Merci à toi.

Bon aprem,

A+

Votre fichier en retour :

@ bientôt

LouReed

Merci beaucoup Lou Reed....

Bonne fin de soirée...

Très sympa de m'avoir aidé à ce point...

A +

Pas de soucis, merci @ vous de votre retour !

@ bientôt

LouReeD