Discussion :

[sadsad76]

Salut les gars

J'ai un petit soucis sur ma fiche excel, je voudrais créer une Msgbox automatique me disant de "racheter des produits", qui se met en place automatiquement lorsque dans la colonne "A" le mot STOCK est écrit dans moins de 50 cellules.

Et j'ai créer aussi un petit calendrier et lorsqu'on appuie dessus on a la date du jour mais je cherchais aussi a obtenir la date et heure du dernière enregistrement du fichier ainsi que du dernier utilisateur l'ayant enregistré.

Je galére vraiment ...

Merci de votre aide

[78chris]

BOnjour

Il suffit d'une cellule qui décompte ce nombre de STOCK (NB.SI) et s'affiche en rouge en deçà de 50 par une mise en forme conditionnelle

[sadsad76]

Merci pour ton retour 78chris ! C'est cool de m'aider je lutte vraiment

Et c'est possible de mettre en place cela sur une "zone de texte" a la place de le faire dans une cellule ?

Et pour mon code sur la date de derniére modification et derniére utilisateur ? voila mon code mais il me donne uniquement la date et l'heure du jour actuelle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub MAJ()
MsgBox "Le fichier a été mise a jour le : " & Date, vbOKOnly + vbInformation, "Date derniére mise à jour"
'
' testzezr Macro
 
'
End Sub

Merci de votre aide si d'autres veulent bien m'aider

[sogedic]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub MAJ()
With ThisWorkbook
 
    MsgBox .BuiltinDocumentProperties(7).Value  'Last author
    MsgBox .BuiltinDocumentProperties(12).Value 'Last save time
 
End With
End Sub

d'après https://silkyroad.developpez.com/VBA...etesClasseurs/

et pour ta première question : a placer directement dans la feuille (en vba) et non dans un "module"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Activate()
TestNbenStock (50)
End Sub
'ou
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TestNbenStock (50)
End Sub
 
'avec 
Sub TestNbenStock(limite As Integer)
Dim myRange As Range
Dim nbenStock As Integer
Set myRange = ActiveSheet.Columns("A:A")
nbenStock = Application.WorksheetFunction.CountIf(myRange, "Stock")
If nbenStock < limite Then MsgBox "Attention Stock"
set myRange=nothing
End Sub

[sadsad76]

Merci Sogedic pour ton aide !! tu m'aides beaucoup alors le code pour la msgbox sur la date et derniére utilisateur fonctionne parfaitement mais sa serait possible d'avoir ces informations dans la même msgBOX ?
Je n'arrive pas a cumuler ces 2 codes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub MAJ()
MsgBox "Le fichier a été mise a jour le : " & Date, vbOKOnly + vbInformation, "Date derniére mise à jour"
'
' testzezr Macro
'
 
'
End Sub

+

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub MAJ()
With ThisWorkbook
 
    MsgBox .BuiltinDocumentProperties(7).Value  'Last author
    MsgBox .BuiltinDocumentProperties(12).Value 'Last save time
 
End With
End Sub

.
Et pour la seconde c'est parfait mais la msgBOX s'affiche sans cesse, alors que je ne voudrais qu'elle ne s'affiche qu'une seule fois ..

Merci de votre aide

[sogedic]

Pour afficher 2 message dans le même msgbox il suffit d'utiliser le symbole de concaténation & comme dans ton msg d'origine
msgbox " texte 1" & "texte 2"
je te laisse essayer ?

Pour le detecteur de stock < 50 :
si tu le mets a l'activation de la feuille il ne s'affichera qu'une fois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_Activate()
TestNbenStock (50)
End Sub

si tu le mets a la modification d'une cellule (un changement) il va te le rerereredire même si tu as compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TestNbenStock (50)
End Sub