Bonjour, besoin d'aide.

J'ai un sous-marin. en cours d'exécution en fonction de la valeur de la cellule dans B5. Après avoir saisi la valeur de la cellule et appuyé sur la touche Entrée, le classeur ouvre un courrier et envoie des informations sur la valeur de la cellule dans A2 et A5. En fonction également de la valeur dans B5 (1-11), il envoie la valeur correspondante dans A19-A29.

Ce que je veux maintenant qu'il fasse, c'est stocker les valeurs dans sheet2. A chaque fois que la valeur en B5 est modifiée, une ligne composée de
Date; A2; A19-A29 et A5 correspondants doivent être créés dans la feuille 2. Avec le plus récent en tête.

Possible?


Private Sub Worksheet_Change (Cible ByVal en tant que plage)
On Error Resume Next
'Si Target.Cells.Count > 1 alors quitter Sub
Définir xRg = Intersection(Plage("B5"), Cible)
Si xRg n'est rien, quittez Sub
Si IsNumeric(Target.Value) et Target.Value = 1 Alors
Appelez Mail_small_Text_Outlook1
Si fin
Si IsNumeric(Target.Value) et Target.Value = 2 Alors
Appelez Mail_small_Text_Outlook2
Si fin
Si IsNumeric(Target.Value) et Target.Value = 3 Alors
Appelez Mail_small_Text_Outlook3
Si fin
Si IsNumeric(Target.Value) et Target.Value = 4 Alors
Appelez Mail_small_Text_Outlook4
Si fin
Si IsNumeric(Target.Value) et Target.Value = 5 Alors
Appelez Mail_small_Text_Outlook5
Si fin
Si IsNumeric(Target.Value) et Target.Value = 6 Alors
Appelez Mail_small_Text_Outlook6
Si fin
Si IsNumeric(Target.Value) et Target.Value = 7 Alors
Appelez Mail_small_Text_Outlook7
Si fin
Si IsNumeric(Target.Value) et Target.Value = 8 Alors
Appelez Mail_small_Text_Outlook8
Si fin
Si IsNumeric(Target.Value) et Target.Value = 9 Alors
Appelez Mail_small_Text_Outlook9
Si fin
Si IsNumeric(Target.Value) et Target.Value = 10 Alors
Appelez Mail_small_Text_Outlook10
Si fin
Si IsNumeric(Target.Value) et Target.Value = 11 Alors
Appelez Mail_small_Text_Outlook11
Si fin
End Sub



Merci Jerry