Sup auto de ligne .. ca boucle !![RESOLU]

[herve62]

Bonsoir
Je fatigue !!
Il ne me reste plus qu'a supprimer UNE ligne si la précédente passe en "Hauteur" 30 au lieu de 15
Je voulais du code SIMPLE ... sauf qu'à la fin ??
ATTENTION .. l'exemple joint BOUCLE indéfiniment si l'on complète une ligne avec + de 50c. : c'est là le PB !!!!!!!!!!
Bonne soirée

 

[Papou-net]

Re : Sup auto de ligne .. ca boucle !!

Bonsoir Herve62,

A priori, to programme boucle car tu effectues des changements dans les cellules par le code.

Lorsque tu utilisés l'événement Change d'une feuille de calcul, il est toujours plus prudent de désactiver la détection d'événement en début de code, sans oublier de le rétablir en dernière ligne (EnableEvents).

Essaie comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Worksheets("feuil1")
    L = ActiveCell.Row - 1
    B = Len(.Range("a" & L))
    MsgBox B
  If Len(.Range("a" & L)) > 50 Then
 Range("A" & L & ":C" & L).Select
    Selection.RowHeight = 30
With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True
        .MergeCells = True
    End With
    MsgBox "supp ligne " & L + 1
   Rows(L + 1 & ":" & L + 1).Select
   Selection.Delete Shift:=xlUp
   Range("a" & L + 1).Select
Else
Range("A" & L & ":C" & L).Select
    Selection.RowHeight = 15
With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = False
        .MergeCells = True
    End With
 End If
 End With
Application.EnableEvents = True
End Sub

Cordialement.

 

[herve62]

Re : Sup auto de ligne .. ca boucle !!

Bonjour
merci Papounet , c'est ce que je cherchais , mais ne retrouvais pas les mots comme "Inhiber" et donc d'arriver sur ENABLE_EVENT= false que je connaissais ( je m'appelle pas Aloïs .. mais parfois la mémoire c'est dur !!!!)
Bon dimanche

 

[herve62]

Re : Sup auto de ligne .. ca boucle !!

J'ai testé OK , donc RESOLU