Bonjour a tous
suite à une demande
on reprend le même et on recommence
a savoir
vous avez vu le msgbox temporisé
et bien de la même manière, je repositionne le msgbox sur une cell ou au centre de l'application et non de l'acran
donc de la même manière que le msgbox Tempo ,je passe par une fonction passerelle qui reprend tout les arguments du msgbox plus!! un argument range (optionel bien sur)c'est la fonction "MsgBoxPos"
cette fonc affiche le msgbox mais appel en adressof la sub de repositionnement
exemple d'appel
exemple d'appel sur cell
je fait cela avec 2/3 api assez simple
pour les puristes je ne l'ai pas fait en macro 4
les déclarations sont fait en bon et due forme pour 32/64 bits
enjoy
suite à une demande
on reprend le même et on recommence
a savoir
vous avez vu le msgbox temporisé
et bien de la même manière, je repositionne le msgbox sur une cell ou au centre de l'application et non de l'acran
donc de la même manière que le msgbox Tempo ,je passe par une fonction passerelle qui reprend tout les arguments du msgbox plus!! un argument range (optionel bien sur)c'est la fonction "MsgBoxPos"
cette fonc affiche le msgbox mais appel en adressof la sub de repositionnement
exemple d'appel
VB:
'exemple de simple msgbox d'avertissement positionné au centre de l'application
Sub test1()
MsgBoxPos "coucou tout le monde", vbOKOnly + vbInformation, "messageTest"
End Sub
' exemple d'appel responsif
Sub test2()
Dim reponse As VbMsgBoxResult
reponse = MsgBoxPos("vouler vous continuer", vbYesNo + vbQuestion, "continuer")
MsgBox "vous avez repondu " & Array("No", "Yes")(Abs(reponse = vbYes))
End Subexemple d'appel sur cell
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Count = 1 Then
If Not IsNumeric(Target.Value) Then
MsgBoxPos "la valeur n'est pas numerique veuillez corriger SVP!", vbOKOnly + vbCritical, "erreur de saisie", Target
End If
End If
End Subje fait cela avec 2/3 api assez simple
pour les puristes je ne l'ai pas fait en macro 4
les déclarations sont fait en bon et due forme pour 32/64 bits
enjoy
- Auteur
- patricktoulon
- Version
- 2.0
