Afficher un message selon plusieurs critères

Version imprimable

01/04/2009, 15h29
NEC14

Afficher un message selon plusieurs critères

Bonjour à tous,

Eh oui j'ai encore besoin de votre aide.

J'ai déjà mis en place un code qui me permet d'afficher une liste de produits si leur nombre est inférieur à 20 dans le stock.

Mais chaque produits à sa limite de stock, par exemple les places de ciné 100, les entrées spectacle à 20, etc..

Est-ce qu'il est possible à l'aide de Vba qu'un message s'affiche si chacun des cas est rencontré ?

C'est à dire si le nombre de places de ciné est inférieur ou égale à 100 alors "alerte", si les entrées spectacles sont inférieures ou égales à 20 "alerte" et cela pour chacun des produits.

Merci pour vos réponses
01/04/2009, 15h50
Gorfael

Salut NEC14 et le forum

Citation:

J'ai déjà mis en place un code qui me permet d'afficher une liste de produits si leur nombre est inférieur à 20 dans le stock.

C'est bien mais ça ne nous aide pas autant que si on l'avais ce code!
"une liste de produits" : à côté tu mets leur limite (colonne de droite, par exemple) et tu fait une comparaison entre Valeur et limite après avoir chercher le produit dans ta liste et prit la limite dans la cellule d'à côté.
Si tu n'a pas de limite, tu peux laisser vide (=0).
A+
01/04/2009, 16h37
NEC14

voici la feuille stock de mon fichier.
01/04/2009, 21h50
Gorfael

Salut NEC14 et le forum
Comme c'est des valeurs rentrées manuellement dans un fichier de test, ça fonctionne, mais sur le fichier réel...
A+

Re,

Lorsque l'utilisateur ouvre l'application, il lui est demandé un mot de passe.
Si celui-ci est correct alors le code suivant se déclanche.
Mais comment insérer ton code dans celui-ci ?
Merci de votre aide car je suis un peu paumé. Je suis sur 3 projets en même temps et là je croule. (il est vrai que ce n'est pas votre problème)

Code de Gorfael

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Dim Plg As Range
If Intersect([G4:G60], Target) Is Nothing Then Exit Sub
For Each Cel In Intersect([G4:G60], Target)
    If IsNumeric(Cel) And IsNumeric(Cel.Offset(0, 1)) Then
        If Cel <= Cel.Offset(0, 1) Then
            MsgBox Cel.Offset(0, -6) & " est inférieur à la limite" & _
            "reste : " & Cel & Chr(13) & _
            "limite : " & Cel.Offset(0, 1), vbCritical + vbOKOnly, _
            Cel.Offset(0, -6) & " RUPTURE de STOCK"
        End If
    End If
Next Cel
End Sub

Le mien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub testl()
Dim msg As String
Dim insuf As Boolean
Dim Tablo As Variant
 
 
     insuf = False
     Sheets("Stock faible").Cells.ClearContents
     Tablo = Worksheets("Stock").Range("G1:G" & Split(Worksheets("Stock").UsedRange.Address, "$")(4)).Value
     For i = 4 To UBound(Tablo)
          If Tablo(i, 1) < 20 Then
               insuf = True
               Exit For
          End If
     Next
     If insuf Then
            MsgBox "Stock Insuffisant sur le(s) article(s) suivant(s)", vbInformation, "Avertissement"
            Sheets("Stock faible").Visible = True
            Sheets("Stock faible").Activate
            Sheets("Stock faible").Select
            Selection.ClearContents
            Sheets("Stock faible").Select
            Range("A1").Select
            Sheets("Stock").Range("A3:J" & Worksheets("Stock").UsedRange.Rows.Count).AdvancedFilter Action:=xlFilterCopy, _
              CriteriaRange:=Sheets("Select").Range("A1:A2"), CopyToRange:=Range("A1"), _
              Unique:=False
            Sheets("Stock faible").Select
        Else
        Load FrmAcc
FrmAcc.Show
    End If
 
End Sub

02/04/2009, 16h43
Gorfael
Salut NEC14 et le forum

Citation:

Lorsque l'utilisateur ouvre l'application, il lui est demandé un mot de passe.
Si celui-ci est correct alors le code suivant se déclenche.
Mais comment insérer ton code dans celui-ci ?

il est indépendant, il se lance à chaque changement de la colonne G.
Pour modifier ta macro, se serait plutôt en changeant

Code:

If Tablo(i, 1) < 20 Then

par

Code:

If Tablo(i, 1) < Worksheets("Stock").Range("H" & i)

D'où l'importance de donner le code avec la question :mrgreen:

Ton code me semble bizarre : tu généres une variable Tablo d'une drôle de manière pour moi :

Code:

Range("G1:G" & Split(UsedRange.Address, "$")(4))

de G1 à G + ce qu'il y a derrière le 4ème $ de l'adresse de la Usedrange ???
Besoin de te faire des noeuds aux boyaux de la tête ? je m'explique :
- tu utilises UsedRange => même si c'est le tablaeu de ton exemple, tu mets la ligne 61 dans tableau : comme elle ne correspond à rien dans ton tableau, pourquoi la mettre ?
Je préfèrerais
Code:

1 2 3 with Worksheets("Stock") Tablo = .Range("G1:G" & .range("G" & .rows.count).end(xlup).row).value end with
A+