Creation msgbox

[laplayast]

Bonjour,
Je souhaiterai, ajouter un "msgbox" au fichier joint;avec une fonction de test sur une cellule si la condition n'est pas remplie.
Mais je ne sais pas comment réaliser le code du "msgbox".
Merci de votre aide.

 

[Staple1600]

Re : Creation msgbox

bonjour à tous


tu peux regarder dans l'aide vba en appuyant sur F1

tu peux aussi explorer le forum et ses nombreux fils de discussion.

 

[laplayast]

Re : Creation msgbox

Bonsoir,
Je,te remercie de ton attention mais l'aide n'est pas aussi claire,pour une utilisation un peu plus élaboré.
Est-ce que quelqu'un peut regarder le fichier.
merci.
LAPLAYAST.

 

[houssine77]

Re : Creation msgbox

Bonjour
regarde sur ce lien tu trouveras ton bonheur
Rechercher dans la Base de connaissances

 

[Compte Supprimé 979]

Re : Creation msgbox

Bonjour à tous

Laplayast, il suffit de mettre ce code dans ThisWorkbook (mais pas à la suite de macro1, sinon ça ne peut pas fonctionner)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  With Sheets("Feuil1")
    If .Range("C20").Value <> 4 Then
      Application.EnableEvents = False
      .Activate
      Application.EnableEvents = True
      .Range("D5:E5,B11,G20").Select
      MsgBox "Merci de bien vouloir remplir les cellules sélectionnées !", vbCritical, "ATTENTION ..."
      Exit Sub
    End If
    If .Range("L7").Value <> 4 Then
      Application.EnableEvents = False
      .Activate
      Application.EnableEvents = True
      .Range("K11,J13,L13,K14").Select
      MsgBox "Merci de bien vouloir remplir les cellules sélectionnées !", vbCritical, "ATTENTION ..."
      Exit Sub
    End If
  End With
End Sub

Voili, voilà 😉

 

[laplayast]

Re : Creation msgbox

Bonjour,
Tout d'abord merci de ton aide,cela me convient parfaitement.Je vais utiliser une partie du code dans le workbook.Mais je souhaiterai ajouter la feuille2;bien sur cela ne sera pas les mêmes cellules.Ce qui me gêne c'est l'imbrication du code pour la feuille2;c'est un copier coller de la ligne2à9,avec la transition que j'ai du mal à realiser.
Merci de ton aide pour finaliser cette partie.
laplayast.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("Feuil1")
If .Range("C20").Value <> 4 Then
Application.EnableEvents = False
.Activate
Application.EnableEvents = True
.Range("D5:E5,B11,G20").Select
MsgBox "Merci de bien vouloir remplir les cellules sélectionnées !", vbCritical, "ATTENTION ..."
Exit Sub
End If
End With
End Sub

 

[laplayast]

Re : Creation msgbox

Bonsoir,
Je viens de faire un essai,d'un ajout de code avec la feuille2mais il ne fonctionne pas.Est ce que quelqu'un y regarder?afin de voir ce qui ne va pas.
Le message d'erreur est "erreur de compilation"
Merci de votre aide.
laplayast.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("Feuil1")
If .Range("C20").Value <> 4 Then
Application.EnableEvents = False
.Activate
Application.EnableEvents = True
.Range("D5:E5,B11,G20").Select
MsgBox "Merci de bien vouloir remplir les cellules sélectionnées !", vbCritical, "ATTENTION ..."
Exit Sub
End If
With Sheets("Feuil2")
If .Range("C17").Value <> 4 Then
Application.EnableEvents = False
.Activate
Application.EnableEvents = True
.Range("A5😀5,F11,H20").Select
MsgBox "Merci de bien vouloir remplir les cellules sélectionnées !", vbCritical, "ATTENTION ..."
Exit Sub
End If
End With
End Sub
End With

 

[laplayast]

Re : Creation msgbox

Bonsoir,
Je n'arrive pas à imbriquer le code de la feuille2,dans le workbook;est ce je pourrai avoir une aide afin de corriger la syntaxe.Je ne suis pas assez expert .
MERCI DE VOTRE AIDE.
LAPLAYAST.