Message box

job75

XLDnaute Barbatruc

• 27 Juillet 2015

• #2

Re : Message box

Bonjour achraf26,

Il manque juste un End If à la fin.

Bonne soirée.

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 27 Juillet 2015

• #3

Re : Message box

Bonsoir,
un test après la question serait préférable....

.......
ajout = MsgBox("Etes-vous certain de vouloir Ajouter l'article?", vbYesNo, "Demande de confirmation") = vbYes
If Not ajout Then Exit Sub
[D2] = [E1]
If [c4] = "" Then
........

 

Vote positif 0 Vote négatif

A

achraf26

XLDnaute Occasionnel

• 27 Juillet 2015

• #4

Re : Message box

j'ai ajouté if not ajout then exit sub
fonctionne pas

Option Explicit
Sub Ajouter()
If MsgBox("Etes-vous certain de vouloir Ajouter l'article?", vbYesNo, "Demande de confirmation") = vbYes Then
if not then,
Exit Sub
[D2] = [E1]
If [c4] = "" Then
Range("c2:h2").Copy Destination:=Range("c4")
Else
Range("c2:h2").Copy Destination:=Range("c" & Rows.Count).End(xlUp)(2)
End If
Range("D2:H2").ClearContents
Range("E1").ClearContents
Range("E1").Select
MsgBox "L'article a été Ajouté !"
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 27 Juillet 2015

• #5

Re : Message box

ce n'est pas vraiment ce que j'ai écris....

.......
ajout = MsgBox("Etes-vous certain de vouloir Ajouter l'article?", vbYesNo, "Demande de confirmation") = vbYes
If Not ajout Then Exit Sub
[D2] = [E1]
If [c4] = "" Then
........

 

Vote positif 0 Vote négatif

A

achraf26

XLDnaute Occasionnel

• 27 Juillet 2015

• #6

Re : Message box

ça fonctionne pas du tous
j'ai essayé celle là

Option Explicit
Sub Ajouter()
Ajout = MsgBox("Etes-vous certain de vouloir Ajouter l'article?", vbYesNo, "Demande de confirmation") = vbYes
If Not Ajout Then Exit Sub
[D2] = [E1]
If [c4] = "" Then
Range("c2:h2").Copy Destination:=Range("c4")
Else
Range("c2:h2").Copy Destination:=Range("c" & Rows.Count).End(xlUp)(2)
End If
Range("D2:H2").ClearContents
Range("E1").ClearContents
Range("E1").Select
MsgBox "L'article a été Ajouté !"
End Sub

Cliquez pour agrandir...

 

Pièces jointes

• Bloquer modificationV3.xlsm

  23 KB · Affichages: 32

Dernière édition: 27 Juillet 2015

Vote positif 0 Vote négatif

A

achraf26

XLDnaute Occasionnel

• 27 Juillet 2015

• #7

Re : Message box

Rebonsoir,
quelqu'un a une solution pour mon probleme ? d'avoir un message box demande de confirmation

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 28 Juillet 2015

• #8

Re : Message box

Bonjour achraf26, le Forum,

ton fichier en retour, si cela convient.

@+😎

 

Pièces jointes

• Bloquer modificationV4.xlsm

  20 KB · Affichages: 32

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Juillet 2015

• #9

Re : Message box

Bonjour à tous,

La solution que j'ai donnée au post #2 est simple non ?

A+

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 28 Juillet 2015

• #10

Re : Message box

Bonjour à tous, le Forum,

Elle était très claire, job75, mais comme notre amis a remis un fichier sur le gaz au #6 😀 .......

@+ 😎

 

Vote positif 0 Vote négatif

A

achraf26

XLDnaute Occasionnel

• 28 Juillet 2015

• #11

Re : Message box

Bonjour Job, Xhudi
Merci pour votre message, le marco fonctionne super bien, c'etait pas de ma faute du tous, quand j'arrivais pas
vous avez oublié de m'écrire : Dim Ajout As Boolean Avant, 🙂 mais c'est pas grave
merci à vous

Résolu

 

Vote positif 0 Vote négatif