Procédure trop grande

[Domi]

Bonjour,
Je suis en train de développer une application de gestion d'un tournoi basé sur 128 joueurs.

Le principe est qu'à chaque fois que l'on coche la case en face du joueur vainqueur, son nom est systématiquement reporté au tour suivant et ainsi de suite jusqu'en finale.

Le souci est que j'obtiens le message d'erreur 'Erreur de compilation : Procédure trop grande'

Pourriez vous jetez un oeil sur mon code svp ?

------------------
Merci d'avance

 

[Domi]

Voici le code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range('C2')) Is Nothing Then
Range('C2') = 3
Range('C3') = Empty
Range('F3') = Range('B2')
ElseIf Not Intersect(Target, Range('C3')) Is Nothing Then
Range('C3') = 3
Range('C2') = Empty
Range('F3') = Range('B3')
End If
If Not Intersect(Target, Range('C4')) Is Nothing Then
Range('C4') = 3
Range('C5') = Empty
Range('F4') = Range('B4')
ElseIf Not Intersect(Target, Range('C5')) Is Nothing Then
Range('C5') = 3
Range('C4') = Empty
Range('F4') = Range('B5')
End If
If Not Intersect(Target, Range('C6')) Is Nothing Then
Range('C6') = 3
Range('C7') = Empty
Range('F7') = Range('B6')
ElseIf Not Intersect(Target, Range('C7')) Is Nothing Then
Range('C7') = 3
Range('C6') = Empty
Range('F7') = Range('B7')
End If
If Not Intersect(Target, Range('C8')) Is Nothing Then
Range('C8') = 3
Range('C9') = Empty
Range('F8') = Range('B8')
ElseIf Not Intersect(Target, Range('C9')) Is Nothing Then
Range('C9') = 3
Range('C8') = Empty
Range('F8') = Range('B9')
End If
If Not Intersect(Target, Range('C10')) Is Nothing Then
Range('C10') = 3
Range('C11') = Empty
Range('F11') = Range('B10')
ElseIf Not Intersect(Target, Range('C11')) Is Nothing Then
Range('C11') = 3
Range('C10') = Empty
Range('F11') = Range('B11')
End If
If Not Intersect(Target, Range('C12')) Is Nothing Then
Range('C12') = 3
Range('C13') = Empty
Range('F12') = Range('B12')
ElseIf Not Intersect(Target, Range('C13')) Is Nothing Then
Range('C13') = 3
Range('C12') = Empty
Range('F12') = Range('B13')
End If
If Not Intersect(Target, Range('C14')) Is Nothing Then
Range('C14') = 3
Range('C15') = Empty
Range('F15') = Range('B14')
ElseIf Not Intersect(Target, Range('C15')) Is Nothing Then
Range('C15') = 3
Range('C14') = Empty
Range('F15') = Range('B15')
End If
If Not Intersect(Target, Range('C16')) Is Nothing Then
Range('C16') = 3
Range('C17') = Empty
Range('F16') = Range('B16')
ElseIf Not Intersect(Target, Range('C17')) Is Nothing Then
Range('C17') = 3
Range('C16') = Empty
Range('F16') = Range('B17')
End If
If Not Intersect(Target, Range('C18')) Is Nothing Then
Range('C18') = 3
Range('C19') = Empty
Range('F19') = Range('B18')
ElseIf Not Intersect(Target, Range('C19')) Is Nothing Then
Range('C19') = 3
Range('C18') = Empty
Range('F19') = Range('B19')
End If
If Not Intersect(Target, Range('C20')) Is Nothing Then
Range('C20') = 3
Range('C21') = Empty
Range('F20') = Range('B20')
ElseIf Not Intersect(Target, Range('C21')) Is Nothing Then
Range('C21') = 3
Range('C20') = Empty
Range('F20') = Range('B21')
End If
If Not Intersect(Target, Range('C22')) Is Nothing Then
Range('C22') = 3
Range('C23') = Empty
Range('F23') = Range('B22')
ElseIf Not Intersect(Target, Range('C23')) Is Nothing Then
Range('C23') = 3
Range('C22') = Empty
Range('F23') = Range('B23')
End If
If Not Intersect(Target, Range('C24')) Is Nothing Then
Range('C24') = 3
Range('C25') = Empty
Range('F24') = Range('B24')
ElseIf Not Intersect(Target, Range('C25')) Is Nothing Then
Range('C25') = 3
Range('C24') = Empty
Range('F24') = Range('B25')
End If
If Not Intersect(Target, Range('C26')) Is Nothing Then
Range('C26') = 3
Range('C27') = Empty
Range('F27') = Range('B26')
ElseIf Not Intersect(Target, Range('C27')) Is Nothing Then
Range('C27') = 3
Range('C26') = Empty
Range('F27') = Range('B27')
End If
If Not Intersect(Target, Range('C28')) Is Nothing Then
Range('C28') = 3
Range('C29') = Empty
Range('F28') = Range('B28')
ElseIf Not Intersect(Target, Range('C29')) Is Nothing Then
Range('C29') = 3
Range('C28') = Empty
Range('F28') = Range('B29')
End If
If Not Intersect(Target, Range('C30')) Is Nothing Then
Range('C30') = 3
Range('C31') = Empty
Range('F31') = Range('B30')
ElseIf Not Intersect(Target, Range('C31')) Is Nothing Then
Range('C31') = 3
Range('C30') = Empty
Range('F31') = Range('B31')
End If
If Not Intersect(Target, Range('C32')) Is Nothing Then
Range('C32') = 3
Range('C33') = Empty
Range('F32') = Range('B32')
ElseIf Not Intersect(Target, Range('C33')) Is Nothing Then
Range('C33') = 3
Range('C32') = Empty
Range('F32') = Range('B33')
End If
If Not Intersect(Target, Range('C41')) Is Nothing Then
Range('C41') = 3
Range('C42') = Empty
Range('F42') = Range('B41')
ElseIf Not Intersect(Target, Range('C42')) Is Nothing Then
Range('C42') = 3
Range('C41') = Empty
Range('F42') = Range('B42')
End If
If Not Intersect(Target, Range('C43')) Is Nothing Then
Range('C43') = 3
Range('C44') = Empty
Range('F43') = Range('B43')
ElseIf Not Intersect(Target, Range('C44')) Is Nothing Then
Range('C44') = 3
Range('C43') = Empty
Range('F43') = Range('B44')
End If
If Not Intersect(Target, Range('C45')) Is Nothing Then
Range('C45') = 3
Range('C46') = Empty
Range('F46') = Range('B45')
ElseIf Not Intersect(Target, Range('C46')) Is Nothing Then
Range('C46') = 3
Range('C45') = Empty
Range('F46') = Range('B46')
End If
If Not Intersect(Target, Range('C47')) Is Nothing Then
Range('C47') = 3
Range('C48') = Empty
Range('F47') = Range('B47')
ElseIf Not Intersect(Target, Range('C48')) Is Nothing Then
Range('C48') = 3
Range('C47') = Empty
Range('F47') = Range('B48')
End If
If Not Intersect(Target, Range('C49')) Is Nothing Then
Range('C49') = 3
Range('C50') = Empty
Range('F50') = Range('B49')
ElseIf Not Intersect(Target, Range('C50')) Is Nothing Then
Range('C50') = 3
Range('C49') = Empty
Range('F50') = Range('B50')
End If
If Not Intersect(Target, Range('C51')) Is Nothing Then
Range('C51') = 3
Range('C52') = Empty
Range('F51') = Range('B51')
ElseIf Not Intersect(Target, Range('C52')) Is Nothing Then
Range('C52') = 3
Range('C51') = Empty
Range('F51') = Range('B52')
End If
If Not Intersect(Target, Range('C53')) Is Nothing Then
Range('C53') = 3
Range('C54') = Empty
Range('F54') = Range('B53')
ElseIf Not Intersect(Target, Range('C54')) Is Nothing Then
Range('C54') = 3
Range('C53') = Empty
Range('F54') = Range('B54')
End If
If Not Intersect(Target, Range('C55')) Is Nothing Then
Range('C55') = 3
Range('C56') = Empty
Range('F55') = Range('B55')
ElseIf Not Intersect(Target, Range('C56')) Is Nothing Then
Range('C56') = 3
Range('C55') = Empty
Range('F55') = Range('B56')
End If
If Not Intersect(Target, Range('C57')) Is Nothing Then
Range('C57') = 3
Range('C58') = Empty
Range('F58') = Range('B57')
ElseIf Not Intersect(Target, Range('C58')) Is Nothing Then
Range('C58') = 3
Range('C57') = Empty
Range('F58') = Range('B58')
End If
If Not Intersect(Target, Range('C59')) Is Nothing Then
Range('C59') = 3
Range('C60') = Empty
Range('F59') = Range('B59')
ElseIf Not Intersect(Target, Range('C60')) Is Nothing Then
Range('C60') = 3
Range('C59') = Empty
Range('F59') = Range('B60')
End If
If Not Intersect(Target, Range('C61')) Is Nothing Then
Range('C61') = 3
Range('C62') = Empty
Range('F62') = Range('B61')
ElseIf Not Intersect(Target, Range('C62')) Is Nothing Then
Range('C62') = 3
Range('C61') = Empty
Range('F62') = Range('B62')
End If
If Not Intersect(Target, Range('C63')) Is Nothing Then
Range('C63') = 3
Range('C64') = Empty
Range('F63') = Range('B63')
ElseIf Not Intersect(Target, Range('C64')) Is Nothing Then
Range('C64') = 3
Range('C63') = Empty
Range('F63') = Range('B64')
End If
If Not Intersect(Target, Range('C65')) Is Nothing Then
Range('C65') = 3
Range('C66') = Empty
Range('F66') = Range('B65')
ElseIf Not Intersect(Target, Range('C66')) Is Nothing Then
Range('C66') = 3
Range('C65') = Empty
Range('F66') = Range('B66')
End If
If Not Intersect(Target, Range('C67')) Is Nothing Then
Range('C67') = 3
Range('C68') = Empty
Range('F67') = Range('B67')
ElseIf Not Intersect(Target, Range('C68')) Is Nothing Then
Range('C68') = 3
Range('C67') = Empty
Range('F67') = Range('B68')
End If
If Not Intersect(Target, Range('C69')) Is Nothing Then
Range('C69') = 3
Range('C70') = Empty
Range('F70') = Range('B69')
ElseIf Not Intersect(Target, Range('C70')) Is Nothing Then
Range('C70') = 3
Range('C69') = Empty
Range('F70') = Range('B70')
End If
If Not Intersect(Target, Range('C71')) Is Nothing Then
Range('C71') = 3
Range('C72') = Empty
Range('F71') = Range('B71')
ElseIf Not Intersect(Target, Range('C72')) Is Nothing Then
Range('C72') = 3
Range('C71') = Empty
Range('F71') = Range('B72')
End If
If Not Intersect(Target, Range('C80')) Is Nothing Then
Range('C80') = 3
Range('C81') = Empty
Range('F81') = Range('B80')
ElseIf Not Intersect(Target, Range('C81')) Is Nothing Then
Range('C81') = 3
Range('C80') = Empty
Range('F81') = Range('B81')
End If
If Not Intersect(Target, Range('C82')) Is Nothing Then
Range('C82') = 3
Range('C83') = Empty
Range('F82') = Range('B82')
ElseIf Not Intersect(Target, Range('C83')) Is Nothing Then
Range('C83') = 3
Range('C82') = Empty
Range('F82') = Range('B83')
End If
If Not Intersect(Target, Range('C84')) Is Nothing Then
Range('C84') = 3
Range('C85') = Empty
Range('F85') = Range('B84')
ElseIf Not Intersect(Target, Range('C85')) Is Nothing Then
Range('C85') = 3
Range('C84') = Empty
Range('F85') = Range('B85')
End If
If Not Intersect(Target, Range('C86')) Is Nothing Then
Range('C86') = 3
Range('C87') = Empty
Range('F86') = Range('B86')
ElseIf Not Intersect(Target, Range('C87')) Is Nothing Then
Range('C87') = 3
Range('C86') = Empty
Range('F86') = Range('B87')
End If
If Not Intersect(Target, Range('C88')) Is Nothing Then
Range('C88') = 3
Range('C89') = Empty
Range('F89') = Range('B88')
ElseIf Not Intersect(Target, Range('C89')) Is Nothing Then
Range('C89') = 3
Range('C88') = Empty
Range('F89') = Range('B89')
End If
If Not Intersect(Target, Range('C90')) Is Nothing Then
Range('C90') = 3
Range('C91') = Empty
Range('F90') = Range('B90')
ElseIf Not Intersect(Target, Range('C91')) Is Nothing Then
Range('C91') = 3
Range('C90') = Empty
Range('F90') = Range('B91')
End If
If Not Intersect(Target, Range('C92')) Is Nothing Then
Range('C92') = 3
Range('C93') = Empty
Range('F93') = Range('B92')
ElseIf Not Intersect(Target, Range('C93')) Is Nothing Then
Range('C93') = 3
Range('C92') = Empty
Range('F93') = Range('B93')
End If
If Not Intersect(Target, Range('C94')) Is Nothing Then
Range('C94') = 3
Range('C95') = Empty
Range('F94') = Range('B94')
ElseIf Not Intersect(Target, Range('C95')) Is Nothing Then
Range('C95') = 3
Range('C94') = Empty
Range('F94') = Range('B95')
End If
If Not Intersect(Target, Range('C96')) Is Nothing Then
Range('C96') = 3
Range('C97') = Empty
Range('F97') = Range('B96')
ElseIf Not Intersect(Target, Range('C97')) Is Nothing Then
Range('C97') = 3
Range('C96') = Empty
Range('F97') = Range('B97')
End If
If Not Intersect(Target, Range('C98')) Is Nothing Then
Range('C98') = 3
Range('C99') = Empty
Range('F98') = Range('B98')
ElseIf Not Intersect(Target, Range('C99')) Is Nothing Then
Range('C99') = 3
Range('C98') = Empty
Range('F98') = Range('B99')
End If
If Not Intersect(Target, Range('C100')) Is Nothing Then
Range('C100') = 3
Range('C101') = Empty
Range('F101') = Range('B100')
ElseIf Not Intersect(Target, Range('C101')) Is Nothing Then
Range('C101') = 3
Range('C100') = Empty
Range('F101') = Range('B101')
End If
If Not Intersect(Target, Range('C102')) Is Nothing Then
Range('C102') = 3
Range('C103') = Empty
Range('F102') = Range('B102')
ElseIf Not Intersect(Target, Range('C103')) Is Nothing Then
Range('C103') = 3
Range('C102') = Empty
Range('F102') = Range('B103')
End If
If Not Intersect(Target, Range('C104')) Is Nothing Then
Range('C104') = 3
Range('C105') = Empty
Range('F105') = Range('B104')
ElseIf Not Intersect(Target, Range('C105')) Is Nothing Then
Range('C105') = 3
Range('C104') = Empty
Range('F105') = Range('B105')
End If
If Not Intersect(Target, Range('C106')) Is Nothing Then
Range('C106') = 3
Range('C107') = Empty
Range('F106') = Range('B106')
ElseIf Not Intersect(Target, Range('C107')) Is Nothing Then
Range('C107') = 3
Range('C106') = Empty
Range('F106') = Range('B107')
End If
If Not Intersect(Target, Range('C108')) Is Nothing Then
Range('C108') = 3
Range('C109') = Empty
Range('F109') = Range('B108')
ElseIf Not Intersect(Target, Range('C109')) Is Nothing Then
Range('C109') = 3
Range('C108') = Empty
Range('F109') = Range('B109')
End If
If Not Intersect(Target, Range('C110')) Is Nothing Then
Range('C110') = 3
Range('C111') = Empty
Range('F110') = Range('B110')
ElseIf Not Intersect(Target, Range('C111')) Is Nothing Then
Range('C111') = 3
Range('C110') = Empty
Range('F110') = Range('B111')
End If
If Not Intersect(Target, Range('C119')) Is Nothing Then
Range('C119') = 3
Range('C120') = Empty
Range('F120') = Range('B119')
ElseIf Not Intersect(Target, Range('C120')) Is Nothing Then
Range('C120') = 3
Range('C119') = Empty
Range('F120') = Range('B120')
End If
If Not Intersect(Target, Range('C121')) Is Nothing Then
Range('C121') = 3
Range('C122') = Empty
Range('F121') = Range('B121')
ElseIf Not Intersect(Target, Range('C122')) Is Nothing Then
Range('C122') = 3
Range('C121') = Empty
Range('F121') = Range('B122')
End If
If Not Intersect(Target, Range('C123')) Is Nothing Then
Range('C123') = 3
Range('C124') = Empty
Range('F124') = Range('B123')
ElseIf Not Intersect(Target, Range('C124')) Is Nothing Then
Range('C124') = 3
Range('C123') = Empty
Range('F124') = Range('B124')
End If
If Not Intersect(Target, Range('C125')) Is Nothing Then
Range('C125') = 3
Range('C126') = Empty
Range('F125') = Range('B125')
ElseIf Not Intersect(Target, Range('C126')) Is Nothing Then
Range('C126') = 3
Range('C125') = Empty
Range('F125') = Range('B126')
End If
If Not Intersect(Target, Range('C127')) Is Nothing Then
Range('C127') = 3
Range('C128') = Empty
Range('F128') = Range('B127')
ElseIf Not Intersect(Target, Range('C128')) Is Nothing Then
Range('C128') = 3
Range('C127') = Empty
Range('F128') = Range('B128')
End If
If Not Intersect(Target, Range('C129')) Is Nothing Then
Range('C129') = 3
Range('C130') = Empty
Range('F129') = Range('B129')
ElseIf Not Intersect(Target, Range('C130')) Is Nothing Then
Range('C130') = 3
Range('C129') = Empty
Range('F129') = Range('B130')
End If
If Not Intersect(Target, Range('C131')) Is Nothing Then
Range('C131') = 3
Range('C132') = Empty
Range('F132') = Range('B131')
ElseIf Not Intersect(Target, Range('C132')) Is Nothing Then
Range('C132') = 3
Range('C131') = Empty
Range('F132') = Range('B132')
End If
If Not Intersect(Target, Range('C133')) Is Nothing Then
Range('C133') = 3
Range('C134') = Empty
Range('F133') = Range('B133')
ElseIf Not Intersect(Target, Range('C134')) Is Nothing Then
Range('C134') = 3
Range('C133') = Empty
Range('F133') = Range('B134')
End If
If Not Intersect(Target, Range('C135')) Is Nothing Then
Range('C135') = 3
Range('C136') = Empty
Range('F136') = Range('B135')
ElseIf Not Intersect(Target, Range('C136')) Is Nothing Then
Range('C136') = 3
Range('C135') = Empty
Range('F136') = Range('B136')
End If
If Not Intersect(Target, Range('C137')) Is Nothing Then
Range('C137') = 3
Range('C138') = Empty
Range('F137') = Range('B137')
ElseIf Not Intersect(Target, Range('C138')) Is Nothing Then
Range('C138') = 3
Range('C137') = Empty
Range('F137') = Range('B138')
End If
If Not Intersect(Target, Range('C139')) Is Nothing Then
Range('C139') = 3
Range('C140') = Empty
Range('F140') = Range('B139')
ElseIf Not Intersect(Target, Range('C140')) Is Nothing Then
Range('C140') = 3
Range('C139') = Empty
Range('F140') = Range('B140')
End If
If Not Intersect(Target, Range('C141')) Is Nothing Then
Range('C141') = 3
Range('C142') = Empty
Range('F141') = Range('B141')
ElseIf Not Intersect(Target, Range('C142')) Is Nothing Then
Range('C142') = 3
Range('C141') = Empty
Range('F141') = Range('B142')
End If
If Not Intersect(Target, Range('C143')) Is Nothing Then
Range('C143') = 3
Range('C144') = Empty
Range('F144') = Range('B143')
ElseIf Not Intersect(Target, Range('C144')) Is Nothing Then
Range('C144') = 3
Range('C143') = Empty
Range('F144') = Range('B144')
End If
If Not Intersect(Target, Range('C145')) Is Nothing Then
Range('C145') = 3
Range('C146') = Empty
Range('F145') = Range('B145')
ElseIf Not Intersect(Target, Range('C146')) Is Nothing Then
Range('C146') = 3
Range('C145') = Empty
Range('F145') = Range('B146')
End If
If Not Intersect(Target, Range('C147')) Is Nothing Then
Range('C147') = 3
Range('C148') = Empty
Range('F148') = Range('B147')
ElseIf Not Intersect(Target, Range('C148')) Is Nothing Then
Range('C148') = 3
Range('C147') = Empty
Range('F148') = Range('B148')
End If
If Not Intersect(Target, Range('C149')) Is Nothing Then
Range('C149') = 3
Range('C150') = Empty
Range('F149') = Range('B149')
ElseIf Not Intersect(Target, Range('C150')) Is Nothing Then
Range('C150') = 3
Range('C149') = Empty
Range('F149') = Range('B150')
End If

If Not Intersect(Target, Range('G3')) Is Nothing Then
Range('G3') = 3
Range('G4') = Empty
Range('J4') = Range('F3')
ElseIf Not Intersect(Target, Range('G4')) Is Nothing Then
Range('G4') = 3
Range('G3') = Empty
Range('J4') = Range('F4')
End If
If Not Intersect(Target, Range('G7')) Is Nothing Then
Range('G7') = 3
Range('G8') = Empty
Range('J6') = Range('F7')
ElseIf Not Intersect(Target, Range('G8')) Is Nothing Then
Range('G8') = 3
Range('G7') = Empty
Range('J6') = Range('F8')
End If
If Not Intersect(Target, Range('G11')) Is Nothing Then
Range('G11') = 3
Range('G12') = Empty
Range('J12') = Range('F11')
ElseIf Not Intersect(Target, Range('G12')) Is Nothing Then
Range('G12') = 3
Range('G11') = Empty
Range('J12') = Range('F12')
End If
If Not Intersect(Target, Range('G15')) Is Nothing Then
Range('G15') = 3
Range('G16') = Empty
Range('J14') = Range('F15')
ElseIf Not Intersect(Target, Range('G16')) Is Nothing Then
Range('G16') = 3
Range('G15') = Empty
Range('J14') = Range('F16')
End If
If Not Intersect(Target, Range('G19')) Is Nothing Then
Range('G19') = 3
Range('G20') = Empty
Range('J20') = Range('F19')
ElseIf Not Intersect(Target, Range('G20')) Is Nothing Then
Range('G20') = 3
Range('G19') = Empty
Range('J20') = Range('F20')
End If
If Not Intersect(Target, Range('G23')) Is Nothing Then
Range('G23') = 3
Range('G24') = Empty
Range('J22') = Range('F23')
ElseIf Not Intersect(Target, Range('G24')) Is Nothing Then
Range('G24') = 3
Range('G23') = Empty
Range('J22') = Range('F24')
End If
If Not Intersect(Target, Range('G27')) Is Nothing Then
Range('G27') = 3
Range('G28') = Empty
Range('J28') = Range('F27')
ElseIf Not Intersect(Target, Range('G28')) Is Nothing Then
Range('G28') = 3
Range('G27') = Empty
Range('J28') = Range('F28')
End If
If Not Intersect(Target, Range('G31')) Is Nothing Then
Range('G31') = 3
Range('G32') = Empty
Range('J30') = Range('F31')
ElseIf Not Intersect(Target, Range('G32')) Is Nothing Then
Range('G32') = 3
Range('G31') = Empty
Range('J30') = Range('F32')
End If
If Not Intersect(Target, Range('G42')) Is Nothing Then
Range('G42') = 3
Range('G43') = Empty
Range('J43') = Range('F42')
ElseIf Not Intersect(Target, Range('G43')) Is Nothing Then
Range('G43') = 3
Range('G42') = Empty
Range('J43') = Range('F43')
End If
If Not Intersect(Target, Range('G46')) Is Nothing Then
Range('G46') = 3
Range('G47') = Empty
Range('J45') = Range('F46')
ElseIf Not Intersect(Target, Range('G47')) Is Nothing Then
Range('G47') = 3
Range('G46') = Empty
Range('J45') = Range('F47')
End If
If Not Intersect(Target, Range('G50')) Is Nothing Then
Range('G50') = 3
Range('G51') = Empty
Range('J51') = Range('F50')
ElseIf Not Intersect(Target, Range('G51')) Is Nothing Then
Range('G51') = 3
Range('G50') = Empty
Range('J51') = Range('F51')
End If
If Not Intersect(Target, Range('G54')) Is Nothing Then
Range('G54') = 3
Range('G55') = Empty
Range('J53') = Range('F54')
ElseIf Not Intersect(Target, Range('G55')) Is Nothing Then
Range('G55') = 3
Range('G54') = Empty
Range('J53') = Range('F55')
End If
If Not Intersect(Target, Range('G58')) Is Nothing Then
Range('G58') = 3
Range('G59') = Empty
Range('J59') = Range('F58')
ElseIf Not Intersect(Target, Range('G59')) Is Nothing Then
Range('G59') = 3
Range('G58') = Empty
Range('J59') = Range('F59')
End If
If Not Intersect(Target, Range('G62')) Is Nothing Then
Range('G62') = 3
Range('G63') = Empty
Range('J61') = Range('F62')
ElseIf Not Intersect(Target, Range('G63')) Is Nothing Then
Range('G63') = 3
Range('G62') = Empty
Range('J61') = Range('F63')
End If
If Not Intersect(Target, Range('G66')) Is Nothing Then
Range('G66') = 3
Range('G67') = Empty
Range('J67') = Range('F66')
ElseIf Not Intersect(Target, Range('G67')) Is Nothing Then
Range('G67') = 3
Range('G66') = Empty
Range('J67') = Range('F67')
End If
If Not Intersect(Target, Range('G70')) Is Nothing Then
Range('G70') = 3
Range('G71') = Empty
Range('J69') = Range('F70')
ElseIf Not Intersect(Target, Range('G71')) Is Nothing Then
Range('G71') = 3
Range('G70') = Empty
Range('J69') = Range('F71')
End If
If Not Intersect(Target, Range('G81')) Is Nothing Then
Range('G81') = 3
Range('G82') = Empty
Range('J82') = Range('F81')
ElseIf Not Intersect(Target, Range('G82')) Is Nothing Then
Range('G82') = 3
Range('G81') = Empty
Range('J82') = Range('F82')
End If
If Not Intersect(Target, Range('G85')) Is Nothing Then
Range('G85') = 3
Range('G86') = Empty
Range('J84') = Range('F85')
ElseIf Not Intersect(Target, Range('G86')) Is Nothing Then
Range('G86') = 3
Range('G85') = Empty
Range('J84') = Range('F86')
End If
If Not Intersect(Target, Range('G89')) Is Nothing Then
Range('G89') = 3
Range('G90') = Empty
Range('J90') = Range('F89')
ElseIf Not Intersect(Target, Range('G90')) Is Nothing Then
Range('G90') = 3
Range('G893') = Empty
Range('J90') = Range('F90')
End If
If Not Intersect(Target, Range('G93')) Is Nothing Then
Range('G93') = 3
Range('G94') = Empty
Range('J92') = Range('F93')
ElseIf Not Intersect(Target, Range('G94')) Is Nothing Then
Range('G94') = 3
Range('G93') = Empty
Range('J92') = Range('F94')
End If
If Not Intersect(Target, Range('G97')) Is Nothing Then
Range('G97') = 3
Range('G98') = Empty
Range('J98') = Range('F97')
ElseIf Not Intersect(Target, Range('G98')) Is Nothing Then
Range('G98') = 3
Range('G97') = Empty
Range('J98') = Range('F98')
End If
If Not Intersect(Target, Range('G101')) Is Nothing Then
Range('G101') = 3
Range('G102') = Empty
Range('J100') = Range('F101')
ElseIf Not Intersect(Target, Range('G102')) Is Nothing Then
Range('G102') = 3
Range('G101') = Empty
Range('J100') = Range('F102')
End If
If Not Intersect(Target, Range('G105')) Is Nothing Then
Range('G105') = 3
Range('G106') = Empty
Range('J106') = Range('F105')
ElseIf Not Intersect(Target, Range('G106')) Is Nothing Then
Range('G106') = 3
Range('G105') = Empty
Range('J106') = Range('F106')
End If
If Not Intersect(Target, Range('G109')) Is Nothing Then
Range('G109') = 3
Range('G110') = Empty
Range('J108') = Range('F109')
ElseIf Not Intersect(Target, Range('G110')) Is Nothing Then
Range('G110') = 3
Range('G109') = Empty
Range('J108') = Range('F110')
End If
If Not Intersect(Target, Range('G120')) Is Nothing Then
Range('G120') = 3
Range('G121') = Empty
Range('J121') = Range('F120')
ElseIf Not Intersect(Target, Range('G121')) Is Nothing Then
Range('G121') = 3
Range('G120') = Empty
Range('J121') = Range('F121')
End If
If Not Intersect(Target, Range('G124')) Is Nothing Then
Range('G124') = 3
Range('G125') = Empty
Range('J123') = Range('F124')
ElseIf Not Intersect(Target, Range('G125')) Is Nothing Then
Range('G125') = 3
Range('G124') = Empty
Range('J123') = Range('F125')
End If
If Not Intersect(Target, Range('G128')) Is Nothing Then
Range('G128') = 3
Range('G129') = Empty
Range('J129') = Range('F128')
ElseIf Not Intersect(Target, Range('G129')) Is Nothing Then
Range('G129') = 3
Range('G128') = Empty
Range('J129') = Range('F129')
End If
If Not Intersect(Target, Range('G132')) Is Nothing Then
Range('G132') = 3
Range('G133') = Empty
Range('J131') = Range('F132')
ElseIf Not Intersect(Target, Range('G133')) Is Nothing Then
Range('G133') = 3
Range('G132') = Empty
Range('J131') = Range('F133')
End If
If Not Intersect(Target, Range('G136')) Is Nothing Then
Range('G136') = 3
Range('G137') = Empty
Range('J137') = Range('F136')
ElseIf Not Intersect(Target, Range('G137')) Is Nothing Then
Range('G137') = 3
Range('G136') = Empty
Range('J137') = Range('F137')
End If
If Not Intersect(Target, Range('G140')) Is Nothing Then
Range('G140') = 3
Range('G141') = Empty
Range('J139') = Range('F140')
ElseIf Not Intersect(Target, Range('G141')) Is Nothing Then
Range('G141') = 3
Range('G140') = Empty
Range('J139') = Range('F141')
End If
If Not Intersect(Target, Range('G144')) Is Nothing Then
Range('G144') = 3
Range('G145') = Empty
Range('J145') = Range('F144')
ElseIf Not Intersect(Target, Range('G145')) Is Nothing Then
Range('G145') = 3
Range('G144') = Empty
Range('J145') = Range('F145')
End If
If Not Intersect(Target, Range('G148')) Is Nothing Then
Range('G148') = 3
Range('G149') = Empty
Range('J147') = Range('F148')
ElseIf Not Intersect(Target, Range('G149')) Is Nothing Then
Range('G149') = 3
Range('G148') = Empty
Range('J147') = Range('F149')
End If

If Not Intersect(Target, Range('K4')) Is Nothing Then
Range('K4') = 3
Range('K6') = Empty
Range('N8') = Range('J4')
Range('B158') = Range('J4')
ElseIf Not Intersect(Target, Range('K6')) Is Nothing Then
Range('K6') = 3
Range('K4') = Empty
Range('N8') = Range('J6')
Range('B158') = Range('J6')
End If
If Not Intersect(Target, Range('K12')) Is Nothing Then
Range('K12') = 3
Range('K14') = Empty
Range('N10') = Range('J12')
Range('B159') = Range('J12')
ElseIf Not Intersect(Target, Range('K14')) Is Nothing Then
Range('K14') = 3
Range('K12') = Empty
Range('N10') = Range('J14')
Range('B159') = Range('J14')
End If
If Not Intersect(Target, Range('K20')) Is Nothing Then
Range('K20') = 3
Range('K22') = Empty
Range('N24') = Range('J20')
Range('B162') = Range('J20')
ElseIf Not Intersect(Target, Range('K22')) Is Nothing Then
Range('K22') = 3
Range('K20') = Empty
Range('N24') = Range('J22')
Range('B162') = Range('J22')
End If
If Not Intersect(Target, Range('K28')) Is Nothing Then
Range('K28') = 3
Range('K30') = Empty
Range('N26') = Range('J28')
Range('B163') = Range('J28')
ElseIf Not Intersect(Target, Range('K30')) Is Nothing Then
Range('K30') = 3
Range('K28') = Empty
Range('N26') = Range('J30')
Range('B163') = Range('J30')
End If
If Not Intersect(Target, Range('K43')) Is Nothing Then
Range('K43') = 3
Range('K45') = Empty
Range('N47') = Range('J59')
Range('B166') = Range('J59')
ElseIf Not Intersect(Target, Range('K45')) Is Nothing Then
Range('K45') = 3
Range('K43') = Empty
Range('N47') = Range('J61')
Range('B166') = Range('J61')
End If
If Not Intersect(Target, Range('K12')) Is Nothing Then
Range('K12') = 3
Range('K14') = Empty
Range('N49') = Range('J12')
Range('B167') = Range('J12')
ElseIf Not Intersect(Target, Range('K14')) Is Nothing Then
Range('K14') = 3
Range('K12') = Empty
Range('N49') = Range('J14')
Range('B167') = Range('J14')
End If

End Sub

 

[jp14]

Bonjour

En utilisant cells(ligne,colonne) on peut facilement simplifier le programme
par exemple
If Not Intersect(Target, Range('C2')) Is Nothing Then
Range('C2') = 3
Range('C3') = Empty
Range('F3') = Range('B2')


li=2
co=3
appel macro1
la sous routine peut être
macro1()
cells(li,co)=3
' même colonne ligne suivante
cells(li+1,co)=empty
' deux colonnes après une colonne en moins
cells(li+1,co+2)=cells(li,co-1)
end sub

Bon courage

 

[Robert]

Bonjour Domi, JP, bonjour le forum,

pour toute la partie ce C2 à C150 je te propose cette macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range('C2:C150')) Is Nothing Then
If Target.Row Mod 2 = 0 Then
Target.Value = 3
Target.Offset(1, 0).Value = Empty
li = Target.Row / 2 + 2
Else
Target.Value = 3
Target.Offset(-1, 0).Value = Empty
li = Target.Row \\\\\\\\ 2 + 2
End If
Cells(li, 6).Value = Target.Offset(0, -1).Value
End If
End Sub

Après ce n'est plus linéaire et sans ton fichier en pièce jointe j'ai eu la flemme d'essayer de comprendre.

Édition :

J'avais oublié cette satanée barre inversée qui n'apparaît pas. L'erreur est corrigée.

Message édité par: Robert, à: 22/01/2006 17:40

 

[Gérard DEZAMIS]

Bonjour Domi, JP et Robert

J'avais commencé un petit bout d'essai avec un double clic pour mettre le X et ensuite une macro pour mettre les vainqueurs en colonne mais ce n'est pas top....

Je n'arrive pas à mettre tout ça en bloc et que le transfert s'effectue lors de la saisie du X
Je vais donc 'profiter' de toi mon cher Robert (je n'ai pas dit 'abuser') et si tu as une réponse ... on ne sait jamais.
Je vais déjà commencer à éplucher ta réponse car tu a comme d'hab été plus rapide

Bien cordialement

@+GD

avec un fichier c'est plus propre... :whistle: [file name=128JoueursDomi_20060122171059.zip size=12762]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/128JoueursDomi_20060122171059.zip[/file]

Message édité par: Gérard DEZAMIS, à: 22/01/2006 17:11

 

[Robert]

Bonjour le fil, bonjour le forum,

Pour Gérard,

j'ai appliqué le même code que j'avais donné à Domi en l'adaptant. [file name=128JoueursDomi2.zip size=11000]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/128JoueursDomi2.zip[/file]

 

[Gérard DEZAMIS]

Retour de Pause

Un grand merci Robert pour cette version perso documentée à souhait. Si je ne comprends pas avec ça je suis une tanche ! Je vais bosser un peu là dessus car cela ma donné des idées (de bonnes bien entendu) Lorsque l'on pratique le badminton ou le tennis de table par exemple on utilise souvent la formule du Double K.O. Les Elèves sont répartis en doubles, un match simple permet de les répartir en deux poules, Victoire et Defaite, ensuite les vainqueurs se rencontrent entre eux et les defaites aussi ce qui fait que l'on a au 1er tour 16 V et 16 D (exemple avec 32 élèves) au 2ème tour on a 8VV 8VD & 8 DV (cela revient au même pour ces deux derniers)et 8 DD Au troisième tour 4VVV 12 (VDV ou DVV) 12 (double défaite) 4 triple defaite etc ce qui fait qu'au 5ème et dernier tour j'ai 1 vainqueur, 5 avec 4 Victoires, 10 avec 3V 10 avec 2V 5 avec 5 V et the last but not least avec .... aucune victoire.
(C'est un Double K.O adapté car normalement à la 2ème défaite ==> vestiaire ... mais il faut bien que tout le monde joue quelque soit son niveau).
Voilà l'ampleur de la mission... A bientôt et Merci encore
Bien amicalement

@+GD

*1000 excuses à Domi pour le squatt de son fil :whistle: