Annee par defaut dans une liste deroulante

chaelie2015

XLDnaute Accro

• 18 Juillet 2015

• #2

Re : Annee par defaut dans une liste deroulante

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

VB:

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Juillet 2015

• #3

Re : Annee par defaut dans une liste deroulante

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 19 Juillet 2015

• #4

Re : Annee par defaut dans une liste deroulante

BONJOUR BERBERE
oky je vais vous communiquer un model
Salutations

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 19 Juillet 2015

• #5

Re : Annee par defaut dans une liste deroulante

BONJOUR BERBERE
oky je vais vous communiquer un model
Salutations

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 19 Juillet 2015

• #6

Re : Annee par defaut dans une liste deroulante

Bonjour
ci joint le fichier exemple.
Salutations

 

Pièces jointes

• charlie année par defaut.xlsx

  9.8 KB · Affichages: 15

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Juillet 2015

• #7

Re : Annee par defaut dans une liste deroulante

Bonjour à tous,

Peux-tu essayer :

VB:

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

A+ à tous

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 19 Juillet 2015

• #8

Re : Annee par defaut dans une liste deroulante

bonjour JCGL
Charlie sera content

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Juillet 2015

• #9

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 :

VB:

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 19 Juillet 2015

• #10

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

 

Vote positif 0 Vote négatif