7 réponses
michel_m
- Messages postés
- 16367
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 19 janvier 2021
Bonjour,
une proposition à adapter
https://www.cjoint.com/?3AwlIHSi0h7
une proposition à adapter
https://www.cjoint.com/?3AwlIHSi0h7
Vaucluse
- Messages postés
- 25755
- Date d'inscription
- lundi 23 juillet 2007
- Statut
- Contributeur
- Dernière intervention
- 19 janvier 2021
Bonjour
exact Michel.
Aller, un tout petit peu plus court sans le champ des N° de mois:
=SI(A1<>"";INDEX(D4:D15;MOIS(A1))&"-"&DROITE(ANNEE(A1);2))
Mais je pense que le demandeur voudrait peut être utiliser une seule cellule en utilisant VBA;
Tu dois avoir ça dans tes tiroirs?
je dis ça parce que je ne sais pas faire et ça m'intéresse :-))
crdlmnt (et bonne année si je ne l'ai pas encore fait)
exact Michel.
Aller, un tout petit peu plus court sans le champ des N° de mois:
=SI(A1<>"";INDEX(D4:D15;MOIS(A1))&"-"&DROITE(ANNEE(A1);2))
Mais je pense que le demandeur voudrait peut être utiliser une seule cellule en utilisant VBA;
Tu dois avoir ça dans tes tiroirs?
je dis ça parce que je ne sais pas faire et ça m'intéresse :-))
crdlmnt (et bonne année si je ne l'ai pas encore fait)
beru002
- Messages postés
- 495
- Date d'inscription
- mardi 5 février 2008
- Statut
- Membre
- Dernière intervention
- 28 janvier 2016
Oui, j'avoue que si je pouvais utiliser une seule cellule, cela m'arrangerait...
Mais au cas ce ne serait aps possible, la solution de michel est très satisfaisante!! :-)
Mais au cas ce ne serait aps possible, la solution de michel est très satisfaisante!! :-)
michel_m
- Messages postés
- 16367
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 19 janvier 2021
après le café et avant la sieste
à installer dans le module feuille concerné, zone d'action A2:A100 à adapter
à installer dans le module feuille concerné, zone d'action A2:A100 à adapter
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
mois = Month(Target)
an_0 = Year(Target) Mod 1000
mois_region = Choose(mois, "jan", "fev", "ma", "avr", "mai", "jun", "jul", "aou", "sep", "oct", "nov", "dec")
'OU et seulement OU, liste des mois sur la feuille
'mois région = Application.Match(mois, Range("Z1:Z12"), 0)
Application.EnableEvents = False
Target = mois_region & "-" & an_0
Application.EnableEvents = True
End If
End Sub
Sub sos_macros()
'si sortie macro accidentelle macro avec enableevents désactivé
Application.EnableEvents = True
End Sub
beru002
- Messages postés
- 495
- Date d'inscription
- mardi 5 février 2008
- Statut
- Membre
- Dernière intervention
- 28 janvier 2016
Yes! Super! Merci!
Bon, finalement, je dois utiliser la première version, parce que j'avais oublié que j'avais utilisé cette cellule pour une autre formule utilisant les dates...
Mais je garde ça de côté, parce que ça me servira dans le futur!!
Encore merci!! et bravo!!
Bon, finalement, je dois utiliser la première version, parce que j'avais oublié que j'avais utilisé cette cellule pour une autre formule utilisant les dates...
Mais je garde ça de côté, parce que ça me servira dans le futur!!
Encore merci!! et bravo!!
