Discussion :

[lolove94]

bonjour à tous,

P'tite question sur un programme tout bête..

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
17
18
19
20
21
22
23
24
25
26
27
28
29

Sub test()

Dim i%

For i = 5 To 14
        
            If Sheets("page1").Cells(3, 1) = Sheets("page1").Cells(i, 1) Then
            Sheets("page1").Cells(i, 1).Select
            End If
        Next
End Sub

Private Sub CommandButton1_Click()

Application.Run "Classeur1.xls!Feuil1.test"

End Sub

Private Sub CommandButton2_Click()

Range("A3").Select
    Selection.ClearContents
    
    Range("D10").Select
    Selection.ClearContents
    
End Sub

Je voudrais que dans la partie rouge de mon programme, si mon test échoue, la cellule D10 par exemple, affiche un message du type :"Recommencez"

je ne sais pas où insérer le "ELSE" sans que ma cellule D10 n'affiche à chaque fois le message "Recommencez" après éxecution de la macro...

Merci par avance,

++

[ouskel'n'or]

Et un simple message ?

Code :

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

1
2
3
4
5
            If Sheets("page1").Cells(3, 1) = Sheets("page1").Cells(i, 1) Then
                 Sheets("page1").Cells(i, 1).Select
               else
                 msgbox "Recommencer !"
            End If

[lolove94]

Merci pour ta réponse...

Malheureusement la fenêtre "Recommencer" apparaît puis disparait après 15 clics dessus...

à cause du next je pense...

[lolove94]

En fait, si mon test échoue...l'affichage "Recommencez§" est équivalent à une nouvelle saisie de la part de l'utilisateur...

Merci par avance de votre aide pour résoudre mon prob

[ouskel'n'or]

Tu ne dis pas si tu préfères recommencer le test à zéro ou le continuer pour les 9 lignes concernées. A tout hasard :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 
Dim i%
 
For i = 5 To 14      
            If Sheets("page1").Cells(3, 1) = Sheets("page1").Cells(i, 1) Then
                 Sheets("page1").Cells(i, 1).Select
              else
                 Msgbox "Recommencer !"
                 exit for
            End If
        Next
End Sub

A+

[Gorfael]

Salut lolove94

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
Sub test()
Dim i%
With Sheets("page1")
     For i = 5 To 14
          If .Range("A3") <> .Cells(i, "A") Then .range("D10")="Recommencer"
     Next
end with
End Sub
 
Private Sub CommandButton1_Click()
     Application.Run "Classeur1.xls!Feuil1.test"
End Sub
 
Private Sub CommandButton2_Click()
Range("A3,D10").ClearContents
End Sub

Je voudrais que dans la partie rouge de mon programme, si mon test échoue, la cellule D10 par exemple, affiche un message du type :"Recommencez"

je ne sais pas où insérer le "ELSE" sans que ma cellule D10 n'affiche à chaque fois le message "Recommencez" après éxecution de la macro...

Pour que la cellule D10 soit vide, il faut qu'aucune des cellule de la colonne A ne soit différente de A3. c'est comme ça que j'ai interprêté ton code (faire un select dans une boucle, sans l'utiliser de plus ne sert à rien)

Le plus simple dans un problème de ce genre, c'est d'expliquer le but à atteindre et d'analyser les réponses données.
Là, ce n'est pas une erreur de code, mais d'algorythme. Et si on peut trouver un mauvais codage, on ne peut trouver l'erreur de raisonnement qu'en ayant une idée de ce que doit faire le code.

A+

[lolove94]

T'as solution a le mérite de n'afficher qu'une seule fenêtre "recommencez"...

Malheureusement lors de la saisie par l'utilisateur, le programme ne selectionne plus la ligne correspondant à la saisie...

Pour être clair, admettons que dans les cellules A1 à A14 il y a les valeurs 1, 2, 3, 4.....jusqu'à 11.

l'utilisateur saisie dans la cellule A3 un chiffre....

si ce chiffre est compris entre 1 à 11...alors le curseur se place sur la ligne correspondante....

Si non une fenêtre apparaît "Recommencez"...ce qui veut dire qu'il faut que l'utilisateur saisisse de nouveau un chiffre dans la cellule A3

rappel du prog

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
17
18
19
20
21
22
23
24
25
26
27
28
29

Sub test()

Dim i%

For i = 5 To 15
        
            If Sheets("page1").Cells(3, 1) = Sheets("page1").Cells(i, 1) Then
            Sheets("page1").Cells(i, 1).Select
            
                Else
                MsgBox "recommencez!!!"
                Exit For
            End If
        Next
End Sub
Private Sub CommandButton1_Click()

Application.Run "Classeur1.xls!Feuil1.test"

End Sub

Private Sub CommandButton2_Click()

Range("A3").Select
    Selection.ClearContents
    
End Sub

[Gorfael]

Salut lolove94
Quand on donne le but, ça va tout de suite mieux

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
17
 
Sub test()
Dim i%
dim Flg as Boolean
For i = 5 To 15
           If Sheets("page1").Cells(3, 1) = Sheets("page1").Cells(i, 1) Then
               Sheets("page1").Cells(i, 1).activate
               Flg = True
               Exit For
           End If
Next
if Flg = false then
    MsgBox "Same player Shoot Again"
    [A3].clearcontents
    [A3].activate
end if
End Sub

Devrait être mieux
Je préfère ACTIVATE à SELECT : C'est la même chose quand ça ne concerne qu'une cellule, mais c'est plus parlant dans le code
A+
PS Heureusement que ton code est là, par ce que si tu entres les valeurs dans la plage de A1 à A14 et que la valeur de référence est A3.... ça va souvent tomber sur A3, non ?

[lolove94]

Merci beaucoup...

ouais c'est vrai que dans le descriptif de mon problème ce n'était pas clair

en tout cas ça fonctionne parfaitement maintenant...

Merci beaucoup à toi....

vraiment bien la solidarité sur ce forum....

++