Macro VBA

Question

Bonjour

j'ai realisé cette macro: tant que la cells(11,2), qui est range(k2), est égale à zero on revient à poser la question, mais une fois cette valeur est differente de zero le programme revient pour poser ce qui est n'est pas normal, car il devrait sortir du programme exit sub et se placer dans range(c2).

merci pour votre aide

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.EnableEvents = False

Application.ScreenUpdating = False

AnswerYes = MsgBox("Voulez-vous aussi évaluer DKG et FM?", vbQuestion + vbYesNo, "User Repsonse")

If AnswerYes = vbYes Then

If Worksheets("Sheet1").Cells(11, 2).Value = 0 Then

MsgBox ("Entrer le décimal Rounding DKG&FM, Rounding DKG et Rounding FM")

Range("k2").Select

Else

End If

Else

Exit Sub

Range("c2").Select

End If

Application.EnableEvents = True

Application.ScreenUpdating = True

End Sub

Answer 1

Ca macrhe à priori comme ca:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim AnswerYes As Integer

If Worksheets("Sheet1").Cells(2, 11).Value > 0 Then

Exit Sub

Range("c2").Select

End If

Application.EnableEvents = False

AnswerYes = MsgBox("Voulez-vous aussi évaluer DKG et FM?", vbQuestion + vbYesNo, "User Repsonse")

If AnswerYes = vbYes Then

If Worksheets("Sheet1").Cells(2, 11).Value = 0 Then 

    MsgBox ("Entrer le décimal Rounding DKG&FM, Rounding DKG et Rounding FM") 

    Range("k2").Select 

End If 

Else: Exit Sub 

End If

Application.EnableEvents = True

End Sub

Answer 2

c'est etais juste de spécifier le topic VBAProject

Answer 3

"j'ai changé cells(11,2) par cells(2,11) c'Est toujours le meme probleme"

NON. C'est déjà un problème réglé. Autrement, la question "Voulez-vous aussi évaluer DKG et FM?" est posé systématiquement. Donc elle apparaît systématiquement, indépendamment de la valeur de K2.

"pour le dedoublement VBAProject voir sur dans le topic:"

Voir quoi ?

Daniel

Answer 4

pour le dedoublement VBAProject voir sur dans le topic:

j'ai changé cells(11,2) par cells(2,11) c'Est toujours le meme probleme

Answer 5

Bonjour,

"cells(11,2)", c'est la cellule B11. K2, c'est "Cells(2,11)".

Cordialement.

Daniel

PS. Je n'ai pas reçu de retour à ma réponse du fil "VBA project se dedouble" ?