• Initiateur de la discussion Initiateur de la discussion sev
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

sev

Guest
Bonjour à tous,
Quand je clique sur le bouton "Non" ou sur la petite croix de fermeture du msgbox la ligne se supprime alors que je voudrais qu'elle reste .
Comment modifier celà ?


Sub Macro15() ' Supprimer saisie sélectionnée
MsgBox "Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, ""
If vbYes Then
Dim ligne As Long
ligne = ActiveCell.Row
Range("A" & ligne & ":M" & ligne).ClearContents
Range("O" & ligne).ClearContents
End If

If vbNo = True Then Exit Sub

End Sub
 
Re : Code MsgBox

Il manque quelques petites choses...

Code:
Sub Macro15() ' Supprimer saisie sélectionnée
[COLOR="Red"]Dim Rep as Long[/COLOR]
[COLOR="Red"]Rep = [/COLOR]MsgBox ("Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, "")
If [COLOR="red"]Rep=vbYes [/COLOR]Then
Dim ligne As Long
ligne = ActiveCell.Row
Range("A" & ligne & ":M" & ligne).ClearContents
Range("O" & ligne).ClearContents
End If

If vbNo = True Then Exit Sub [COLOR="YellowGreen"]'Cette ligne ne sert à rien je crois[/COLOR]

End Sub
 
Re : Code MsgBox

Bonjour

essaies

Sub Macro15() ' Supprimer saisie sélectionnée
IF MsgBox ("Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, "")=VbYes then
Dim ligne As Long
ligne = ActiveCell.Row
Range("A" & ligne & ":M" & ligne).ClearContents
Range("O" & ligne).ClearContents
End If

End Sub

Edition : Oups tototiti pas vu
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
331
Réponses
7
Affichages
505
Retour