anthoYS
XLDnaute Barbatruc
Bonjour,
Dans mon fichier, plusieurs onglets, 1 avec le résultat existant, le second qui dit ce qui est souhaité, un troisième avec le tableau des mises en fonction des doubles et/ou triples cochés.
On retrouve des doubles en C2, C3 et C7. Le but est d'améliorer les codes existants afin qu'il prenne en compte les multiples.
voir fichier ce sera plus simple
en un second temps, améliorer les MEFC pour qu'elles soient valides en cas de double et/ou de triples.
pas évident mais je pense faisable.
les pronostics ainsi que les résultats sont simulés, il s'agit de hasard total (bien que ça puisse tomber !).
Merci par avance
à+
Dans mon fichier, plusieurs onglets, 1 avec le résultat existant, le second qui dit ce qui est souhaité, un troisième avec le tableau des mises en fonction des doubles et/ou triples cochés.
On retrouve des doubles en C2, C3 et C7. Le but est d'améliorer les codes existants afin qu'il prenne en compte les multiples.
Code:
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo erreurStop
If Target.Row > 33 Then Exit Sub
If Target.Column > 35 Then Exit Sub
Select Case Target.Value
Case Is = 1
Target.HorizontalAlignment = xlLeft
Case Is = "N"
Target.HorizontalAlignment = xlCenter
Case Is = 2
Target.HorizontalAlignment = xlRight
End Select
erreurStop:
End Sub
_____________________________________________________
Sub MàJ()
On Error GoTo erreurStop
For Lig = 2 To 33
For Col = 3 To 35
Select Case Cells(Lig, Col).Value
Case Is = 1
With Cells(Lig, Col)
.HorizontalAlignment = xlLeft
.Interior.ColorIndex = 4
End With
Case Is = "N"
With Cells(Lig, Col)
.HorizontalAlignment = xlCenter
.Interior.ColorIndex = 6
End With
Case Is = 2
With Cells(Lig, Col)
.HorizontalAlignment = xlRight
.Interior.ColorIndex = 3
End With
End Select
voir fichier ce sera plus simple
en un second temps, améliorer les MEFC pour qu'elles soient valides en cas de double et/ou de triples.
pas évident mais je pense faisable.
les pronostics ainsi que les résultats sont simulés, il s'agit de hasard total (bien que ça puisse tomber !).
Merci par avance
à+