Re : quelle bibliotheque d objet faut il ?
Bonjour staple
Alors le code en entier le voila je précise qu il fonctionner parfaitement sous excel 97 :
Sub Point_jounnée()
Application.ScreenUpdating = False
Cells(4, 8).Value = 8
'Placement de formule pour le total des point par equipe et par journée
Sheets(1).Select
For i = 1 To 20
Cells(i, 1).Select
club = ActiveCell.Value
k = ActiveCell.Row
a = "="
Sheets(3).Select
Range("a9
18").Select
Selection.Find(What:=club, After:=ActiveCell, LookIn:=xlValue, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Select
If ActiveCell.Column = 1 Then
Cells(ActiveCell.Row, 21).Select
a = a & ActiveCell.AddressLocal
Range("i2:i21").Select
Selection.Find(What:=club, After:=ActiveCell, LookIn:=xlValue, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Select
Cells(ActiveCell.Row, 18).Select
Cells(ActiveCell.Row, 18).Value = a
Cells(1, 1).Select
End If
If ActiveCell.Column = 4 Then
Cells(ActiveCell.Row, 22).Select
a = a & ActiveCell.AddressLocal
Range("i2:i21").Select
Selection.Find(What:=club, After:=ActiveCell, LookIn:=xlValue, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Select
Cells(ActiveCell.Row, 18).Select
Cells(ActiveCell.Row, 18).Value = a
Cells(1, 1).Select
End If
For chit = 4 To 40
a = "="
Sheets(chit).Select
Range("a9
18").Select
Selection.Find(What:=club, After:=ActiveCell, LookIn:=xlValue, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Select
If ActiveCell.Column = 1 Then
Cells(ActiveCell.Row, 21).Select
a = a & ActiveCell.AddressLocal
Range("i1:i21").Select
Selection.Find(What:=club, After:=ActiveCell, LookIn:=xlValue, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Select
Cells(ActiveCell.Row, 18).Select
Cells(ActiveCell.Row, 18).Value = a
Cells(1, 1).Select
End If
If ActiveCell.Column = 4 Then
Cells(ActiveCell.Row, 22).Select
a = a & ActiveCell.AddressLocal
Range("i1:i21").Select
Selection.Find(What:=club, After:=ActiveCell, LookIn:=xlValue, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Select
Cells(ActiveCell.Row, 18).Select
Cells(ActiveCell.Row, 18).Value = a
Cells(1, 1).Select
End If
Next chit
Sheets(1).Select
Range("e9").Select
Next i
Application.ScreenUpdating = True
End Sub
voila merci