Multiples conditions avec macro

Version imprimable

19/12/2007, 15h15
Toine45

1 pièce(s) jointe(s)

Multiples conditions avec macro

Bonjour a tous, je viens de voir que se forum possede beaucoup de gens competants donc si l'un de vous peut m'aider ....:roll:

(Je fournis mon fichier xls)

Voila je voudrais signaler une alerte quand il y a plus de 3 temps de coupure a 20sec avec la meme ville, le meme sport et le meme jour !
Je ne sait pas trop comment mis prendre, je suis completement perdu !

Merci a vous !:king:
19/12/2007, 16h31
jfontaine

Il y a certainement plus performant avec des sommeprod mais c'est pas vraiment ma tasse de thé

A mettre en F2 et a copier judqu'en bas du tableau

Code:

=A2&D2&E2

A mettre en G2 et a copier judqu'en bas du tableau

Code:

=SI(E2="20sec";(SI(NB.SI(F:F;A2&D2&E2)>=3;"Message";""));"")
19/12/2007, 19h46
Toine45

Merci, ca marche, mais je souhaiterais en Macro si possible ...
Parceque après j'ai plusieurs modifications a y faire
Merci !

Voila en macro

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Dim j As Integer
Dim i As Long
 
Dim strTEmp As String
Dim StrTAB() As String
Dim strMessage As String
 
Dim bol As Boolean
 
i = 2
ReDim Preserve StrTAB(1, 1)
 
Do While Not Range("A" & i).Value = vide
    bol = False
    'Action si 20sec
    If Range("E" & i).Value = "20sec" Then
 
        strTEmp = Range("A" & i).Value & Range("D" & i).Value
 
        'Boucle sur la variable tableau pour rechercher si deja trouvé
        If UBound(StrTAB, 2) >= 0 Then
            For j = 0 To UBound(StrTAB, 2)
                'Si on trouve on incrémente le compteur
                If StrTAB(0, j) = strTEmp Then
                    StrTAB(1, j) = Val(StrTAB(1, j)) + 1
                    bol = True
                End If
            Next j
        End If
 
        'Si pas trouvé on créait
        If bol = False Then
            j = UBound(StrTAB, 2) + 1
            ReDim Preserve StrTAB(1, j)
            StrTAB(0, j) = strTEmp
            StrTAB(1, j) = 1
        End If
 
    End If
 
    i = i + 1
Loop
 
'Boucle pour chercher les pairs >= 3
For j = 1 To UBound(StrTAB, 2)
    If Val(StrTAB(1, j)) >= 3 Then
        strMessage = strMessage & StrTAB(0, j) & " : " & StrTAB(1, j) & Chr(13)
    End If
Next j
 
MsgBox strMessage

20/12/2007, 19h44
Toine45

Salut, super merci! par contre comment 'Extraire' la variable StrTAB(0, j)
De sorte a pouvoir avec le nom du sport et le nom de la ville dans des variables bien séparées ?

Encore merci !!!:yaisse2:
20/12/2007, 20h20
jfontaine

il te suffit de formater la ligne

Code:

strTEmp = Range("A" & i).Value & Range("D" & i).Value

par exemple en séparant avec un -

Code:

strTEmp = Range("A" & i).Value & " - " & Range("D" & i).Value
20/12/2007, 20h37
Toine45

Je me suis surment mal exprimé, mais je voudrais une varaible qui contient le sport, une autre pour la ville
20/12/2007, 20h56
jfontaine

dans ton exemple on peut trouver plusieurs combinaison.
Comment fait -on dans ce cas? on ne renvoi que la premiere combinaison trouvée?
20/12/2007, 21h41
Toine45

Voila, c'est ca mon, probleme ...
faudrais faire variable1sport, variable2sport etc...
Merci en tous cas!
20/12/2007, 22h58
jfontaine

Si tu nous expliquais la finalité, peut être qu'on pourrait te donner une piste
27/12/2007, 15h24
Toine45

Merci d'avoir resolu mon probleme ! (j'ai trouvé pour le second petit soucis)

A bientot !:yaisse2: