[VBA-E]Lancer une procédure à un moment T

**Pl4ymo** · 01/11/2006, 14h56

Bonjour tout le monde,

voilà, je voudrais savoir comment faire pour déclencher une procédure à un moment voulu. Je m'explique :

Je lance une procédure qui rempli aléatoirement la feuille Excel d'une grille de jeu dans lequel l'utilisateur doit trouver les nombres manquants. Ce que je voudrais faire, c'est qu'une fois que l'utilisateur a rempli toutes les cases, une procédure se lance et affiche soit "Gagné" soit "Perdu". Il me faudrait tonc un code (ou une astuce :p) me permettant de lancer la procédure quand on a fini de remplir la grille.

Merci d'avance pour vos réponses.

PS : si c'est un peu compliqué, pourriez-vous détailler pour que je puisse comprendre la démarche svp ?

**ThierryAIM** · 01/11/2006, 15h24

un début de solution, à toi d'adapter :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Vide As Integer
    For Each c In Worksheets("Feuil1").Range("A1:D8")
        If IsEmpty(c) Then Vide = Vide + 1
    Next c
    MsgBox "Il y a " & Vide & " cellules vides dans la plage"
End Sub

**Pl4ymo** · 01/11/2006, 18h45

Houlala ça va loin la, il y a des objets dans ton code que je ne connais pas. J'ai à peine une dizaine d'heures de VBA derrière moi et mes connaissances dans ce domaine sont assez restreintes ^^

1) ByVal Target As Range
2) Worksheet_Change

Moi j'ai fait ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Oui_Click()
    For L = 0 To NbL - 1
        For C = 0 To NbC * 2 - 1
            If Application.ActiveWorkbook.ActiveSheet.Range("A1").Offset(2 * L, 2 * C).Value <> UserForm.ValeursGrille(L, C) Then
                Application.ActiveWorkbook.ActiveSheet.Range("A1").Offset(2 * L, 2 * C).Color = RGB(225, 0, 0)
            End If
        Next C
    Next L
End Sub

Mince j'ai cliqué sur le mauvais boutton >.< pas fini mon message.

Donc je disai :

le code ci-dessus si l'utilisateur a rentré une (ou plusieurs valeurs fausses), ce code permet de les afficher en rouge (enfin je crois que ça fait ça, j'ai pas encore essayé ^^)

Et ça c'est pour vérifier si toutes les cases sont remplies :

Code :

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

1
2
3
4
5
6
7
 For L = 0 To NbL - 1
        For C = 0 To NbC * 2 - 1
            If Application.ActiveWorkbook.ActiveSheet.Range("A1").Offset(2 * L, 2 * C).Value <> "" Then
                Verification = Verification + 1
            End If
        Next C
    Next L

Ensuite, pour afficher "Gagné" ou "Perdu" j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If Verification = 2 * UserForm.NbL * UserForm.NbC Then
        For L = 0 To UserForm.NbL - 1
            For C = 0 To UserForm.NbC * 2 - 1
                If Application.ActiveWorkbook.ActiveSheet.Range("A1").Offset(2 * L, 2 * C).Value = UserForm.ValeursGrille(L, C) Then
                    Verification2 = Verification2 + 1
                End If
            Next C
        Next L
        If Verification2 = 2 * UserForm.NbL * UserForm.NbC Then
            MsgBox (Message1)
            UserForm2.Show
        Else
            MsgBox (Message2)
            UserForm3.Show
        End If
    End If

Le truc c'est que ces deux codes sont dans la procédure qui génére la grille de jeu et donc se lance juste après que la grille soit créée, et l'utilisateur n'a alors pas eu le temps de remplir quoi que ce soit. Je suis vraiment plus que débutant en VBA, donc je ne sais pas si ces boucles se lancent en continue (dans quel cas j'ai la réponse à ma question) ou non. J'espére être clair dans mes explications (mm si ça m'a pas l'air d'être le cas

).

**SfJ5Rpw8** · 01/11/2006, 18h55

WorkSheet_change et une procédure évenementielle déclenchée lorsque un changement intervient dans la feuille concernée... voir

http://silkyroad.developpez.com/VBA/...Feuille/#LII-E