XL 2016 MsgBox avec critères

[candido57]

Bonjour,

Je veux faire apparaitre une MsgBox dans une feuille "Base", mais la donnée est dans une feuille "Articles" en cellule H1.
En ouvrant le Userform dans feuille "Base", > SAISIR, en choisissant le N° de carte, ce dernier se colle en D2 feuille "Articles " et change le mois en H1 et suivant cette dernière donnée , MsgBox s'affiche ou pas.

1) Une MsgBox qui dit >> si dans la cellule H1 est supérieur ou égale à 18 est inférieur à 24, alors msgBox affiche "COUCHE 1X PAR MOIS" si ce n'est pas entre les 2 chiffres alors ne pas afficher MsgBox.

2) Une MsgBox qui dit >> si dans la cellule H1 est supérieur ou égale à 24, alors msgBox affiche "PAS DE COUCHE - ENFANT PLUS DE 24 MOIS" si inférieur à 24, alors ne pas afficher MsgBox.

Ma macro fait afficher, mais je ne sais pas comment faire pour exécuter ce que j'ai mis ci-dessus. J'essaie de faire par moi même, mais je suis très limité en VBA, j'essaie de regarder les tutos, mais je n'y arrive pas

Pouvez vous m'aider

Merci

Sub information()

Dim info As String

If Worksheets("Articles").Cells(8, 1).Value >= 18 Then

'If Worksheets("Feuil1").Cells(1, 2).Value = 1 Then
Else

MsgBox "COUCHE 1X PAR MOIS", vbExclamation, "Information"

End If

If Worksheets("Articles").Cells(8, 1).Value >= 24 Then
Else
MsgBox "PAS DE COUCHE - ENFANT PLUS DE 24 MOIS", vbExclamation, "Information"

End If


End Sub

 

[sylvanu]

Bonjour Candido,
Pas bien tout compris où et quand afficher le msgbox.
Un essai en PJ où le msgbox apparait lorsqu'on choisit le N° de carte avec dans ComboBox_Carte_Change :

If Val(Me.Tbx_Mois) > 24 Then MsgBox "PAS DE COUCHE - ENFANT PLUS DE 24 MOIS"

 

[fanfan38]

Bonjour
Je ne comprend pas ton problème
le mois est dans le textbox Tbx_Mois...

ci joint ma solution

A+ François

 

[candido57]

Bonjour Candido,
Pas bien tout compris où et quand afficher le msgbox.
Un essai en PJ où le msgbox apparait lorsqu'on choisit le N° de carte avec dans ComboBox_Carte_Change :

If Val(Me.Tbx_Mois) > 24 Then MsgBox "PAS DE COUCHE - ENFANT PLUS DE 24 MOIS"

Bonjour, merci, je regarderai demain et je reviens vers vous.
Bonne journée

 

[candido57]

Bonjour Candido,
Pas bien tout compris où et quand afficher le msgbox.
Un essai en PJ où le msgbox apparait lorsqu'on choisit le N° de carte avec dans ComboBox_Carte_Change :

If Val(Me.Tbx_Mois) > 24 Then MsgBox "PAS DE COUCHE - ENFANT PLUS DE 24 MOIS"

Bonjour, merci, je regarderai demain et je reviens vers vous.
Bonne journée

 

[candido57]

Bonjour Candido,
Pas bien tout compris où et quand afficher le msgbox.
Un essai en PJ où le msgbox apparait lorsqu'on choisit le N° de carte avec dans ComboBox_Carte_Change :

If Val(Me.Tbx_Mois) > 24 Then MsgBox "PAS DE COUCHE - ENFANT PLUS DE 24 MOIS"

Bonjour,

Merci ça fonction pour supérieur à 24.
J'ai mis pour supérieur à 18 et inférieur à 24, ça fonctionne mais il apparrait lorsqu'il y a mois de 18 mois.
Je ne sais pas s'il manque quelques chose.
If Val(Me.Tbx_Mois) >= 18 < 24 Then MsgBox "ATTENTION!!! COUCHE 1X PAR MOIS"

Merci beaucoup

 

[candido57]

Bonjour
Je ne comprend pas ton problème
le mois est dans le textbox Tbx_Mois...

ci joint ma solution

A+ François

Bonjour Fanfan 38,

J'ai mis ton idée, c'est ce que je voulais , je voulais plus d'alerte malgré que c'était affiché. De cette façon, on le voit bien.

Merci beaucoup pour ton aide

Bonne journée

 

[candido57]

Bonjour
Je ne comprend pas ton problème
le mois est dans le textbox Tbx_Mois...

ci joint ma solution

A+ François

Une petite question. Est ce possible d'agrandir la msgbox et mettre le texte en rouge et gras. Eventuellement aussi agrandir le texte?

Merci

 

[fanfan38]

On ne peut modifier un msgbox j'ai donc opté pour un label....

A+ François

 

[sylvanu]

Re,

If Val(Me.Tbx_Mois) >= 18 < 24 Then MsgBox "ATTENTION!!! COUCHE 1X PAR MOIS"

La bonne syntaxe est :

If Val(Me.Tbx_Mois) >= 18 AND Val(Me.Tbx_Mois) < 24 Then MsgBox "ATTENTION!!! COUCHE 1X PAR MOIS"

 

[candido57]

On ne peut modifier un msgbox j'ai donc opté pour un label....

A+ François

Bonjour,
Je viens me mettre ta proposition dans mon fichier, je trouve que c'est encore mieux. Super
Merci beaucoup pour ton aide.
Bonne soirée et bon week end

 

[candido57]

Re,

La bonne syntaxe est :

If Val(Me.Tbx_Mois) >= 18 AND Val(Me.Tbx_Mois) < 24 Then MsgBox "ATTENTION!!! COUCHE 1X PAR MOIS"

Merci beaucoup pour ton aide
Bon weekend