XL 2016 Valeur par défaut sur chaque ligne d'une même colonne

pierrejean

XLDnaute Barbatruc

• 21 Novembre 2016

• #2

Bonjour MACx
Le fichier n'est pas passé

 

Vote positif 0 Vote négatif

M

MACx

XLDnaute Occasionnel

• 21 Novembre 2016

• #3

Fichier chargé, après une troisième tentative! Merci Pierrejean 😉

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 21 Novembre 2016

• #4

Re
Vraiment désolé ,mais je ne vois pas du tout comment faire

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 21 Novembre 2016

• #5

Bonjour MacX et PierreJean,
Le fichier est bien passé . . .
Pour "A envoyer" peut être mettre une formule
en A2 ="A envoyer"
Si on tire en bas c'est OK
Bruno

 

Vote positif 0 Vote négatif

M

MACx

XLDnaute Occasionnel

• 22 Novembre 2016

• #6

youky(BJ) à dit:

Bonjour MacX et PierreJean,
Le fichier est bien passé . . .
Pour "A envoyer" peut être mettre une formule
en A2 ="A envoyer"
Si on tire en bas c'est OK
Bruno

Cliquez pour agrandir...

Bonjour Youky,
Pas de formule en A2 car chaque ligne de la colonne A contient une liste déroulante.
Et le but n'est pas de faire la manip manuellement 🙂
Merci en tous cas de ton intérêt.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 22 Novembre 2016

• #7

RE:
Je viens de tester en mettant la formule en A2
Je me suis servis de la liste déroulante mis des couleurs, en A2 mis du jaune et partout des couleurs.
Quand je tire en bas la nouvelle ligne affiche bien la formule et .....A envoyer
Bon test
Bruno

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Novembre 2016

• #8

Bonjour MACx, Pierre, Bruno,

Placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
ListObjects(1).Range.Columns(1).SpecialCells(xlCellTypeBlanks) = "A Envoyer"
Application.EnableEvents = True
End Sub

Ensuite enregistrer le fichier en .xlsm.

Edit : perso j'écrirais "A envoyer" au lieu de "A Envoyer"...

A+

 

Dernière édition: 22 Novembre 2016

Vote positif 0 Vote négatif

M

MACx

XLDnaute Occasionnel

• 23 Novembre 2016

• #9

Merci beaucoup pour vos suggestions! 🙂

 

Vote positif 0 Vote négatif