moteurV12
XLDnaute Occasionnel
Bonsoir Le Forum
J'aimerai que ce code analyse les données dans l'ordre exact au lieu de n'importe quel ordre comme c'est le cas actuellement.
Après de multiples essais, je me résous à faire appel à vous.
J'aimerai que ce code analyse les données dans l'ordre exact au lieu de n'importe quel ordre comme c'est le cas actuellement.
Après de multiples essais, je me résous à faire appel à vous.
Code:
Sub Compte()
Dim Source As String, Col As Integer, t As Byte, Cel As Range, r As Integer
Range("EW1:EW" & Rows.Count).ClearContents
Sheets("Jeux").Select
For r = 12 To 79
For Col = 2 To 9
Source = IIf(Col = 2, "*" & Cells(r, Col) & "*", Source & Cells(r, Col) & "*")
Next
With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With
With Feuil19
For Each Cel In .Range("A1:A" & Rows.Count).SpecialCells(xlCellTypeConstants)
t = 0
For Col = 0 To 2
If InStr(Source, "*" & Cel.Offset(0, Col).Value & "*") > 0 Then t = t + 1
Next
If t = 3 Then .Range("EW" & Cel.Row) = .Range("EW" & Cel.Row) + 1
Next
End With
Next r
With Application: .Calculation = -4105: .EnableEvents = 1: .ScreenUpdating = 1: End With
End Sub