Annee par defaut dans une liste deroulante

[chaelie2015]

Bonsoir Forum
je cherche un code qui me permet de mettre dans une plage des cellules une année par defaut
Les palges : de L18 (fusionné avec M) a L77
de L80 (fusionné avec M) a L129
de L142 (fusionné avec M) a L201
NB: dans chaque cellule j"ai une liste déroulante des années
Année par Défaut : année courante +1
SALUTATIONS

 

[chaelie2015]

Re : Annee par defaut dans une liste deroulante

Re
j'ai trouvé ce code mais il est applicable que pour une cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "NOM de Cellule" Then
        If Target.Value = "2015" Then Target.Value = ""
    ElseIf Range("NOM de Cellule").Value = "" Then
        Range("NOM de Cellule").Value = "2015"
    End If
End Sub

SALUTATIONS

 

[Bebere]

Re : Annee par defaut dans une liste deroulante

bonjour Chaelie
un fichier qui représente une des situations serait le bienvenu

 

[chaelie2015]

Re : Annee par defaut dans une liste deroulante

BONJOUR BERBERE
oky je vais vous communiquer un model
Salutations

 

[chaelie2015]

Re : Annee par defaut dans une liste deroulante

BONJOUR BERBERE
oky je vais vous communiquer un model
Salutations

 

[chaelie2015]

Re : Annee par defaut dans une liste deroulante

Bonjour
ci joint le fichier exemple.
Salutations

 

[JCGL]

Re : Annee par defaut dans une liste deroulante

Bonjour à tous,

Peux-tu essayer :

Private Sub Workbook_Open()
Feuil1.Range("L18:L77,L80:L129,L142:L201") = Year(Now) + 1
End Sub

A+ à tous

 

[Bebere]

Re : Annee par defaut dans une liste deroulante

bonjour JCGL
Charlie sera content

 

[JCGL]

Re : Annee par defaut dans une liste deroulante

Bonjour à tous,
Salut Bebere,

Je me Jobardise (Salut Gérard 🙂).

Si notre ami souhaite conserver les listes de Validations :

Private Sub Workbook_Open()
Feuil1.Range("L18:L77,L80:L129,L142:L201").Select
With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="2015,2016,2017,2018,2019,2020"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
Feuil1.Range("L18:L77,L80:L129,L142:L201") = Year(Now) + 1
Feuil1.Range("L18").Select
End Sub

A+ à tous

 

[chaelie2015]

Re : Annee par defaut dans une liste deroulante

Bonjour JCGL
Merci pour la réponse je vais l'adapter a mon fichier et bon week end
Salutation