Autres Excel 2024 Liste déroulante et tableau.

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Paulle

XLDnaute Occasionnel
Bonjour,
Je souhaite, quand je sélectionne la première cellule vide après la fin du tableau,
soit A6 ou B6 pouvoir entrer un nom ou le prénom à l'aide de la liste déroulante.
 

Pièces jointes

Solution
Bonsoir à tous,

On peut utiliser cette macro, dans le code de la feuille :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [Tableau1] 'tableau structuré
    If Intersect(ActiveCell, .Rows(.Rows.Count + 1)) Is Nothing Then Exit Sub
End With
On Error Resume Next
If Not ActiveCell(0).Validation.InCellDropdown Then Exit Sub
On Error GoTo 0
ActiveCell.Validation.Delete 'RAZ
ActiveCell.Validation.Add xlValidateList, Formula1:=ActiveCell(0).Validation.Formula1
CreateObject("WScript.Shell").SendKeys "%{DOWN}" 'déroule la liste
End Sub
Sélectionnez A6 ou B6.

A+
Bonsoir à tous,

On peut utiliser cette macro, dans le code de la feuille :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [Tableau1] 'tableau structuré
    If Intersect(ActiveCell, .Rows(.Rows.Count + 1)) Is Nothing Then Exit Sub
End With
On Error Resume Next
If Not ActiveCell(0).Validation.InCellDropdown Then Exit Sub
On Error GoTo 0
ActiveCell.Validation.Delete 'RAZ
ActiveCell.Validation.Add xlValidateList, Formula1:=ActiveCell(0).Validation.Formula1
CreateObject("WScript.Shell").SendKeys "%{DOWN}" 'déroule la liste
End Sub
Sélectionnez A6 ou B6.

A+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
Réponses
5
Affichages
163
Didierpasdoué
D
Retour