Supprimer deux cellules en fonction d une combobox

Bonjour a tous

je sollicite votre aide une fois de plus parce que je sèche.

je m explique

j ai une combobox qui liste toutes les valeurs de la colonne A

je souhaiterai supprimer la cellule contenant la valeur selectionnee dans la combobox mais aussi la cellule juste a coté qui se trouve dans la colonne B.

voici ce que j ai commencé

Private Sub CommandButton21_Click()

Dim c

'Dim LigneTrouvée As Integer

With Worksheets("A_INFO").Range("A1:A500")

Set c = .Find(ComboBox21.Value, LookIn:=xlValues)

If Not c Is Nothing Then

'Puis utilise pour éffacer la ligne:

c.Select

Range(ActiveCell.Offset(0, 1)).Activate

End If

End With

End Sub

je bloque sur la selection des deux cellules afin de les supprimer

peut etre que qq un a une solution ou une autre facon de faire.

Merci d avance

Bonjour Cédric, bonjour le forum,

Si tu veux supprimer la ligne :

Rows(c.row).Delete

Si tu veux supprimer les deux cellules :

c.Resize(1,2).Delete Shift:=xlUp (si tu veux que ce soit les cellules en dessous qui les remplacent)

ou

c.Resize(1,2).Delete Shift:=xlToLeft (si tu veux que ce soit les cellules à droite qui les remplacent)

si tu veux juste les effacer :

c.Resize(1,2).Clear ou c.Resize(1,2).ClearContents.

merci génial ça marche a la perfection c est exactement ce que je cherchais.

Rechercher des sujets similaires à "supprimer deux fonction combobox"