Macro Liée au changement de la valeur d une cellule
Résolu/Fermé
CHARLYJACK
Messages postés
353
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
16 mai 2023
-
23 janv. 2014 à 12:24
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 23 janv. 2014 à 21:02
CHARLYJACK Messages postés 353 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 16 mai 2023 - 23 janv. 2014 à 21:02
A voir également:
- Déclencher une macro en fonction de la valeur d'une cellule
- Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
- Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Logiciels
- Fonction si et - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
2 réponses
Normad
Messages postés
112
Date d'inscription
dimanche 6 juin 2010
Statut
Membre
Dernière intervention
10 juin 2015
38
Modifié par Normad le 23/01/2014 à 14:11
Modifié par Normad le 23/01/2014 à 14:11
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
