syntaxe If Else

bonjour à tous,

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

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

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,

++

Et un simple message ?

Code:

---

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

---

Merci pour ta réponse...

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

à cause du next je pense...

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

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:

---

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+

Salut lolove94

Code:

---

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

---

Citation:

---

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+

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

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:

---

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

---

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

Code:

---

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 ? 8O

Merci beaucoup...

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

en tout cas ça fonctionne parfaitement maintenant...

Merci beaucoup à toi....

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

++