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

[MACx]

Bonjour,
Voici un tableau (ci-joint), où mon attente est décrite.
J'ai un tableau avec plusieurs colonnes. Ici la colonne A m’intéresse.
Dans cette colonne chaque ligne contient une liste déroulante, où par défaut je voudrais que le libellé "A Envoyer" apparaisse chaque fois que je tire mon tableau vers le bas (c'est un tableau qui "grandit" au fur et à mesure du temps)
Si vous connaissez une méthode je suis preneur, ou si vous avez besoin de plus d'info afin de pouvoir m'aider au mieux je serai ravi de vous les donner.
Merci d'avance à vous.

 

[pierrejean]

Bonjour MACx
Le fichier n'est pas passé

 

[MACx]

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

 

[pierrejean]

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

 

[youky(BJ)]

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

 

[MACx]

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

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.

 

[youky(BJ)]

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

 

[job75]

Bonjour MACx, Pierre, Bruno,

Placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le 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+

 

[MACx]

Merci beaucoup pour vos suggestions!