Discussion :

[alexis1037]

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.

[Kimy_Ire]

C'est plus simple comme cela et ça fonctionne chez moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim test As Range
 
Set test = Worksheets("carte").Cells.Find(What:=ComboBox2.Value)
test.ClearContents
test.Offset(0, 1).ClearContents

Tiens moi au courant !

[alexis1037]

Merci beaucoup ! ça marche parfaitement bien !