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
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