Obliger sélection ligne

**Vba14** · 20/03/2019, 12h40

Bonjour à tous,

J'ai ce début de code qui permet après avoir sélectionné une ligne de la supprimer. Mais avant, je voudrais m'assurer qu'une ligne a bien été sélectionné et confirmer cette sélection.
Comment puis-je faire s'il vous plait ? Merci par avance
Voici mon début de code :

Code :

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

1
2
3
4
 
Private Sub Cmb_Moins_Click()
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
End Sub

**MarcelG** · 20/03/2019, 12h55

Bonjour,

Tu peux tester

Code :

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

If Selection.Columns.count = Activesheet.Columns.Count

Cela dit, j'opterais pur une Inputbox retournant la ligne à supprimer.

**Vba14** · 20/03/2019, 14h11

Bonjour Marcel,

Merci pour ta réponse. Je vais tester ton idée.
Toutefois, j'aimerai qu'un message s'affiche du genre "Êtes-vous certain de vouloir supprimer la ligne ?", référence de la ligne, puis oui ou non.

**MarcelG** · 20/03/2019, 14h27

Salut VBA,

Toutefois, j'aimerai qu'un message s'affiche du genre "Êtes-vous certain de vouloir supprimer la ligne ?", référence de la ligne, puis oui ou non.

Pour ce faire:
Afficher une Inputbox Voir cette aide.
Afficher une Msgbox de confirmation Voir cette aide.

Tu peux intégrer la valeur de l'Inputbox au message de confirmation de la MsgBox

Essaie de développer en ce sens.
Reviens pour toute question et/ou difficulté.

**Vba14** · 20/03/2019, 14h30

Merci. J'essaie et en cas de difficulté je reviens.

**Vba14** · 20/03/2019, 15h02

Voici le code que je mets en place, mais il y a déjà un message d'erreur. Bien que je ne saisisse qu'une ligne, il m'est quand même demandé de ne saisir qu'une ligne.
Pouvez-vous m'aider s'il vous plait ? Merci beaucoup

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
22
23
24
25
26
27
28
29
30
31
32
 
Private Sub Cmb_Moins_Click()
Dim Ligne As Range
Dim SortieBoucle As Boolean
 
    With ActiveSheet
 
    Do
        On Error Resume Next
        Set Ligne = Application.InputBox("Sélectionnez une ligne !", "Sélection de ligne", Type:=8)
 
        On Error GoTo 0
 
        If Not Ligne Is Nothing Then
            If Ligne.Count > 1 Then
                MsgBox "Merci de ne sélectionner qu'une ligne"
            Else
                SortieBoucle = True
            End If
 
            Set Ligne = Nothing
        Else
            SortieBoucle = True
        End If
    Loop Until SortieBoucle
 
    If MsgBox("La plage que vous avez séléctionnez est : " & Ligne.Addres, vbYesNo) = vbYes Then
 
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
End If
End With
End Sub

**MarcelG** · 20/03/2019, 15h40

Il faut prendre un peu de distance par rapport aux exemples données dans tel ou tel espace documentaire
Si un numéro de ligne doit être informé dans l'Inputbox alors son Type doit être numérique.

Pour information, les valeurs de Type (empruntés à Maître Jacques)

0 Formule
1 Nombre
2 Texte
4 Valeur logique (True ou False)
8 Référence de cellule,
16 Valeur d'erreur(#N/A e.g)
64 Tableau de valeurs.

Dans le code ci-dessous, tu remarqueras l'homogénéité entre le Type et la variable affectée à l'Inputbox

(à adapter)

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
22
23
24
25
26
27
28
29
30
Option Explicit
 
Private Sub Btn_delete_row_Click()
 
Dim numligne As Integer
Dim confirm As Variant
 
saisie:
numligne = Application.InputBox( _
                                Prompt:="Entrer le n° de numligne", _
                                Title:="Sélection de ligne", _
                                Type:=1 _
                                )
If numligne = 0 Then
        MsgBox Prompt:="Erreur de saisie" & Chr(13) & "Vous devez rentrer une ligne de 1 à 2500'", _
                      Buttons:=vbOK
        GoTo saisie
End If
 
confirm = MsgBox( _
                                Prompt:="Confirmez-vous la suppression de la ligne " & Chr(13) & numligne, _
                                Buttons:=vbOKCancel, _
                                Title:="Confirmation" _
                                )
 
 If confirm = vbOK Then _
                                Worksheets("lafeuille").Rows(numligne).EntireRow.Delete
 
 
End Sub

**Vba14** · 20/03/2019, 16h50

Voici le code adapté. Merci beaucoup pour ton aide

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
 
Private Sub Cmb_Moins_Click()
Dim numligne As Integer
Dim confirm As Variant
 
saisie: numligne = Application.InputBox(Prompt:="Entrer le n° de numligne", Title:="Sélection de ligne", Type:=1)
 
If numligne = 0 Then
        MsgBox Prompt:="Erreur de saisie" & Chr(13) & "Vous devez rentrer un numéro de ligne'", Buttons:=vbOK
        GoTo saisie
End If
 
confirm = MsgBox(Prompt:="Confirmez-vous la suppression de la ligne " & Chr(13) & numligne, Buttons:=vbOKCancel, Title:="Confirmation")
 
 If confirm = vbOK Then Worksheets("Articles").Rows(numligne).EntireRow.Delete
End Sub

Amicalement

**patricktoulon** · 20/03/2019, 17h04

Envoyé par Vba14

Bonjour à tous,

J'ai ce début de code qui permet après avoir sélectionné une ligne de la supprimer. Mais avant, je voudrais m'assurer qu'une ligne a bien été sélectionné et confirmer cette sélection.
Comment puis-je faire s'il vous plait ? Merci par avance
Voici mon début de code :

Code :

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

1
2
3
4
 
Private Sub Cmb_Moins_Click()
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub Cmb_Moins_Click()
    Dim rep As VbMsgBoxResult
    If Selection.Columns.Count = Columns.Count Then
        rep = MsgBox("etes vous sur", vbYesNo, "Suppresion de ligne")
        If rep = vbYes Then Selection.Delete
    Else
        MsgBox "veuillez selectionner une ligne entiere"
    End If
End Sub

en prime le control du rows.count de la selection

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Cmb_Moins_Click()
    Dim rep As VbMsgBoxResult
    If Selection.Columns.Count = Columns.Count Then
        If Selection.Rows.Count = 1 Then
            rep = MsgBox("etes vous sur", vbYesNo, "Suppresion de ligne")
            If rep = vbYes Then Selection.Delete
        Else
            MsgBox "veuillez  selectionner qu'une seule ligne"
        End If
    Else
        MsgBox "veuillez selectionner une ligne entiere"
    End If
End Sub

ca force l'utilisateur a selectionner dans le heading des lignes
Nom : Capture.JPG
Affichages : 267
Taille : 54,8 Ko

**Vba14** · 20/03/2019, 17h13

Bonjour Patrick et merci pour ton code.

Marcel, ton code supprime bien la ligne, mais par contre, si je décide d'annuler, ça boucle, il me redemande quelle ligne, je suis donc obligé d'en indiquer une.

**patricktoulon** · 20/03/2019, 18h25

re
puré tu deconne marcel

saisie/goto saisie

obligé de fermer dans la gestion de tache

et ca

????

Code :

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

Worksheets("lafeuille").Rows(numligne).EntireRow.Delete

donc si c'est no valide on revient si on annule ca arrete

alors avec le application.inputbox(.......,type:=1)
pour exploiter le bouton cancel il faut l'exploiter en VARIANT comme ca il te retourne false(boolen) si tu annule ou le numero

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
 
Private Sub Btn_delete_row_Click()
    Dim numligne As Variant
    Dim confirm As VbMsgBoxResult
    Dim x
saisie:
    numligne = Application.InputBox(Prompt:="Entrer le n° de numligne", Title:="Sélection de ligne", Type:=1)
    If numligne = False Then Exit Sub
    If Val(numligne) = 0 Then
        MsgBox Prompt:="Erreur de saisie" & Chr(13) & "Vous devez rentrer une ligne de 1 à 2500'", Buttons:=vbOK
        GoTo saisie
    End If
    confirm = MsgBox(Prompt:="Confirmez-vous la suppression de la ligne " & Chr(13) & numligne, Buttons:=vbOKCancel, Title:="Confirmation")
    If confirm = vbOK Then
        Sheets("lafeuille").Cells(Val(numligne), 1).EntireRow.Delete
    End If
End Sub

bon apres si l'ami vba14 accepte l'inputbox vb a la place de celui de l'application on peut exploiter le retour (sptrptr) de l'input

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
 
Option Explicit
Private Sub Btn_delete_row_Click()
    Dim numligne As String
    Dim confirm As VbMsgBoxResult
    Dim x
saisie:
    numligne = InputBox(Prompt:="Entrer le n° de numligne", Title:="Sélection de ligne")
    If StrPtr(numligne) = 0 Then Exit Sub
    If Val(numligne) = 0 Then
        MsgBox Prompt:="Erreur de saisie" & Chr(13) & "Vous devez rentrer une ligne de 1 à 2500'", Buttons:=vbOK
        GoTo saisie
    End If
    confirm = MsgBox(Prompt:="Confirmez-vous la suppression de la ligne " & Chr(13) & numligne, Buttons:=vbOKCancel, Title:="Confirmation")
    If confirm = vbOK Then
    Sheets("lafeuille").Cells(Val(numligne), 1).EntireRow.Delete
     End If
End Sub

**Vba14** · 20/03/2019, 18h34

Merci Patrick le code de Marcel fonctionne maintenant très bien.
Juste une petite chose si cela est possible, ce serait de sélectionner la ligne en question avant sa suppression.
Mais bon ce serait juste un petit plus.
Sinon ce n'est pas grave, votre aide m'a déjà beaucoup apportée.

J'ai trouvé : voici le code

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
 
Dim numligne As Variant
Dim confirm As VbMsgBoxResult
Dim x
saisie:
    numligne = Application.InputBox(Prompt:="Entrer le n° de numligne", Title:="Sélection de ligne", Type:=1)
    If numligne = False Then Exit Sub
    If Val(numligne) = 0 Then
        MsgBox Prompt:="Erreur de saisie" & Chr(13) & "Vous devez rentrer une ligne de 1 à 2500'", Buttons:=vbOK
        GoTo saisie
    End If
    Sheets("Articles").Cells(Val(numligne), 1).EntireRow.Select
    confirm = MsgBox(Prompt:="Confirmez-vous la suppression de la ligne " & Chr(13) & numligne, Buttons:=vbOKCancel, Title:="Confirmation")
    If confirm = vbOK Then
        Sheets("Articles").Cells(Val(numligne), 1).EntireRow.Delete
    End If

Encore mille mercis à tous les deux

**MarcelG** · 21/03/2019, 14h03

Bonjour à vous,

Je reconnais bien volontiers la redondance Rows et EntireRow.
J'en demande donc mille pardons à Mr Patrick.

Cela étant
Notre ami souhaitait forcer la saisie d'une ligne.
C'est la raison pour laquelle j'ai volontairement forcé la boucle jusqu'à la saisie effective.
Au demeurant, un message de confirmation apparaît, dont la valeur Cancel arrête la procédure.

De là, à ce que je mérite un

puré tu deconne marcel
saisie/goto saisie obligé de fermer dans la gestion de tache

avec

et

(passons sur l'orthographe)

Il n'y a qu'un pas pour constater un manque désobligeant de courtoisie.

**Vba14** · 23/03/2019, 16h37

Je ne pense pas que notre ami Patrick ait voulu être désobligeant. Je crois que c'est de l'humour.

**patricktoulon** · 23/03/2019, 17h29

Bonjour Marcel

ne te fache pas

a savoir que saisie/goto saisie n'est pas une bonne solution

attention au rupteur memoire dans des pcs professionels au bureau qui sont pas toujours équipés de turbo

tu n'avait pas prevu le cancel puis que tu travaillais en string au depart ,c'est pour cela que j'ai dis ca

perso je prefererais a la limite !!!! une récursivité histoire de vider la memoire de l'imput gaché précédent et pour peut meme que le code soit une fonction

**patricktoulon** · 23/03/2019, 18h52

dans ce modele j'ai une bascule 3 positions
false ou 0 ou >0

je me suis amusé avec un exemple simple de récursivité de la fonction
tu a 3 essais par defaut si argument "A" omis

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
Sub test()
    Dim r As Variant
     rep = MyInput(r, 5)
    MsgBox " rep vaut : " & rep & vbCrLf & """R"" vaut !!:" & r
End Sub
'
'
Function MyInput(r, Optional A As Long = 3, Optional x As Long) As Variant
    Dim response as variant 
    x = x + 1: mafonction = False
    response = Application.InputBox("coucou", "salut tout le monde", Type:=1)
     Select Case True
    Case CStr(response) = "Faux": r = False: MyInput = False
    Case Val(response) <= 0:  If x < A Then MyInput = MyInput(r, A, x) Else MyInput = False: r = "nombre d'essais atteints !!!"
    Case Val(response) > 0:  r = response: MyInput = True
    End Select
End Function

**Vba14** · 23/03/2019, 19h05

Bonsoir Patrick,

Même résolu, tu continues à travailler sur ce sujet, je suis épaté.
Merci beaucoup.
Bon weekend à toi

Obliger sélection ligne [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager