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

 

[fanfan38]

Re,
Comment rempli tu K5 car là il y a toujours L2 donc label20 est toujours masqué
A+ François

 

[candido57]

Re,
Comment rempli tu K5 car là il y a toujours L2 donc label20 est toujours masqué
A+ François

Sur mon fichier original, il y a une formule qui le fait apparaître ou non.
Sur le fichier que j'ai mis en ligne, il faudra l'enlever manuellement pour faire le test
Faire le test avec le n°33

 

[fanfan38]

Ci joint ma solution

A+ François

 

[candido57]

Ci joint ma solution

A+ Fra

Ci joint ma solution

A+ François

J'aimerais rajouter la même chose en dessous mais en K6 et L3> mais ça fonctionne pas.
Peux tu me corriger ?
Merci

ElseIf CInt(Me.Tbx_Mois) = 12 And Sheets("Articles").Range("K6") <> "L3" Then '***************
Me.Label20.Caption = "TRANSITION"
Me.Label20.Visible = True
Else
Me.Label20.Visible = False

 

[fanfan38]

J'ai modifié la fiche du 2eme 54 pour avoir un 12 mois
et ça marche..lol

A+ François

 

[candido57]

J'ai modifié la fiche du 2eme 54 pour avoir un 12 mois
et ça marche..lol

A+ François

Ca ne fonctionne pas tout le temps. J'ai changer une peut, si K5 est vide , alors le label20 affiche "TRANSITION"
s'il y a L2, ne rien afficher dans label20
En cas K5 et K6 s'affiche , j'ai mis une formule

Idem pour cellule K6 > L3

Merci encore bonne soirée

 

[fanfan38]

Bonjour
J'ai trouvé
Tu mettais à jour D2 sur la feuille article après la condition
J'ai donc remonté la mise à jour de D2...

A+ François

 

[candido57]

Bonjour
J'ai trouvé
Tu mettais à jour D2 sur la feuille article après la condition
J'ai donc remonté la mise à jour de D2...

A+ François

Bonjour,

Ca fonctionne, c'est ce que je voulais.
Merci beaucoup

Bonne journée