[XL-2010] Besoin d'aide sur un problème de taille [Résolu]

[Jb_One36]

Bonsoir à tous,

Je vous sollicite ce soir sur un sujet qui me pose un énorme problème. Je dois mettre en place sous Excel 2010 une fonction qui puisse me permettre d'afficher un message lorsque l'utilisateur a atteint la valeur de 7500.

Je m'explique :
Dans mon fichier Excel actuel, j'ai plusieurs feuilles dont une dans laquelle l'utilisateur saisie des chiffres, plus précisément dans une colonne et ceci chaque jour. Lorsque celui-ci a atteint la somme de 7500, un message doit s'afficher pour lui indiquer que l'outil doit être changé mais en même temps la valeur doit repartir à 0 et recommencé son cumul.

Voilà mon gros problème et je ne sais pas comment faire.

Je vous remercie d'avance à tous pour votre aide.

[White Mibu]

Bonsoir,

proposition : dans cette exemple la saisie des chiffres s'effectue dans la colonne A, la case B1 est utilisé comme une case mémoire qui retiens la ligne pour laquelle la somme commence.

Voilà le code : à mettre dans ALT+F11, Microsoft Excel Objets, puis double clic dans la feuille en question.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Variable = Range("B1").Value
 
    If Variable = "" Then Range("B1") = 1
 
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Application.WorksheetFunction.Sum(Range("A:A")) = 0 Then Exit Sub
        If Application.WorksheetFunction.Sum(Range("A" & Variable & ":A" & Range("A65536").End(xlUp).Row)) >= 7500 Then
            MsgBox ("Changement d'outil !")
            Range("B1") = Range("A65536").End(xlUp).Row + 1
        End If
    End If
 
End Sub

Pour adapter tu peux changer la case mémoire, la mettre dans une autre feuille par exemple :

Range("B1") --> Sheets("Feuil2").Range("B1")

Ensuite pour la saisie des chiffres si ce n'est pas dans la colonne A, modifie tous les A par la lettre de la colonne en question.

J'ai mis un fichier pour que tu vois le fonctionnement si ça t'intéresse...

Cordialement

[Jb_One36]

Alors là ! Je n'ai qu'un mot à dire "Parfait". White Mibu tu es le meilleur !!! Ça fonctionne à la perfection et c'est exactement se dont j'ai besoin.

Je t'en remercie énormément.

Merci de ton aide et à bientôt j'espère