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