Message box

[achraf26]

Bonsoir,
je voudrais rajouter au vba une demande de confirmation pour ajouter un article yes ou non
ça fonctionne avec avec oui mais je fais non elle m'insere une ligne

Sub Ajouter()
if MsgBox("Etes-vous certain de vouloir Ajouter l'article?", vbYesNo, "Demande de confirmation") = vbYes then
[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

quelqu'un a une solution
Merci

 

[job75]

Re : Message box

Bonjour achraf26,

Il manque juste un End If à la fin.

Bonne soirée.

 

[gosselien]

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
........

 

[achraf26]

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

 

[gosselien]

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
........

 

[achraf26]

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

 

[achraf26]

Re : Message box

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

 

[xhudi69]

Re : Message box

Bonjour achraf26, le Forum,

ton fichier en retour, si cela convient.

@+😎

 

[job75]

Re : Message box

Bonjour à tous,

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

A+

 

[xhudi69]

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 😀 .......

@+ 😎

 

[achraf26]

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