Re: inventaire - Gestion de stocks - Gestion des consommations
Coucou ce Fil,
Et oui... je surveille !!! et puis dès qu'on parle de bière !
Et oui... "limonde" et "jus de fruits" ne sont pas "limonade" et "jus de fruit"
Et oui... Le résultat est très bien Jean Marie, très pertubant pour moi car ce sont carrément des formules que tu écris en VBA, on voit là bien très racines ;-)
Et oui... c'est difficile de faire plus simple et évolutif (et sans boucle) Bravo Jean Marie !
Par contre je ne me ferai jamais, au non jamais, à lire "Range("stock!E4")" ou encore "PlageStock = "stock!B4:B" & Range("stock!B65536").End(xlUp).Row"! mais c'est une question d'habitude, tant que celà marche bien et que je n'ai pas à intervenir dessus ;-).... Go ahead !
Juste ptet un ptit gestionnaire d'erreur pour éviter le problème que tu as eu avec ta démo, comme çà :
Sub Inventaire()
Dim Boisson As String
Dim vIndex As Byte
Dim PlageStock As String
Dim vMois As Integer
ActiveSheet.Shapes(Application.Caller).Select
Boisson = Selection.Characters.Text
PlageStock = "stock!B4:B" & Range("stock!B65536").End(xlUp).Row
On Error GoTo ErrorHandler '<<<<<<
vIndex = Evaluate("=MATCH(" & Chr(34) & Boisson & Chr(34) & "," & PlageStock & ",0)") - 1
Range("stock!B4").Offset(vIndex, 1) = Range("stock!B4").Offset(vIndex, 1) - 1
vMois = Month(Date) - 1
Range("stock!E4").Offset(vIndex, vMois) = Range("stock!E4").Offset(vIndex, vMois) + 1
Range("A1").Select
Exit Sub
ErrorHandler: '<<<<<<<<
If Err = 13 Then
MsgBox "Vérifier la syntax de vos Produits et de Vos Boutons"
Else
MsgBox "Erreur non répertoriée, voir Jean-Marie !!"
End If
End Sub
Ou alors faudrait faire écrire directement le noms des produits dans les boutons automatiquement à l'activate de la page comme çà plus de risque d'erreur... Mais je pense que ces bons vieux boutons ne vont pas aimer !
Bonne Fin de Dimanche à Toi et au Forum
@+Thierry
