problème msgbox vbinformation

Version imprimable

Bonjour,
je voudrais ajouter un vbinformation mais quand je l'ajoute, Excel me parle d'un =
c'est la première fois que j'utiliser un msgbox.

Merci pour votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim DIV As Variant
DIV = Mid(Me.Range("B4").Value, 3, 2) 'extract DO/OA
 
With Me.Range("B4").Value
        If DIV = "51" Or DIV = "56" Then
        MsgBox ("Attention DO => 51 ou 56" & vbCrLf & "Let op OA => 51 of 56")
        Else
        End If
End With
 
End Sub

11/10/2021, 15h30
mat955

Bonjour,

Deux solutions pour utiliser la Msgbox.

Soit tu affectes le résultat de la Msgbox à une variable (quand je parle de résultat, je veux dire le bouton sur lequel l'utilisateur va cliquer).
Dans ce cas, la syntaxe nécessite un = et des paranthèses :

Code:

MaVariable = MsgBox("Mon message", vbInformation, "Titre")

Ce premier cas est utile si tu veux exécuter un code différent en fonction du bouton sur lequel clique l'utilisateur.

Soit tu souhaites juste afficher la Msgbox, auquel cas la syntaxe est la suivante :

Code:

MsgBox "Mon message", vbInformation, "Titre"

Dans ton code, tu as utilisé des paranthèses, VBA te réclame donc une variable et un égal.
Mais d'après moi tu n'en as pas besoin.

Code:

MsgBox "Attention DO => 51 ou 56" & vbCrLf & "Let op OA => 51 of 56", vbInformation
11/10/2021, 16h30
MarcelG
Bonjour à vous, Bonjour au Forum,

Ce code m'interroge
Code:

1 2 3 4 5 6 With Me.Range("B4").Value If DIV = "51" Or DIV = "56" Then MsgBox ("Attention DO => 51 ou 56" & vbCrLf & "Let op OA => 51 of 56") Else End If End With
A quoi sert le bloc With?

A quoi sert l'instruction Else?

Lorsqu'on utilise une fonction Msgbox, comme toute autre méthode, instruction.., mieux vaut préciser ses paramètres
C'est un avis.

Pour ma part, j'aurais opté pour un autre bloc
Code:

1 2 3 4 5 6 7 Select Case Div Case "51", "56" Msgbox _ Prompt:="Salut le Fo Rhum", _ Buttons:= VbInformation, _ Title:= "Bonjour" End Select
Cette écriture permettra de gérer, avec un minimum d'écriture de code, d'autres occurences éventuelles.

Pour ce genre de question (ici les boutons), le plus simple est souvent de se référer à l'aide Microsoft.
Ici, voir cet espace
11/10/2021, 16h41
rossemma

Merci pour votre aide

J'ai finalement adapté mon code comme précisé par MarcelG
12/10/2021, 09h17
Pierre Fauconnier

Salut.

Pour le problème des parenthèses dans le msgbox, j'ai fait un résumé de l'utilisation des parenthèses avec des instructions et fonctions dans ce message. J'espère que cela pourra t'aider par la suite ;)