salut
voila un début qui pourrait te servir
Sub effacer()
Dim MaListe As Range
Set MaListe = ActiveCell
If MaListe.Column (différent de) 2 Then
MsgBox ('Veuillez vous placer sur un Nom')
Exit Sub
ElseIf MaFichesynthèse.Row inf 3 Then
MsgBox ('Veuillez vous placer sur un Nom')
Exit Sub
Else
Dim sup As Double
sup = MsgBox('Voulez-vous supprimer cette personne', vbYesNo, 'DANGER')
If sup = vbYes Then
ActiveCell.Select
Selection.EntireRow.Delete
Range('A1').Select
MsgBox ('Fiche supprimée')
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
MsgBox ('Annulation de l'opération suppression de Fiche')
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End If
End Sub
il te reste juste à determiner ou se trouvent tes colonnes et lignes avec les noms pour modifier les lignes suivantes dans le code que je t'ai donner:
If MaListe.Column diff 2 Then
ElseIf MaFichesynthèse.Row inf 3 Then
tu change les numéros de colonnes et de ligne
au fait, dans If MaListe... tu remplace MaListe par MaNomdetafeuille...
voila
pour ce qui est de pouvoir l'utiliser depuis ta liste deroul je sais po...
tient moi au courant
Message édité par: darnel, à: 14/03/2006 14:41