macro sur suppression de ligne

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Août 2008

• #2

Re : macro sur suppression de ligne

Bonjour Koyot (Johan), bonjour le forum,

Un peu étrange mais ça marche... Pour une seule ligne ou pour plusieurs. Évidemment, si tu effaces 256 cellules qui ne sont pas dans la même ligne ça déclenchera la macro aussi...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Cells.Count = 256 Then 'un seule ligne
    MsgBox "Coucou" 'tu adapteras...
End If
If Selection.Cells.Count Mod 256 = 0 Then 'plusieurs lignes
    MsgBox "Coucou" 'tu adapteras...
End If
End Sub

 

Vote positif 0 Vote négatif

K

koyot3

Guest

• 1 Août 2008

• #3

Re : macro sur suppression de ligne

merci de ta réponse, mais cela ne fonctionne pas chez moi ...😀

en fait pour supprimer la ligne, l'opératrice fait la manip suivant
elle sélectionne la ligne complète avec son nnuméro, clique droit puis Delete...

j'ai essayé ton code, mais ca ne m'affiche rien... 😕
faut que je trouve pourquoi

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Août 2008

• #4

Re : macro sur suppression de ligne

Bonjour Koyot, bonjour le forum,

As-tu bien placé cette macro non pas dans un module mais dans le composant WorkSheet / (Feuil1(Feuil1) par exemple ? C'est une macro événementielle qui agit sue l'événement Change. Chez moi ça fonctionne correctement. PC sur MAC je ne sais pas....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Août 2008

• #5

Re : macro sur suppression de ligne

Bonjour Koyot, Robert🙂

j'avais essayé un code de ce style :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = Application.Columns.Count Then MsgBox "trop tard !!!"
End Sub

Mais j'ai la nette impression que l'événement "change" se déclenche après la suppression de la ligne, enfin chez moi Excel2003, ou quelque chose doit m'échapper, fort possible du reste....

bonne journée
@+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Août 2008

• #6

Re : macro sur suppression de ligne

Bonjour Koyot, Pierrot, bonjour le forum,

Oui Pierrot je confirme, la ligne est supprimé avant que la macro ne se déclenche. Mais

J'essaie de trouver une méthode pour lancer une macro dès qu'une ligne est supprimée ....

Cliquez pour agrandir...

je ne pense pas que cela pose un problème à Johan.

 

Dernière édition: 1 Août 2008

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 1 Août 2008

• #7

Re : macro sur suppression de ligne

Bonjour
il y aurait moyen d'y ajouter une condition pour autoriser la suppression par oui ou non?
merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Août 2008

• #8

Re : macro sur suppression de ligne

Re

aarf tu as raison Robert, j'avais mal interprété, je pensais qu'il voulais empêcher la suppression, il faut que je relise 2 fois, moi... Merci de ta réponse et bonne journée @+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Août 2008

• #9

Re : macro sur suppression de ligne

Bonjour le fil, bonjour le forum,

Et non Tactic car, comme l'a justement remarqué Pierrot, la suppression se fait avant le déclenchement de la macro, donc trop tard pour un message de validation oui/non. Il faudrait envisager le problème différemment mais je ne vois pas comment... Pierrot peut-être ...

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 1 Août 2008

• #10

Re : macro sur suppression de ligne

merci pour tout

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Août 2008

• #11

Re : macro sur suppression de ligne

Re, bonjour Tactic

Et non Tactic, pas plus de solution que Robert moi... Désolé...

@+

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 1 Août 2008

• #12

Re : macro sur suppression de ligne

Re
Remerci
code trop dangereux
j'oublie

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 1 Août 2008

• #13

Re : macro sur suppression de ligne

bonjour à tous

une petite idée :

metre dans un module :

Code:

Public tablo() As Variant, tablof() As Variant

mettre dans la feuille concernée :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Selection.Cells.Count mod 256 =  0 Then
        Application.EnableEvents = False
        If MsgBox("Confirmez vous la suppression", vbYesNo) = vbNo Then
            Selection.Insert
            Selection.Value = tablo
            Selection.Formula = tablof
        End If
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    tablo = Selection.EntireRow.Value
    tablof = Selection.EntireRow.Formula
End Sub

code testé

 

Pièces jointes

• sup ligne.xls

  29 KB · Affichages: 73

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 1 Août 2008

• #14

Re : macro sur suppression de ligne

Bonjour wilfried_42
sur ton fichier ça tourne
je vais essayer sur le mien
Bon app à tous
Merci

 

Vote positif 0 Vote négatif

tactic6

XLDnaute Impliqué

• 1 Août 2008

• #15

Re : macro sur suppression de ligne

Re tout le monde
Nickel
Merci

 

Vote positif 0 Vote négatif