Discussion :

[psg74]

j'ai créé une macro "supprime les valeurs d'une plage de cellule" mais au début de la macro, je voudrais demander avec 1 boutton "oui ou non" comme réponse pour demander si le document a été imprimer ou sauvegarder avant de continuer la macro.

voici ma macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub RAZ()
Dim OB As OLEObject
 
For Each OB In Feuil1.OLEObjects
    If TypeOf OB.Object Is MSForms.OptionButton Then OB.Object.Value = False
Next OB
Range("F4:f42").ClearContents
End Sub

[jackborogar]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If MsgBox("Etes-vous certain de vouloir supprimer les valeurs ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
 
        'Ton code
 
    End If

Cordialement,

[psg74]

la réponse de non éfface les données à la place de revenir à la feuille.

[jackborogar]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If MsgBox("Etes-vous certain de vouloir supprimer les valeurs ?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
 
        RAZ
 
Else
 
    End If

Si tu cliques sur oui, ça supprime puisque tu as la condition vbYes,
Si c'est non sa quitte...

[psg74]

la marco ne fonctionne pas comme vous le dites. si je clicle sur non la macro continue de supprimer les cellules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub RAZ()
If MsgBox("Avez-vous imprimer ou suvegarger le contrôle avant de supprimer les renseignements?", vbYesNo + vbQuestion, "Demande de confirmation") = vbYes Then
 
    End If
Dim OB As OLEObject
 
For Each OB In Feuil1.OLEObjects
    If TypeOf OB.Object Is MSForms.OptionButton Then OB.Object.Value = False
Next OB
Range("F9:f28").ClearContents
 
End Sub

[HopPopPop]

Bonjour à tous,

En adaptant la proposition donnée à deux reprises par jackborogar, qui sont toutes les deux bonnes, mais qu'il fallait insérer au bon endroit dans ta procédure ou dans une autre.

Là, tel que c'est ecrit, ça fonctionnera.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub RAZ()
 
If MsgBox("Avez-vous imprimé ou sauvegardé le contrôle avant de supprimer les renseignements?", vbYesNo + vbQuestion, "Demande de confirmation") = vbNo Then Exit Sub
 
Dim OB As OLEObject
 
For Each OB In Feuil1.OLEObjects
If TypeOf OB.Object Is MSForms.OptionButton Then OB.Object.Value = False
Next OB
Range("F9:f28").ClearContents
 
End Sub

cordialement