Discussion :

[Kbx59]

Bonjour le forum,

Je m'entête depuis quelques jours à créer un petit fichier Excel pour les éliminatoires de l'Euro 2016.
J'ai donc inscrit tous les matchs, et lorsque le score d'un match est rentré, les tableaux des poules se mettent à jour automatiquement (rang, puis tri dans l'ordre du rang etc).
Cependant je n'arrive pas à faire en sorte que rien ne se passe (pas de calcul dans les tableaux des poules) tant que le score des deux équipes n'est pas rentré. Actuellement, dès que je rentre un des deux chiffres et que je passe à la cellule d'à côté, tout s'actualise... Il faut que si l'une des cellules est vide, rien ne se passe.

J'ai bien essayé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
for i = 3 to 81
if cells(i,7).value = "" or cells(i,8).value = "" then exit sub
end if
next i

seulement ce code ne fonctionne pas (plus aucun calcul ne se fait)

Voici le bout du code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
If Not Intersect(Target, Range("G3:H50")) Is Nothing Then 'si l'intersection de ma cible et de la plage n'est pas rien alors...
 
             With ActiveWorkbook.Worksheets("Feuil1").Sort
                 .SetRange Range("L3:V9")
                 .Header = xlYes
                 .MatchCase = False
                 .Orientation = xlTopToBottom
                 .SortMethod = xlPinYin
                 .Apply
             End With
 
        End If

Petite info, je suis novice en VBA...

J'ai essayé aussi ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Not Intersect(Target, Range("G3:H50")) Is Nothing and cells(i,7).value = "" or cells(i,8).value = "" Then
'tri des tableaux
End If

Mais encore une fois cela ne fonctionnait pas (ce code était inclus dans une boucle for).

Je suppose qu'il est possible de faire ce que je souhaite mais là je bloque un peu...
Si quelqu'un a un bout de solution...

Cordialement,
Kbx59

[Kimy_Ire]

Salut Kbx59,

Je pense après quelques tests que ceci devrait répondre à ton besoin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Not Intersect(Target, Range("C3:D30")) Is Nothing Then
    If Not Cells(Target.Row, 3) = "" And Not Cells(Target.Row, 4) = "" Then
            'code
    End If
End If

Les scores sont dans les colonnes C et D.
A toi d'adapter !

Tiens moi au courant !

Cordialement,
Kimy

[Kbx59]

Salut Kimy_Ire, salut le forum

Super, c'est exactement ce qu'il me fallait ! Merci beaucoup !

J'ai une autre petite question : comment faire pour qu'une msgbox s'affiche une fois, et pas à chaque calcul ?
Je m'explique. Je voudrais faire en sorte que si il y a une différence de plus de 4 buts dans un match, une msgbox s'affiche avec un texte dedans. Le problème c'est qu'elle s'affiche à chaque calcul, et moi je voudrais qu'elle s'affiche uniquement au moment où le score en question est rentré. Comment faire ?

Cordialement,
Kbx59