macro sur suppression de ligne

[koyot3]

Bonjour,

J'essaie de trouver une méthode pour lancer une macro dès qu'une ligne est supprimée ....
quelqu'un aurait-il une idée piour la metre en place ?
je n'arrive opas a trouver l'evenement correspondant ...

merci d'avance
johan

 

[Robert]

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...

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

 

[koyot3]

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

 

[Robert]

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....

 

[Pierrot93]

Re : macro sur suppression de ligne

Bonjour Koyot, Robert

j'avais essayé un code de ce style :

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
@+

 

[Robert]

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 ....

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

 

[tactic6]

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

 

[Pierrot93]

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 @+

 

[Robert]

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 ...

 

[tactic6]

Re : macro sur suppression de ligne

merci pour tout

 

[Pierrot93]

Re : macro sur suppression de ligne

Re, bonjour Tactic

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

@+

 

[tactic6]

Re : macro sur suppression de ligne

Re
Remerci
code trop dangereux
j'oublie

 

[wilfried_42]

Re : macro sur suppression de ligne

bonjour à tous

une petite idée :

metre dans un module :

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

mettre dans la feuille concernée :

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é

 

[tactic6]

Re : macro sur suppression de ligne

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

 

[tactic6]

Re : macro sur suppression de ligne

Re tout le monde
Nickel
Merci