Discussion :

[awa123]

Bonjour,
la seule chose que je ne comprends pas dans le code suivant est le ",32" situé à la cinquième ligne, à quoi correspond t il?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Calcul2()
Dim Montant As Integer
    Montant = 10
 
    Produit2 Montant, 2
    MsgBox "Montant = " & Montant, 32
End Sub
 
Sub Produit2(ByRef Nb As Integer, n As Integer)
    Nb = Nb * n
End Sub

MERCI

[Docmarti]

Après la virgule se trouve le second argument de MsgBox.

Pose le curseur sur MsgBox et appuie sur la touche F1. Tu y trouveras l'explication sur les différents arguments de cette commande.

[Invité]

vbOKOnly 0 Bouton OK uniquement (valeur par défaut)
vbOKCancel 1 Boutons OK et Annuler
vbAbortRetryIgnore 2 Boutons Abandonner, Répéter et Ignorer
vbYesNoCancel 3 Boutons Oui, Non et Annuler
vbYesNo 4 Boutons Oui et Non
vbRetryCancel 5 Boutons Répéter et Annuler
vbCritical 16 Message critique
vbQuestion 32 Requête d'avertissement
vbExclamation 48 Message d'avertissement
vbInformation 64 Message d'information
vbDefaultButton1 0 Le premier bouton est le bouton par défaut (valeur par défaut)
vbDefaultButton2 256 Le deuxième bouton est le bouton par défaut
vbDefaultButton3 512 Le troisième bouton est le bouton par défaut
vbDefaultButton4 768 Le quatrième bouton est le bouton par défaut
vbApplicationModal 0 Boîte de dialogue modale (valeur par défaut)
vbSystemModal 4096 Boîte de dialogue modale système
vbMsgBoxHelpButton 16384 Ajoute le bouton Aide à la boîte de dialogue
VbMsgBoxSetForeground 65536 Désigne la fenêtre de la boîte de dialogue comme fenêtre de premier plan
vbMsgBoxRight 524288 Le texte est aligné à droite
vbMsgBoxRtlReading 1048576 Indique que le texte doit s'afficher de droite à gauche sur les systèmes en langue arabe et hébraïque