Boucle après une MsgBox

[Michou9]

Bonjour

J’utilise cette macro avec des MsgBox « Oui/Non »
Je souhaiterais changer la valeur de 4 en 3 de la MsgBox, afin de rajouter « Annuler »

De manière à ce que si je clique sur « Annuler »
Je sorts de la MsgBox et je retourne au début de la macro

Soit : Ne pas sortir de la ComboBox afin de pouvoir faire une autre sélection à l’intérieur de celle-ci

Si je clique sur "Non", rien ne change, je sorts de la macro.

Il me faudrait donc sans doute une boucle que je ne sais pas écrire

Merci si quelqu’un peut me venir en aide

Private Sub ComboBox1_Change()
  Dim lig As Variant
  lig = Application.Match(ComboBox1, [Macro_Liste], 0)
  If IsError(lig) Then Exit Sub
  If MsgBox([Macro_Liste].Cells(lig, 2) & "", 4) = 7 Then Exit Sub
  Select Case ComboBox1
  ………………………………………….
     End Select
 End Sub

 

[youky(BJ)]

Re : Boucle après une MsgBox

Bonjour Michou,
Peut être comme ceci.
Bruno

Dim lig As Long
deb:
   lig = Application.Match(ComboBox1, [Macro_Liste], 0)
   If IsError(lig) Then Exit Sub
   rep = MsgBox([Macro_Liste].Cells(lig, 2) & "", 3) ' = 7 Then Exit Sub
   If rep = 2 Then GoTo deb
   If rep = 6 Or rep = 7 Then Exit Sub

End Sub

 

[Michou9]

Re : Boucle après une MsgBox

Bonjour

Merci pour ton aide

Mais ce n'est pas cela

Si je clique sur "Annuler" je reste sur la MasgBox (qui se repositionne sur "Oui") et je sorts de la ComboBox

Alors que je dois sortir de la MsgBox et resté dans la ComboBox ouvert.

A+

 

[job75]

Re : Boucle après une MsgBox

Bonjour Michou9, Bruno,

Private Sub ComboBox1_Change()
  Dim lig As Variant, rep As Byte
  lig = Application.Match(ComboBox1, [Macro_Liste], 0)
  If IsError(lig) Then Exit Sub
  rep = MsgBox([Macro_Liste].Cells(lig, 2), 3)
  If rep = 7 Then Exit Sub
  If rep = 2 Then SendKeys "%{UP}": Exit Sub
  Select Case ComboBox1
  '-----
  End Select
End Sub

A+

 

[job75]

Re : Boucle après une MsgBox

Re,

Sans doute faut-il aussi effacer la zone de restitution :

Private Sub ComboBox1_Change()
  Dim lig As Variant, rep As Byte
  lig = Application.Match(ComboBox1, [Macro_Liste], 0)
  If IsError(lig) Then Exit Sub
  rep = MsgBox([Macro_Liste].Cells(lig, 2), 3)
  If rep = 7 Then Exit Sub
  If rep = 2 Then ComboBox1 = "": SendKeys "%{UP}": Exit Sub
  Select Case ComboBox1
  '-----
  End Select
End Sub

A+

 

[Michou9]

Re : Boucle après une MsgBox

Bonjour Job75

Merci pour cette réponse

Je vois que ce n'est pas d'une boucle que javais besoin.

Le résultat est là
C'est exactement ce que je souhaitais.

Merci encore et A+

 

[Michou9]

Re : Boucle après une MsgBox

Re,

Je n'avais pas fait attention qu'il y avait 2 solutions

La 2ème n'est pas bonne
Car si je clique sur "Annuler" la ComboBox disparait
La MasgBox, elle reste affichée

Par contre si je reclique une nouvelle fois sur "Annuler"
La MasgBox disparait et la ComboBox réaparait

Il faut donc que je fasse l'opération 2 fois

Avantage, elle corrige une lacune
Je peux en admettant que j'ai cliqué par mégarde sur "Annuler"
alors que ma sélection était bien bonne
Je peux là reseltionner à nouveau
Alors que cela est impossible avec la solution 1