suppression d'une ligne sélectionnée

**grisan29** · 17/05/2011, 20h00

bonjour a tous
voici un code qui permet de supprimer une ligne précise après avoir cliquer dans la cell de la ligne concernée

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
21
Private Sub CommandButton2_Click()
Dim Msg, Style, Title
If MsgBox("êtes vous sur de vouloir supprimer la ligne sélectionnée?", vbOKCancel + vbDefaultButton2, "ATTENTION SUPRESSION ACTIVEE") = vbOK Then ' Définit le message.
'récupère le n° de la ligne
maligne = ActiveCell.Row
'nomme la variable "cel1" avec la référence de la cellule , "b4" par exemple
cel1 = "B" & maligne
cel2 = "P" & maligne
'nomme "cel1" la cellule, "b4" par exemple
Range(cel1).Name = "cel1"
Range(cel2).Name = "cel2"
'sélectionne les cellules à supprimer (exemple b4:P4) => et  remonte les cellules d'1 cran cad b5.P65536 en b4.h65535
'et ajoute la 65536 vide, mais attention à cette formule, car si il y a des donnees à droite ou à gauche, en a4 ou
'au delà de P4, dans notre exemple, elles ne bougent pas
Range("cel1:cel2").Delete Shift:=xlUp
ActiveWorkbook.Names("cel1").Delete     'supprime le nom "cel1"
ActiveWorkbook.Names("cel2").Delete
Else    ' L'utilisateur a choisi Non.
    MsgBox "suppression annulée" ' Effectue une action.quitter"
    End If
End Sub

bien sûr il faudra ajuster le nombre et la quantité de colonne concerné par la suppression

bon courage

Pascal

Invité · 17/05/2011, 20h24

Bonjour

Il serait bon de revoir ton code, car il est loin d'être académique.

Tu déclares trois variables (Dim Msg, Style, Title) que tu n'utilises pas et qui de plus n'étaient pas typés.

Tu utilises des variables que tu ne déclares pas : maligne, cel1 et cel2.

De plus ton code n'est pas indenté pour offrir une meilleur visibilité de lecture.

Philippe

**grisan29** · 18/05/2011, 19h29

bonsoir Philippe
avec mes excuses j'ai mis le code d'essai que j'ai fait voici le bon qui ressemble comme 2 goute d'eau a l'autre
que veux tu dire par "indenté"

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
21
Private Sub CommandButton2_Click()
Dim maligne, cel1, cel2 As String
If MsgBox("êtes vous sur de vouloir supprimer la ligne sélectionnée?", vbOKCancel + vbDefaultButton2, "ATTENTION A L'OUBLI") = vbOK Then ' Définit le message.
'récupère le n° de la ligne
maligne = ActiveCell.Row
'nomme la variable "cel1" avec la référence de la cellule , "b4" par exemple
cel1 = "B" & maligne
cel2 = "P" & maligne
'nomme "cel1" la cellule, "b4" par exemple
Range(cel1).Name = "cel1"
Range(cel2).Name = "cel2"
'sélectionne les cellules à supprimer (exemple b4:P4) => et  remonte les cellules d'1 cran cad b5.P65536 en b4.h65535
'et ajoute la 65536 vide, mais attention à cette formule, car si il y a des donnees à droite ou à gauche, en a4 ou
'au delà de P4, dans notre exemple, elles ne bougent pas
Range("cel1:cel2").Delete Shift:=xlUp
ActiveWorkbook.Names("cel1").Delete     'supprime le nom "cel1"
ActiveWorkbook.Names("cel2").Delete
Else    ' L'utilisateur a choisi Non.
    MsgBox "suppression annulée" ' Effectue une action.quitter"
    End If
End Sub

voila qui fonctionne mieux
cordialement

Pascal

**fring** · 19/05/2011, 10h45

Envoyé par grisan29

que veux tu dire par "indenté"

Indenté = insérer des retraits dans le code afin de pouvoir plus facilement déceler le début et la fin des différentes opérations, par exemple :

Code sans indentation :

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

1
2
3
4
5
6
7
For x = 1 to 5
If blabla & x = "..." Then
With Sheets(1)
.Range("A1") = "OK"
End With
End If
Next

Code avec indentation :

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

1
2
3
4
5
6
7
For x = 1 to 5
    If blabla & x = "..." Then
        With Sheets(1)
            .Range("A1") = "OK"
        End With
    End If
Next

**patricktoulon** · 19/05/2011, 18h22

bonjour grizan

tu poste le code que j'avais a moitié corrigé

tu devrais poster le dernier que je t'ai envoyé par mail

effectivement si tu a regardé le dernier code que je t'ai envoyé j'avais supprimé tout ce qui n'était pas utilisé comme fring te la suggéré

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton2_Click()
Dim maligne As Long
'Définit le message.
If MsgBox("êtes vous sur de vouloir supprimer la ligne sélectionnée?", vbOKCancel + vbDefaultButton2, "ATTENTION A L'OUBLI") = vbOK Then ' 'récupère le n° de la ligne
maligne = ActiveCell.Row
Rows(maligne & ":" & maligne).Delete Shift:=xlUp
Else    ' L'utilisateur a choisi Non.
    MsgBox "suppression annulée" ' Effectue une action.quitter"
    End If
End Sub

çà a du mal a rentrer

suggestion du jour:
encore une fois je ne saurais que trop te conseiller de nettoyer tes codes quand tu est arrivé a une formule satisfaisante

au plaisir

**fring** · 20/05/2011, 00h16

Ceci :

Code :

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

1
2
maligne = ActiveCell.Row
Rows(maligne & ":" & maligne).Delete Shift:=xlUp

Peut se résumer à : Rows(ActiveCell.Row).Delete

**mercatog** · 20/05/2011, 00h54

Bonsoir
Ou bien

Code :

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

ActiveCell.EntireRow.Delete

**patricktoulon** · 20/05/2011, 12h48

bonjour fring et mercatog

oui effectivement

je suis le premier partisan pour la réduction de code les deux sont bien mais faut -il encore quelles soit comprises quoi que la les expressions sont relativement explicites

c'est ce que j'essaie d'expliquer a grizan (l'importance du nettoyage du code
surtout en cas d'échange)

bien que dans le cas de grizan

on pourrais garder la variable"maligne"

et faire qu'une seule macro pour monter descendre ou supprimer la ligne
avec simplement un "select case" ça réduirais encore plus le code

au plaisir

**grisan29** · 20/05/2011, 20h06

bonjour a vous

voici le code que Patrick m'a posté qui fonctionne bien sauf si c'est la ligne du bas qui est supprimée car la suppression supprime également la bordure basse

Code :

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

1
2
3
4
5
6
7
Dim maligne As Long
If MsgBox("êtes vous sur de vouloir supprimer la ligne sélectionnée?", vbOKCancel + vbDefaultButton2, "SUPPRESSION IRREVERSIBLE") = vbOK Then ' Définit le message.
'récupère le n° de la ligne
ActiveCell.EntireRow.Delete 'merci Mercatog
Else    ' L'utilisateur a choisi Non.
    MsgBox "suppression annulée" ' Effectue une action.quitter"
    End If

Bonne soirée

cordialement

Pascal

**patricktoulon** · 21/05/2011, 14h50

bonjour grizan

ca n'est pas mon code ca
moi je n'ai pas utilisé ca:

Code :

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

ActiveCell.EntireRow.Delete 'merci Mercatog

sinon la variables maligne sert a rien

et j'ai preciser dans une de mes reponses precedantes que cette variable pourrais servir plus tard pour remettre le cadre autour des celules par exemple

cela dit la solution de mercatog est plus que bien

au plaisir

**grisan29** · 02/06/2011, 12h29

bonjour a vous tous

voici donc avec retard le code que Patrick m'avait compresser

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim Msg, Style, Title
If MsgBox("êtes vous sur de vouloir supprimer la ligne sélectionnée?", vbOKCancel + vbDefaultButton2, "ATTENTION A L'OUBLI") = vbOK Then ' Définit le message.
'récupère le n° de la ligne
maligne = ActiveCell.Row
Rows(maligne & ":" & maligne).Delete Shift:=xlUp
Else    ' L'utilisateur a choisi Non.
    MsgBox "suppression annulée" ' Effectue une action.quitter"
    End If
End Sub

voila ce qui m'apprendra de poster un code modifié apres le premier reçu

cordialement

Pascal

suppression d'une ligne sélectionnée [XL-2007]

Contribuez

Discussions similaires

Partager

Partager