Ajouter un message box

[anasimo]

Bonjour

Je voudrais ajouter un message box après l’exécution de cette macro m'indiquant le nombre de lignes supprimées. Le code de la macro est:

Sub supprimer_produit()
Dim cel As Range
Sheets("BD").Select
With Sheets("utilisateurs")
    For i = Cells(Rows.Count, "H").End(xlUp).Row To 1 Step -1
        Set cel = .Columns("J").Find(Cells(i, "H"))
        If Not cel Is Nothing Then
            Rows(i).Delete Shift:=xlUp
        End If
    Next
End With
End Sub

Merci beaucoup

 

[youky(BJ)]

Bonjour
voici une façon de faire
Bruno

Sub supprimer_produit()
Dim cel As Range
Dim n
Sheets("BD").Select
With Sheets("utilisateurs")
    For i = Cells(Rows.Count, "H").End(xlUp).Row To 1 Step -1
        Set cel = .Columns("J").Find(Cells(i, "H"))
        If Not cel Is Nothing Then
            Rows(i).Delete Shift:=xlUp:n=n+1
        End If
    Next
End With
Msgbox n & "  lignes supprimées !"
End Sub

 

[anasimo]

Merci....ça donne rien pour moi

 

[youky(BJ)]

Rows(i).Delete Shift:=xlUp:n=n+1
Avez vous bien mis :n=n+1
Bruno

 

[anasimo]

j'ai copié tout le code que vous avez mis....et je l'ai collé dans le module

 

[youky(BJ)]

Tu n'as pas de Message ?
Bon tu ajoute n=0 en dessous de Dim n
Si pas de ligne effacée il y aura 0
Bruno

 

[anasimo]

si j'ai fais un test.... 3 lignes supprimées sans génération de message

 

[anasimo]

un truc comme ça que j'ai trouvé dans 1 macro (mais marche pas dans ce cas

If Tot > 0 Then
      MsgBox Tot & " lignes supprimées"
    Else
      MsgBox "Pas de lignes supprimées"
    End If

 

[youky(BJ)]

C'est obligé que tu ai le message ! ! ! ! !
Sinon tu n'es pas dans la bonne macro.
Mets 1 point d'arrêt dans la marge à coté de Msgbox (cela colorie en rouge) et lance la macro
Celle_ci va s'arrêter au point d'arrêt et tu presse F8 pour avancer ligne par ligne
Bruno

 

[anasimo]

la macro marche et je l'utilise depuis bien longtemps...je voulais juste ajouter le message comme option

 

[youky(BJ)]

C'est obligé tu as une msgbox qui s'affiche
Bruno

 

[anasimo]

mais oui et c'est l'objet de ma demande

 

[youky(BJ)]

Verifie si tu as plusieurs fichiers d'ouvert.
Tu n'as pas copié la macro dans le bon module
Bruno

 

[anasimo]

Bonjour Bruno....effectivement vous avez totalement raison. Votre code marche très bien.
je l'avais copié dans le mauvais fichier.