Msgbox qui ne se ferme pas

Salut le forum

J'ai 2 macros (commande bouton et module).

Lorsque j'exécute la macro contenue dans le module, le msgbox ne se ferme pas.

Je n'arrive pas à détecter le problème.

Aussi est-il possible de fusionner les 2 macros pour en faire un seul code et exécutable à partir de la commande bouton?

Merci

Bonjour Zombe, le forum ,

le msgbox ne se ferme pas

Si, elle se ferme en cliquant 10 fois sur OK puisque ta boucle indique

For i = 7 To 17

A tester:

Sub gestion_caption()
'
Dim i As Long

With Sheets("CUMUL_TBC_" & Sheets("MENU_DA").Cmde.Caption)

If MsgBox("Etes-vous sûr de vouloir reporter les données.Voulez-vous continuer?", vbYesNo, "Demande de confirmation") = vbYes Then

For i = 7 To 17
Sheets("CUMUL_TBC_" & Sheets("MENU_DA").Cmde.Caption).Cells(i, 2) = Sheets("CUMUL_TBC_" & Sheets("MENU_DA").Cmde.Caption).Cells(i, 2) + Sheets(Sheets("MENU_DA").Cmde.Caption).Cells(i + 10, 13)
Next
End If
End With
End Sub

Cordialement,

Bonjour,

Du point de vue de la macro ... inverser les boucles ...

Sub gestion_caption()
Dim i As Long

If MsgBox("Etes-vous sûr de vouloir reporter les données.Voulez-vous continuer?", vbYesNo, "Demande de confirmation") = vbYes Then
    For i = 7 To 17
        Sheets("CUMUL_TBC_" & Sheets("MENU_DA").Cmde.Caption).Cells(i, 2) = Sheets("CUMUL_TBC_" & Sheets("MENU_DA").Cmde.Caption).Cells(i, 2) + Sheets(Sheets("MENU_DA").Cmde.Caption).Cells(i + 10, 13)
    Next i
End If
End Sub

Que veux-tu faire faire à cette macro ..???

Bonjour,

Je me demande si ... un jour ... nous aurons le fin mot de l'histoire ...

Bonjour james007 et le forum

Je m'excuse du temps mis pour vous revenir.

Je viens de tester votre solution et elle est magnifique.

Merci infiniment james007 sans oublier aussi toutes les autres volontés.

Nb:je n'arrive pas à voir avec mon smartphone le bouton "Résolu"...

zombe a écrit :

Bonjour james007 et le forum

Je m'excuse du temps mis pour vous revenir.

Je viens de tester votre solution et elle est magnifique.

Merci infiniment james007 sans oublier aussi toutes les autres volontés.

Nb:je n'arrive pas à voir avec mon smartphone le bouton "Résolu"...

Ravi que cela corresponde à ton attente ...

Merci ... pour tes remerciements ...