Ajouter un message box

youky(BJ)

XLDnaute Barbatruc

• 29 Novembre 2019

• #2

Bonjour
voici une façon de faire
Bruno

VB:

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 29 Novembre 2019

• #3

Merci....ça donne rien pour moi

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Novembre 2019

• #4

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 29 Novembre 2019

• #5

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Novembre 2019

• #6

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 29 Novembre 2019

• #7

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 29 Novembre 2019

• #8

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

VB:

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Novembre 2019

• #9

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 29 Novembre 2019

• #10

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Novembre 2019

• #11

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 29 Novembre 2019

• #12

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 29 Novembre 2019

• #13

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

 

Vote positif 0 Vote négatif

anasimo

XLDnaute Occasionnel

• 29 Novembre 2019

• #14

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

 

Vote positif 0 Vote négatif