Ajout message d'avertissement dans macro
Résolunathan01983 Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
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
1 réponse
-
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 SubCdlmnt
