Creation d'une macro pour alerter un gestionnaire de stock
tcxo
Messages postés2Date d'inscriptionvendredi 21 juillet 2006StatutMembreDernière intervention13 avril 2010
-
10 avril 2010 à 23:01
tcxo
Messages postés2Date d'inscriptionvendredi 21 juillet 2006StatutMembreDernière intervention13 avril 2010
-
13 avril 2010 à 08:34
Bonsoir,
Pourriez vous m'aider pour créer une macro excel répondant au critère suivant
Colonne A contient des références de pièces
Colonne B contient la famille dans lequel appartient la pièce
Colonne C contient le nombre de pièce que j'ai décidé à réparer
Colonne D contient le nombre de pièce à rebuter
Lorsque,j'indique dans la colonne D un chiffre, je voudrai envoyer automatiquement au gestionnaire de la pièce un mail pour l'informer que pour telle référence pièce X pièces seront rebutées et à remplacer par des pièces neuves
J'ai 6 gestionnaires auxquels sont rattachés x familles de piéces
Je souhaiterai envoyé le mail uniquement lorsque, une des cellules de la colonne D est renseignée et uniquement au gestionnaire concerné par la pièce
Quelqu'un parmi vous pourrait-il me venir en aide pour réaliser cette macro.
jordane45
Messages postés38112Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention29 mars 2024344 12 avril 2010 à 17:57
Bonjour,
Afin de vous aider, pourriez-vous nous indiquer :
- La version d'Excel utilisée (2000, 2003, 2007) ?
- Le logiciel de messagerie qui sera utilisé (Outlook express, Outlook 2000, XP, 2003, 2007 / Lotus notes, autre )?
Dans l'immédiat, voici un début de code.. (le plus facile..) en attendant de pouvoir ajouter la fonction de mail suite à vos infos ^^
-----------------------------------------------
Dans l'éditeur de Macro (ALT+F11) dans le code de la feuille où se trouve votre tableau,
Inscrivez le code suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Colonne As Integer
Colonne = Target.Column 'recupere la N° de colonne où vous avez cliquez dans le feuille
If Colonne = 4 Then 'si la colonne correspond à "D" .. je fait ...
'***** ICI sera l'instruction d'envoi de mail ********
End If
End Sub