Discussion :

[greg hanssen]

Bonjour,

Je souhaiterai via une commande que j'ai créée ( screen-shot en PJ) supprimer toutes les lignes contenant la valeur sélectionnée dans le menu déroulant



Je vous met ci-dessous le code qui ne supprime que la 1er ligne, je n'arrive pas à les supprimer toutes:

Private Sub ComdDeleteButtonProcess_Click()

'Déclarer des variables
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim processus As String

'On récupère la feuille de calcul active
Set ws = ActiveSheet

'On recherche la dernière ligne de données dans la colonne D
lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row

'On boucle sur toutes les lignes de la feuille pour supprimer les lignes liées au processus sélectionné
For i = lastRow To 2 Step -1
processus = ws.Cells(i, "D").value
If processus = Me.ComboBox1.value Then
ws.Rows(i).Delete
End If
Next i

'On supprime le processus sélectionné de la ComboBox1
ComboBox1_Change

End Sub

[BENNASR]

bonjour
à mon modeste avis , faire avec un filtre mieux qu'une boucle

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 CommandButton1_Click()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1")
Dim I As Long
Dim Filtre As String
 Application.ScreenUpdating = False
 Filtre = ComboBox1.Value
 With F1
 .Activate
I = .Cells(Rows.Count, 1).End(xlUp).Row
 .Range("A1:A" & I).AutoFilter Field:=1, Criteria1:=Filtre
 .Range("A2:A" & I).SpecialCells(xlCellTypeVisible).EntireRow.Delete
 .ShowAllData
End With
 Application.ScreenUpdating = True
End Sub

[Franc]

Bonjour, à priori, la boucle d'effacement à l'air correcte. Par contre je trouve inhabituel d'appeler l'évènement _Change de la Combobox puisqu'il se déclenche automatiquement lors d'un changement dans la combobox. Quel code y as-tu inséré ?

[greg hanssen]

Bonjour, à priori, la boucle d'effacement à l'air correcte. Par contre je trouve inhabituel d'appeler l'évènement _Change de la Combobox puisqu'il se déclenche automatiquement lors d'un changement dans la combobox. Quel code y as-tu inséré ?

rivate Sub ComboBox1_Change()

'Définition des variables
Dim ws As Worksheet
Dim lastRow As Long
Dim processToDelete As String
Dim colProcess As String
Dim rngProcess As Range
Dim processFound As Range
Dim userConfirmation As Integer

'Définition de la feuille de travail
Set ws = ThisWorkbook.Sheets("Process extraction")

'Définition de la dernière ligne de la feuille
'lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
lastRow = ws.Range("D" & ws.Rows.Count).End(xlUp).Row

'Définition de la colonne où se trouve le nom du /des process
colProcess = "D"

'Définition de la plage où chercher le nom de process sélectionné
Set rngProcess = ws.Range(colProcess & "4:" & colProcess & lastRow)

'Recherche du nom du process sélectionné
Set processFound = rngProcess.Find(ComboBox1.value, LookIn:=xlValues, lookat:=xlWhole)

'Si le nom du process est trouvé
If Not processFound Is Nothing Then
'Vérification si le process a déjà été extrait
If processFound.Offset(0, 1).value = "Yes" Then
userConfirmation = MsgBox("The process " & processFound.value & " has already extracted. Do you really want to extract again?", vbYesNo + vbQuestion, "Confirmation of extraction")
If userConfirmation = vbNo Then Exit Sub
End If

'Confirmation de l'utilisateur pour supprimer le process choisi
userConfirmation = MsgBox("Do you really want to delete the process " & processFound.value & " ?", vbYesNo + vbQuestion, "Delete confirmation")
'Si l'utilisateur confirme la suppression
If userConfirmation = vbYes Then
'Suppression de toutes les lignes correspondantes au process
ws.Range("D" & processFound.Row & ":T" & processFound.Row).Delete Shift:=xlUp
MsgBox "The process and all related have been successfully deleted."
End If
Else
MsgBox "The selected process was not found in column D."
End If


End Sub

[umfred]

ton code devrait fonctionner, la seul chose qui peut faire que ça ne marche pas, c'est que le contenu de la cellule n'est pas exactement celui du combobox