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

 

[candido57]

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

A+ François

Bonjour,
Vous m'aviez aidé sur un fichier qui fonctionne très bien.
Mais je voudrais rajouter dans la macro encore un critère d'affichage. Voici le bout de macro.
Je voudrais mettre si dans la feuille "Articles", cellule K5 = L2, alors ne rien afficher dans la label de ma label20.
J'ai essayé d'intégrer
If sheets("Articles")Range ("K5")=("L2") > ensuite ça coince , je veux que label20 soit vide ""

Merci pour ton aide


'Transition 6 mois
ElseIf CInt(Me.Tbx_Mois) = 6 Then
Me.Label20.Caption = "ATTENTION!! TRANSITION LAIT N°1 ET LAIT N°2"
Me.Label20.Visible = True

 

[fanfan38]

Bonjour
Un fichier est TOUJOURS le bienvenu
Tu as oublié le point entreArticles") et range("K5....
sheets("Articles").Range ("K5")=("L2")
A+ François

 

[candido57]

Bonjour
Un fichier est TOUJOURS le bienvenu
Tu as oublié le point entreArticles") et range("K5....
sheets("Articles").Range ("K5")=("L2")
A+ François

Voici un fichier, j'ai mis en vert ce que je veux dans la macro et en feuille articles K5 j'ai mis L2