Bonjour à tous,
Je cherche un coup de main pour corriger le code suivant :
Sub xls_help()
Dim i As Long
Dim c As Range
Application.ScreenUpdating = False
Sheets("feuil1").Select
Set c = ActiveCell
Sheets("feuil2").Select
For i = [B65536].End(xlUp).Row To 2 Step -1
If Cells(i, 2) = c Then
rep = MsgBox("suppression?" & c, vbYesNo + vbExclamation, "Avertissement")
If rep = vbYes Then
Rows(i).EntireRow.Delete
On Error Resume Next
End If
Next i
Else
Exit Sub
End If
Sheets("feuil1").Select
If Err Then MsgBox "pas de ligne à supprimer", vbCritical
End Sub
En gros : je sélectionne une cellule sur la première feuille et toutes les lignes de la feuil2 dont la valeur correspond dans la colonne B, sont supprimées (avec un message de confirmation de suppression et un au cas ou il n'y a rien à supprimer).
La boucle de suppression fonctionne, mais des que je rajoute les msgbox, c'est le drame 🙂
Merci pour votre aide.
Je cherche un coup de main pour corriger le code suivant :
Sub xls_help()
Dim i As Long
Dim c As Range
Application.ScreenUpdating = False
Sheets("feuil1").Select
Set c = ActiveCell
Sheets("feuil2").Select
For i = [B65536].End(xlUp).Row To 2 Step -1
If Cells(i, 2) = c Then
rep = MsgBox("suppression?" & c, vbYesNo + vbExclamation, "Avertissement")
If rep = vbYes Then
Rows(i).EntireRow.Delete
On Error Resume Next
End If
Next i
Else
Exit Sub
End If
Sheets("feuil1").Select
If Err Then MsgBox "pas de ligne à supprimer", vbCritical
End Sub
En gros : je sélectionne une cellule sur la première feuille et toutes les lignes de la feuil2 dont la valeur correspond dans la colonne B, sont supprimées (avec un message de confirmation de suppression et un au cas ou il n'y a rien à supprimer).
La boucle de suppression fonctionne, mais des que je rajoute les msgbox, c'est le drame 🙂
Merci pour votre aide.
