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