Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Hi,
Lorsque tu veux valider une réponse, il ne faut pas valider "ton" post
Mais le post qui a résolu ta question....
Une usine à gaz (impliquant un fichier comportant du langage "VBA") comparée à une touche "Tabulation", "What else"?
 
- 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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…