Bonjour à tous.
Je souhaiterais, par le biais d'un userform, rechercher un cellule dans une page pour la supprimer, et supprimer également celle qui se trouve à côté.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Private Sub CommandButton1_Click()
Dim l As Long
Dim c As Long
c = Sheets("carte").Cells.Find(What:=ComboBox2.Value).Column
l = Sheets("carte").Cells.Find(What:=ComboBox2.Value).Row
Sheets("carte").Cells(l & c).ClearContents
Sheets("carte").Cells(l & c + 1).ClearContents
End Sub
Cependant rien ne se passe...
Alors je m'en remet à vous pour tenter de trouver une solution à mon problème.
Merci d'avance.