XL 2019 suppression avec combobox

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Septembre 2020

• #2

Bonjour Didier,
En PJ un essai avec :

VB:

Private Sub Btnsupprimer_click()
' Suppression participants
With Sheets("Liste")
    DerLig = .Range("B65500").End(xlUp).Row
    For L = DerLig To 2 Step -1
        If .Cells(L, "B") = ComboBox1 Then
            .Cells(L, 1).EntireRow.Delete
        End If
    Next L
End With
End Sub

 

Pièces jointes

• Participants.xlsm

  21.3 KB · Affichages: 3

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Septembre 2020

• #3

Bonjour Didier,
Bonjour Sylvanu,
Tu as été plus rapide que moi, mais j'ai refait à ma sauce!!
Bruno

 

Pièces jointes

• Participants.xlsm

  22.3 KB · Affichages: 4

Vote positif 0 Vote négatif

D

Did25

XLDnaute Occasionnel

• 26 Septembre 2020

• #4

Bonjour sylvanu ,j'ai fait un essai et sur ma feuille (liste) se trouvent aussi des tableau et des bouton et lorsque que je supprime cela impacte mes tableaux ,je joins le fichier modifié .Merci

 

Pièces jointes

• Participants.xlsm

  23.8 KB · Affichages: 2

Vote positif 0 Vote négatif

D

Did25

XLDnaute Occasionnel

• 26 Septembre 2020

• #5

Bonjour Youki merci de votre intervention ,en faisant un essai je rencontre un message erreur ,je joins une copie d'écran

 

Pièces jointes

• Sans titre.png

  67.3 KB · Affichages: 7

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Septembre 2020

• #6

Il fallait le savoir.
En PJ rectifiée avec :

VB:

.Cells(L, "B").Delete Shift:=xlUp

 

Pièces jointes

• Participants (3).xlsm

  22.6 KB · Affichages: 3

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Septembre 2020

• #7

Je remets le fichier pour gérer les bugs
Bruno

 

Pièces jointes

• Participants (1).xlsm

  22.7 KB · Affichages: 4

Vote positif 0 Vote négatif

D

Did25

XLDnaute Occasionnel

• 26 Septembre 2020

• #8

Bonsoir Bruno et sylvanu ,merci de vos contributions tout fonctionne merci à vous bonne soirée et bon week end merci à XLD

 

Vote positif 0 Vote négatif