Probleme dans maccro

Si j'ai bien compris tu veut que tous ton code : range.... ne s'execute que si on clique sur yes ?

Si c'est ça :
======================================================

Sub annulprog()
rep = MsgBox("Etes vous sur de vouloir suprimer toutes vos actions, et de commencer un nouveau portefeuille ?", vbYesNo)
If rep = vbYes Then
Sheets("action 1").Select
Range("A19").Select
ActiveCell.FormulaR1C1 = "1"
Range("H38").Select
ActiveCell.FormulaR1C1 = "0"
Range("H39").Select
ActiveCell.FormulaR1C1 = "0"
Range("H40").Select
Sheets("action 2").Select
Range("A19").Select
ActiveCell.FormulaR1C1 = "1"
Range("H38").Select
ActiveCell.FormulaR1C1 = "0"
Range("H39").Select
ActiveCell.FormulaR1C1 = "0"
Range("H40").Select
Sheets("action 3").Select
Range("A19").Select
ActiveCell.FormulaR1C1 = "1"
Range("H38").Select
ActiveCell.FormulaR1C1 = "0"
Range("H39").Select
ActiveCell.FormulaR1C1 = "0"
Range("H40").Select
Sheets("action 4").Select
Range("A19").Select
ActiveCell.FormulaR1C1 = "1"
Range("H38").Select
ActiveCell.FormulaR1C1 = "0"
Range("H39").Select
ActiveCell.FormulaR1C1 = "0"
Range("H40").Select
Sheets("action 5").Select
Range("A19").Select
ActiveCell.FormulaR1C1 = "1"
Range("H38").Select
ActiveCell.FormulaR1C1 = "0"
Range("H39").Select
ActiveCell.FormulaR1C1 = "0"
Range("H40").Select
Sheets("action 6").Select
Range("A19").Select
ActiveCell.FormulaR1C1 = "1"
Range("H38").Select
ActiveCell.FormulaR1C1 = "0"
Range("H39").Select
ActiveCell.FormulaR1C1 = "0"
Range("H40").Select
Sheets("action 7").Select
Range("A19").Select
ActiveCell.FormulaR1C1 = "1"
Range("H38").Select
ActiveCell.FormulaR1C1 = "0"
Range("H39").Select
ActiveCell.FormulaR1C1 = "0"
Range("H40").Select
Sheets("action 8").Select
Range("A19").Select
ActiveCell.FormulaR1C1 = "1"
Range("H38").Select
ActiveCell.FormulaR1C1 = "0"
Range("H39").Select
ActiveCell.FormulaR1C1 = "0"
Range("H40").Select
Sheets("action 9").Select
Range("A19").Select
ActiveCell.FormulaR1C1 = "1"
Range("H38").Select
ActiveCell.FormulaR1C1 = "0"
Range("H39").Select
ActiveCell.FormulaR1C1 = "0"
Range("H40").Select
Sheets("action 10").Select
Range("A19").Select
ActiveCell.FormulaR1C1 = "1"
Range("H38").Select
ActiveCell.FormulaR1C1 = "0"
Range("H39").Select
ActiveCell.FormulaR1C1 = "0"
Sheets("page principale").Select
MsgBox "le programme a été réinitialisé"

else

MsgBox "Le programme n'a pas été reinitialisé."

end if

End Sub


A+ Wilfried ;op
=====================================================

Bonjour Ganache Wilfried

Pour t'expliquer : quand tu ecris ceci

If rep = vbYes Then Sheets("action 1").Select
Range("A19").Select
......

Ta condition s'arrête après le Sheets("action 1").Select Donc tout le reste s'exécute.

Il faut ecrire comme wilfried l'a noté

En fait avec un If

soit tu ecris tout sur la ligne :

If Condition then resultat

soit

if condition then
Resultat
else
Resultat sinon
end if

Sinon tu peux simplifier ce que te fais l'enregistreur de macro en faisant ceci

Sub annulprog()

rep = MsgBox("Etes vous sur de vouloir suprimer toutes vos actions, et de commencer un nouveau portefeuille ?", vbYesNo)

If rep = vbYes Then
   with Sheets("action 1")
      .Range("A19") = "1"
      .Range("H38")= "0"
      .Range("H39") = "0"
   end with
   with Sheets("action 2")
      .Range("A19") = "1"
      .Range("H38")= "0"
      .Range("H39") = "0"
   end with
   with Sheets("action 3")
      .Range("A19") = "1"
      .Range("H38")= "0"
      .Range("H39") = "0"
   end with
   with Sheets("action 4")
        .Range("A19") = "1"
      .Range("H38")= "0"
      .Range("H39") = "0"
   end with
   with Sheets("action 5")
      .Range("A19") = "1"
      .Range("H38")= "0"
      .Range("H39") = "0"
   end with
   with Sheets("action 6")
      .Range("A19") = "1"
      .Range("H38")= "0"
      .Range("H39") = "0"
   end with
   with Sheets("action 7")
      .Range("A19") = "1"
      .Range("H38")= "0"
      .Range("H39") = "0"
   end with
   with Sheets("action 8")
      .Range("A19") = "1"
      .Range("H38")= "0"
      .Range("H39") = "0"
   end with
   with Sheets("action 9")
      .Range("A19") = "1"
      .Range("H38")= "0"
      .Range("H39") = "0"
   end with
   with Sheets("action 10")
      .Range("A19") = "1"
      .Range("H38")= "0"
      .Range("H39") = "0"
   end with
   Sheets("page principale").Select
   MsgBox "le programme a été réinitialisé"
else
   MsgBox "Le programme n'a pas été reinitialisé."
end if

End Sub

Pascal

Merci à vous deux ca marche nickel !!!!
et merci Pascal pour ta petite lecon (il é sympas ce forum)