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