Suppression valeur liste déroulante

Question

Bonjour,

Comment supprimer une valeur dans une liste déroulante d'un formulaire en VBA ?

Voir pièce jointe. https://www.cjoint.com/c/MLonNlT3atu

Merci pour votre aide.

Cordialement

Answer 1

Bonjour,

J'ai réglé le problème avec ce code :

Private Sub btn_efface_lieu_achat_Click()
Dim base As Database: Dim requete As String

If (lieu\_achat.Value <> "") Then  
    Set base = Application.CurrentDb  
        requete = "DELETE FROM t\_lieu\_achat WHERE lieu\_achat='" & lieu\_achat.Value & "'"  
        base.Execute requete  
        base.Close  
    Set base = Nothing  

    lieu\_achat.Value = ""  
    lieu\_achat.Requery  
    MsgBox "Le lieu d'achat a été supprimé.", vbInformation, "Votre attention SVP"  
Else  
    MsgBox "Vous devez sélectionner un lieu d'achat.", vbInformation, "Votre attention SVP"  
End If  

End Sub

Cordialement

Answer 2

Bonjour Shalom,

Le code que vous proposez, ne serait-il pas destiner à Excel. ?

Sincères salutations

Answer 3

Bonjour

Je m’appelle Shalom et je me ferai un plaisir de répondre à votre question. Dans ce forum, nous sommes des consommateurs Microsoft comme vous.

Bonjour! Pour supprimer une valeur d’une liste déroulante dans VBA, vous pouvez utiliser la méthode 'RemoveItem'. Voici un exemple de la façon dont vous pouvez le faire :

'''vba Sous-ListBox2_Click privé() Dim i As Integer Pour i = 0 To ListBox2.ListCount - 1 Si ListBox2.Selected(i) alors ListBox2.RemoveItem(i) Fin de si Suivant i Sous-marin d’extrémité ''' Dans ce code, 'ListBox2' est le nom de votre liste déroulante. Ce code supprimera l’élément sélectionné de la liste déroulante³.

Si vous souhaitez supprimer une valeur d’une liste déroulante de validation de données, vous pouvez utiliser la méthode « Supprimer » :

'''vba Sous-macro2() Plage(« Z4 :Z23 »). ClearContents (Effacer le contenu) Avec Selection.Validation . Supprimer . Ajouter Type :=xlValidateInputOnly, AlertStyle :=xlValidAlertStop, Operator :=xlBetween . IgnoreBlank = Vrai . InCellDropdown = Vrai . InputTitle = «  » . TitreErreur = «  » . InputMessage = «  » . Message d’erreur = «  » . ShowInput = Vrai . ShowError = Vrai Terminez par Sous-marin d’extrémité ''' Dans ce code, 'Range(« Z4 :Z23 »)' est la plage de cellules qui contient la liste déroulante.

J’espère que cela vous aidera !

Sinceres salutations Shalom

Cette réponse a été traduite automatiquement. Par conséquent, il peut y avoir des erreurs grammaticales ou des expressions étranges.