Macro Liée au changement de la valeur d une cellule
Résolu
CHARLYJACK
Messages postés
345
Date d'inscription
Statut
Membre
Dernière intervention
-
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
CHARLYJACK Messages postés 345 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Déclencher une macro en fonction de la valeur d'une cellule
- Fonction si et - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel
- [Excel 2010] Remplir cellule d'après contenu d'une autre ✓ - Forum Excel
2 réponses
Bonjour,
Il faut déclencher par l'événement Worksheet_Change de la feuille si l'adresse de la plage (Target) est B2
Pour le reste du code, on pourrait un peu simplifier tous ces IF ELSEIF.... avec un Select Case, ce qui donnerait :
Il faut déclencher par l'événement Worksheet_Change de la feuille si l'adresse de la plage (Target) est B2
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$2" Then Exit Sub 'Suite du code - la valeur de B2 a changé End Sub
Pour le reste du code, on pourrait un peu simplifier tous ces IF ELSEIF.... avec un Select Case, ce qui donnerait :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Integer, Mois As String
If Target.Address <> "$B$2" Then Exit Sub
cell = Target.Value
Select Case cell
Case Is = 1: Mois = "Janvier"
Case Is = 2: Mois = "Février"
Case Is = 3: Mois = "Mars"
Case Is = 4: Mois = "Avril"
Case Is = 5: Mois = "Mai"
Case Is = 6: Mois = "Juin"
Case Is = 7: Mois = "Juillet"
Case Is = 8: Mois = "Août"
Case Is = 9: Mois = "Septembre"
Case Is = 10: Mois = "Octobre"
Case Is = 11: Mois = "Novembre"
Case Is = 12: Mois = "Décembre"
End Select
If Mois <> "" Then Range("D4").Value = Mois
End Sub