Salut
Salut Ergotamine,
non, non, on ne laisse pas VBA sur le côté! Non, mais...
Sans compter tous ces petits conforts que les formules ne procurent pas!
- même écrits en minuscule, les noms des joueurs reçoivent leur majuscule ;
- si un participant doit être effacé de la liste, la liste remonte pour boucher le trou avec mise à jour du calcul ;
A côté de cela, j'ai traficoté les formules pour limiter leur affichage au nombre de joueurs.
Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim iTRow%
'
If Selection.Count > 1 Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
'
If Not Intersect(Target, Range("B4:B33")) Is Nothing Then
iTRow = Target.Row
Target = WorksheetFunction.Proper(Target)
If Target = "" Then
Range("B" & iTRow & ":H33").Value = Range("B" & iTRow + 1 & ":H34").Value
Call Calcul
End If
End If
'
If Not Intersect(Target, Range("D4:H33")) Is Nothing Then Call Calcul
'
Application.ScreenUpdating = True
Application.EnableEvents = True
'
End Sub
Public Sub Calcul()
'
Range("N4:O33").Value = Range("B4:B33").Value
Range("O4:O33").Value = Range("J4:J33").Value
If Range("N5").Value <> "" Then Range("N4:O" & Range("N" & Rows.Count).End(xlUp).Row).Sort key1:=Range("O4"), order1:=xlDescending, Orientation:=xlTopToBottom
'
End Sub
A+