Discussion :

[rossemma]

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 :

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

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

[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 :

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

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 :

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

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 :

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

MsgBox "Attention DO => 51 ou 56" & vbCrLf & "Let op OA => 51 of 56", vbInformation

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Ce code m'interroge

Code :

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

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 :

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

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

[rossemma]

Merci pour votre aide

J'ai finalement adapté mon code comme précisé par MarcelG

[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