XL 2016 Macro Excel MULTI_LIGNE

[BOILEAU]

Bonjour,
Je suis dans l'impasse ! J'ai trouvé cette macro sur ce forum. Elle marche super bien !
Mais elle ne remplie pas la totalité de ce que je souhaite...
Voici la macro actuelle :
"rivate Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8:AL8")) Is Nothing Then
Application.EnableEvents = False
Cells(9, Target.Column) = Cells(9, Target.Column) + Target
Target = ""
Application.EnableEvents = True
End If
End Sub"
je voudrais en fait que cette macro puisse aussi fonctionner pour les lignes 11 et 12; 14 et 15; 17 et 18; 20 et 21; 23 et 24; 26 et 27; etc....
Je ne peut pas connaitre le nombre de lignes que ma feuille de calcul aura en final.
Encore merci.
Frédéric

 

[ROGER2327]

Bonsoir BOILEAU.

Un essai :​

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target(1)
  If Columns("B").Column <= .Column And .Column <= Columns("AL").Column Then
  If 8 <= .Row And .Row Mod 3 = 2 Then
  Application.EnableEvents = False
  On Error Resume Next
  Cells(.Row + 1, .Column) = Cells(.Row + 1, .Column) + .Value
  .Value = ""
  Application.EnableEvents = True
  End If
  End If
  End With
End Sub

Bonne nuit.

ℝOGER2327
#8299

Lundi 2 Tatane 143 (Commémoration du Père Ebé - fête Suprême Quarte)
27 Messidor An CCXXIV, 9,6703h - ail
2016-W28-5T23:12:31Z

 

[BOILEAU]

Bonsoir BOILEAU.

Un essai :​

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target(1)
  If Columns("B").Column <= .Column And .Column <= Columns("AL").Column Then
  If 8 <= .Row And .Row Mod 3 = 2 Then
  Application.EnableEvents = False
  On Error Resume Next
  Cells(.Row + 1, .Column) = Cells(.Row + 1, .Column) + .Value
  .Value = ""
  Application.EnableEvents = True
  End If
  End If
  End With
End Sub

Bonne nuit.

ℝOGER2327
#8299

Lundi 2 Tatane 143 (Commémoration du Père Ebé - fête Suprême Quarte)
27 Messidor An CCXXIV, 9,6703h - ail
2016-W28-5T23:12:31Z

Bonjour Roger2327

C'est génial, merci beaucoup. Vous m'avez enlevé une belle épine du pied.
Maintenant que cela fonctionne, j'aimerai pouvoir le perfectionner. Si c'est possible !!!
finalement, je vais supprimer dans la mise en page de mon tableau les lignes vides séparatrices (13; 16; 19; ....).
Est-il possible de créer un bouton pour assurer le tri par ligne en fonction de la colonne A ou B ?
Merci encore pour votre aide.
Frédéric

 

[ROGER2327]

Re...

Après suppression des lignes séparatrices, il suffit de remplacer la ligne :​

  If 8 <= .Row And .Row Mod 3 = 2 Then

par celle-ci :​

  If 8 <= .Row And .Row Mod 2 = 0 Then

Quant au tri sur une plage contenant un mélange de cellules fusionnées et de cellules libres, c'est trop chiant à faire : je passe la main...
​

Bonne journée.


ℝOGER2327
#8306

Jeudi 5 Tatane 143 (Saint Arsouille, patricien - fête Suprême Quarte)
30 Messidor An CCXXIV, 5,4203h - chalémie
2016-W29-1T13:00:31Z

 

[BOILEAU]

Salut Roger,

Merci beaucoup pour la petite motif. En ce qui concerne le tri, je comprend tout à fait. Ce n'est pas grave.

Encore merci.

Frédéric