Ajout message d'avertissement dans macro
Résolunathan01983 Messages postés 344 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
- Ajout message d'avertissement dans macro
- Recuperer message whatsapp supprimé - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Message supprimé whatsapp - Guide
- Message absence thunderbird - Guide
- Epingler un message whatsapp - Accueil - Messagerie instantanée
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 Sub
Cdlmnt
PARFAIT !!! Merci bcp CCM1