Bonjour a tous,
 
Je debute en VBA et j'ai un petit probleme avec une combobox.
 
Voila mon probleme:
J'ai un userform compose d'une combobox et d'un commandButton.
Je voudrais que quand je choisisse un nom dans ma combobox et que je click sur mon commandButton cela efface le nom dans ma source. ( C'est une source dynamique ou je peux ajouter ou retirer des noms comme je veux)
 
Voila ce que j'ai code:
 
 
'Definition de la source de ma combobox
 
Private Sub UserForm_initialize()
ComboBox1.Clear
With ActiveSheet
ComboBox1.List = .Range("AD11:AD" & .Range("AD65536" ).End(xlUp).Row).Value
End With
End Sub
 
 
'Definition de l'action de mon CommandButton
 
Sub CommandButton1_Click()
On Error Resume Next
Dim line As Long
line = UserForm5.ComboBox1.ListIndex + 11
Sheets("Sheet1" ).Rows(line & ":" & line).Delete Shift:=xlUp
UserForm5.ComboBox1.RowSource = "AD11:AD" & Sheet1.Range("AD65536" ).End(xlUp).Row
Unload Me
End Sub
 
Pour le moment cela me supprime la ligne complete, je comprends pourquoi mais je ne parviens pas a ne selectionner que la cellule qui m'interesse.
 
J'espere que vous pourrez m'aider.

Hello
 
Etant donné que ton Delete est sur une ligne ( Rows() ) il ne peut en etre autrement...
 
Essaie quelque chose comme ca :
Sheets("Sheet1" ).Range("AD" & Line).Delete Shift:=xlUp
 
Le range renvoi une cellule ou une plage. Donc on construit la reference a ta cellule "ADx" où x = ta ligne à supprimer en concatenant "AD" et ta variable line :
"AD" & line
 
Si line = 16
Range("AD" & line) renverra la reference a la cellule AD16
 

Merci beaucoup, ca fonctionne parfaitement
 
Effectivement je faisait ma selection sur une ligne mais je n'etais pas parvenu a le faire uniquement sur une cellule.
 
C'est vrai que quand on a la solution sous les yeux ca parait logique, mais je n'ai pas encore la logique du VBA en moi ^^
 
 
Encore merci, et a bientot pour mes prochains soucis  

Pas de probleme