Creation msgbox

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.

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.

Re : Creation msgbox

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

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)


Voili, voilà 😉

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

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

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.