Discussion :

[MP5078]

Bonjour à tous ; je cherche à calculer le dernier numéro d'une colonne qui apparaît une fois sur 2 et ceci pour 2 catégories de numéros ; explication détaillé dans l'exemple joint à l'aide de couleurs ; merci d'avance.

[gFZT82]

Bonjour,

Une solution en utilisant l'évènement Worksheet.change

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Not Application.Intersect(Target, [C3:C52]) Is Nothing Then
        Application.EnableEvents = False
        Cells(41, 5 + (52 - [C2].End(xlDown).Row) Mod 2) = [C2].End(xlDown).Value
        Application.EnableEvents = True
    End If
End Sub

Cordialement.

[MP5078]

Merci ; cela fonctionne parfaitement ; bonne journée