Discussion :

[naoy93]

Bonjour, je souhaite supprimer la ligne qu'un utilisateur a sélectionner quand ensuite celui-ci appuie sur un bouton. (Je souhaite aussi
changer le numéro de la 1ere cellule de la ligne pour qu'elle corresponde à celui de la ligne sur la feuille mais ça c'est une autre histoire, chaque chose en son temps ^^
Pensez vous voir pourquoi ma ligne n'est pas supprimée ?
Merci d'avance dans tout les cas !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub BoutonSupp_Click()
response = MsgBox("Voulez-vous réellement supprimer cette tâche ?", vbExclamation + vbYesNo, _
    "Suppression de tâche :")
 
If response = vbOK Then   ' User chose Yes.
  'supprime la ligne
  ligne = ActiveCell.Row
   Rows(ligne).Select
   Selection.Delete Shift:=xlUp
   lign = Sheets("BD").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1
   'Change numéro de ligne
  For i = 2 To lign
    Sheets("BD").Cells(i, 1) = i
   Next i
 
 
End If
 
End Sub

[Stef999]

Bonjour,

vbYes ... pas vbOk

Code :

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

If response = vbYes Then

Quant à votre numérotation elle fonctionne, elle numérote une ligne de plus à cause du +1 à la ligne 11 du code (mais c'est peut être voulu ...)

[Guiiand]

Bonjour,

Je rajouterais quelques commentaires :

Tout d'abord, tu peux remplacer

Code :

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

1
2
3
  ligne = ActiveCell.Row
   Rows(ligne).Select
   Selection.Delete Shift:=xlUp

par

Code :

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

ActiveCell.EntireRow.Delete

Ensuite, si tu veux numéroter tes lignes dans la colonne A, une formule excel existe pour ca.

Code :

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

=ligne()

dans ta cellule A1 et déroule la formule. tu auras ta numérotation.

Bonne journée