Comment creer une liste automatique sur excel via vba ?
Version imprimable
Comment creer une liste automatique sur excel via vba ?
c'est quoi une liste automatique ?
vous savez que tout le monde ne vit pas dans votre tête, n'est-ce pas ?
construire quelques phrases pour poser le contexte, pourquoi VBA si on peut le faire sans...
si tout ça vous fatigue trop, ne postez pas de question sur un forum
Bonjour,
Question posée sur Mistral AI.
Ouvrir l'éditeur VBA :
Appuyez sur Alt + F11 pour ouvrir l'éditeur VBA.
Insérer un nouveau module :
Dans l'éditeur VBA, allez dans Insert > Module pour insérer un nouveau module.
Écrire le code VBA :
Copiez et collez le code suivant dans le module. Ce code crée une liste déroulante dans la cellule spécifiée.
Sub CreerListeDeroulante()
Dim ws As Worksheet
Dim cell As Range
Dim liste As String
' Définir la feuille de calcul
Set ws = ThisWorkbook.Sheets("Feuille1") ' Remplacez "Feuille1" par le nom de votre feuille
' Définir la cellule où la liste déroulante sera placée
Set cell = ws.Range("A1") ' Remplacez "A1" par la cellule de votre choix
' Définir les éléments de la liste déroulante
liste = "Option1,Option2,Option3,Option4" ' Remplacez par vos options
' Ajouter la validation des données
With cell.Validation
.Delete ' Supprimer toute validation existante
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=liste
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
End Sub
Exécuter le code :
Fermez l'éditeur VBA et retournez à Excel.
Appuyez sur Alt + F8 pour ouvrir la boîte de dialogue "Macro".
Sélectionnez CreerListeDeroulante et cliquez sur Exécuter.
Ce code crée une liste déroulante dans la cellule A1 de la feuille Feuille1 avec les options Option1, Option2, Option3, et Option4. Vous pouvez modifier la feuille, la cellule et les options selon vos besoins.
Explications du code :
Set ws = ThisWorkbook.Sheets("Feuille1") : Définit la feuille de calcul où la liste déroulante sera ajoutée.
Set cell = ws.Range("A1") : Définit la cellule où la liste déroulante sera placée.
liste = "Option1,Option2,Option3,Option4" : Définit les éléments de la liste déroulante.
With cell.Validation : Ajoute la validation des données à la cellule spécifiée.
Vous pouvez personnaliser ce code pour répondre à vos besoins spécifiques, comme ajouter des options dynamiques ou appliquer la liste déroulante à plusieurs cellules.
Philippe