Ajout message d'avertissement dans macro Résolu/Fermé

Question

Bonjour à toutes et à tous.

J'aimerai dans cette macro qui supprime toutes les cellules où se trouvent la lettre "X", avoir un message d'alerte avant que la macro soit exécutée.

Sub ClearCellX()
Dim cell, rng As Range
Set rng = Range("H8:DK1500")

For Each cell In rng
    'f cell.Value = "X" Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

Pour exemple dans unes autre macro c'était comme cela, mais je ne sais pas ou mettre la ligne du message MsgBox

Sub RaS()
    If MsgBox("Etes-vous certain de vouloir supprimer TOUTES les dates de 1ère opérations ?", vbYesNo, "Demande de confirmation") = vbYes Then
        Range("F10:F1500").ClearContents
        Sheets("Planning").Select
        MsgBox "Le contenu a été effacé !"
    End If
End Sub

Merci pour votre futur aide

Windows / Edge 119.0.0.0

ccm81 · Answer

Bonjour

Comme ça, ça devrait le faire

Sub ClearCellX()
Dim cell, rng As Range
Set rng = Range("H8:DK1500")
If MsgBox("Etes-vous certain de vouloir supprimer TOUTES les dates de 1ère opérations ?", _
           vbYesNo, "Demande de confirmation") = vbYes Then
  For Each cell In rng
    If cell.Value = "X" Then
      cell.ClearContents
    Else
    End If
  Next cell
End If
End Sub

Cdlmnt

Ajout message d'avertissement dans macro

1 réponse

Discussions similaires