Aides Vba Msgbox

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

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

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:

---

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

Code:

---

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:

---

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

---

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:

---

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:

---

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

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:

---

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:

---

1 2 3 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range) TestNbenStock (50) End Sub

---

Merci beaucoup Sogedic; j'ai essayer cela mais sa convertir l'intégralité en texte, c'est trés compliqué les msgbox > je voulais mettre un titre a la msgbox aussi mais a chaque fois que j'essaye un code sa plante

Code:

---

1 2 3 4 5 6 7 8

Sub MAJ() With ThisWorkbook   MsgBox ".BuiltinDocumentProperties(7).Value 'Last author" & " BuiltinDocumentProperties(12).Value 'Last save time"     End With End Sub

---

Et pour le stock j'ai supprimé ces lignes de code de Worksheet mais plus rien ne s'affiche>

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) TestNbenStock (50) End Sub

---

oui, au début c'est complique
si tu laisse les : c'est du text => Excel ne cherche pas a évaluer le contenu

Code:

---

1 2 3 4 5 6

Sub MAJ() With ThisWorkbook MsgBox .BuiltinDocumentProperties(7).Value & BuiltinDocumentProperties(12).Value End With End Sub

---

ou

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub MAJ() dim lastAuthor as string dim LastDateModif as string   With ThisWorkbook lastAuthor=.BuiltinDocumentProperties(7).Value LastDateModif=.BuiltinDocumentProperties(12).Value End With   MsgBox "Dernier enregistrement fait par " & lastAuthor & " le " LastDateModif ' les données en dehors de "" sont remplacés par leur valeur   End Sub

---

Pour le stock Worksheet_Activate : est exécuté à chaque fois que l'on arrive/sélectionne la feuille
Une autre solution possible serait d'ajouter un bouton qui appel directement TestNbenStock

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_Activate() TestNbenStock (50) End Sub     Sub TestNbenStock(optional limite As Integer = 50) 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

---

Merci Sogedic pour ton aide préciseuse.

Alors ton code pour la msgbox ne fonctionne pas, j'ai réussi a trouver celui la qui s'applique parfaitement :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub MAJ() Dim Titre$, S1$, S2$, S3$ Titre = "Détails gestion tableaux" With ThisWorkbook S1 = .BuiltinDocumentProperties(7) 'Last author S2 = .BuiltinDocumentProperties(12) 'Last save time S3 = "dernière modification par : sadsad" End With MsgBox S1 & vbLf & S2 & vbLf & VbLf & S3, 64, Titre End Sub

---

Dans ton code voila la ligne qui posait probleme :

Code:

---

MsgBox "Dernier enregistrement fait par " & lastAuthor & " le " LastDateModif ' les données en dehors de "" sont remplacés par leur valeur

---

Et pour Worksheet voila le code final que j'ai réussi a trouver, j'ai simplement le SelectionChange en Change ( ce n'est pas la solution parfaite mais sa ira pour l'instant, j'aurais préferer faire apparaitre la msgBox une seule fois mais pas par l'intermédiaire d'un bouton )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Worksheet_Activate() TestNbenStock (50) End Sub 'ou Private Sub Worksheet_Change(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 Tampon") If nbenStock < limite Then MsgBox "Attention - 50 stock ", vbOKOnly + vbInformation, "Alerte STOCK " Set myRange = Nothing If Flag Then Exit Sub End Sub

---

En tout cas MERCI 1000 FOIS sogedic, tu m'as énormement aide et appris :) :) :)

Bonjour

Code:

---

j'ai simplement le SelectionChange en Change

---

tu as raison c'est mieux

Dans mon code du msgbox il manquait un &
mais tu as su corriger c'est parfait

Si tu veux clôturer ?