XL 2019 Suprimer une ligne grâce à une ComboBox VBA

Yann71 · 13 Novembre 2021

Bonsoir la com, j'espère que tout le monde va bien.
J'ai dans un userform plusieurs boutons qui génère l'effacement total d'une ligne. Le problème c'est que le tableau en question peut avoir un contenu de ligne importante.
J'aimerai savoir si grâce à une ComboBox il me serait possible de sélectionner la ligne désirée et qu'avec un bouton de validation il m'efface la ligne souhaitée.
Merci d'avance pour votre futur aide et portez-vous bien.

mapomme · 13 Novembre 2021

Bonsoir @Yann71 ,

Voir un essai dans le fichier (pour ce que j'en ai compris...)

Yann71 · 13 Novembre 2021

mapomme à dit:
Bonsoir @Yann71 ,

Voir un essai dans le fichier (pour ce que j'en ai compris...)

Bonsoir, tu as tout compris, tu me proposes une solution des plus pratique. Je te remercie pour ton aide. Bonne soirée à toi, à la com et au forum.

Yann71 · 15 Novembre 2021

mapomme à dit:
Bonsoir @Yann71 ,

Voir un essai dans le fichier (pour ce que j'en ai compris...)

Bonjour le forum, la com et mapomme.
Mapomme je reviens vers toi, car lorsque je désir supprimer dans la ListBox, il m'affiche uniquement le no de ligne et Nom, mais j'aimerai que celle-ci affiche le nom et prénom. J'ai essayé de modifier le code à plusieurs fois mais et rechercher des infos sur le net mais rien ne correspond à ton code.

mapomme · 15 Novembre 2021

Bonjour @Yann71

Yann71 à dit:
j'aimerai que celle-ci affiche le nom et prénom.

Voir le fichier joint. Seule la Sub GarnirListBox1() a été modifiée.

Yann71 · 15 Novembre 2021

mapomme à dit:
Bonjour @Yann71

Voir le fichier joint. Seule la Sub GarnirListBox1() a été modifiée.

Bonjour, merci encore pour ton aide. J'ai toutefois encore un petit peu de toi. Pourrais-tu me dire comment afficher dans la ListBox les titre "Nom" et "Prénom" sans le "no des lignes".

mapomme · 15 Novembre 2021

Re,

Yann71 à dit:
Pourrais-tu me dire comment afficher dans la ListBox les titre "Nom" et "Prénom" sans le "no des lignes"

Voir le fichier joint.
On a masqué la 1ère colonne de ListBox1 à l'aide de l'instruction (dans Sub GarnirListBox1() ):

VB:

ListBox1.ColumnWidths = Join(Array(0, ListBox1.Width / 2 - 10, ListBox1.Width / 2 - 10), ";")

Yann71 · 15 Novembre 2021

mapomme à dit:
Re,

Voir le fichier joint.
On a masqué la 1ère colonne de ListBox1 à l'aide de l'instruction (dans Sub GarnirListBox1() ):

VB:

ListBox1.ColumnWidths = Join(Array(0, ListBox1.Width / 2 - 10, ListBox1.Width / 2 - 10), ";")

d'accord j'ai compris, mais la chose qui me manquerai c'est d'avoir le titre des colonnes dans la ListBox soit "Nom" et "Prénom"

mapomme · 15 Novembre 2021

Re,

Yann71 à dit:
avoir le titre des colonnes dans la ListBox soit "Nom" et "Prénom"

En rajoutant deux étiquettes Label1 et Label2

Yann71 · 15 Novembre 2021

mapomme à dit:
Re,

En rajoutant deux étiquettes Label1 et Label2

je te remercie beaucoup pour ton aide, je vais pouvoir mener mon projet à son terme. Je te souhaite une bonne soirée.

XL 2019 Suprimer une ligne grâce à une ComboBox VBA

Yann71

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

Yann71

XLDnaute Occasionnel

Yann71

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

Yann71

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

Yann71

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

Yann71

XLDnaute Occasionnel

Discussions similaires