Voici mon premier essai avec VBA réalisé grâce aux 7 leçons de JMG. Merci JMG !
Sub Imprimenomenclature()
If Range('O2').Value = VRAI Then
Msg = ' Il y a une incohérence entre les options choisies ! '
Style = vbCritical
Title = ' Attention ! '
Réponse = MsgBox(Msg, Style, Title, Help, Context)
Else
Range('O2').Value = FAUX
Sheets('Nomenclature').Select
Selection.AutoFilter Field:=1, Criteria1:='<>'
ActiveWindow.SelectedSheets.PrintPreview
Sheets('Formulaire').Select
End If
End Sub
--------------------------------------------------------
Private Sub CommandButton2_Click()
Imprimenomenclature
End Sub
--------------------------------------------------------
Ca marche mais le problème c'est qu'après avoir exécuté les lignes
Sheets('Nomenclature').Select
Selection.AutoFilter Field:=1, Criteria1:='<>'
ActiveWindow.SelectedSheets.PrintPreview
Sheets('Formulaire').Select
ça me supprime la formule contenue en O2 qui me donne le résultat VRAI ou FAUX.
Comment puis-je faire pour garder cette formule en O2 ?
Merci d'avance.
Sub Imprimenomenclature()
If Range('O2').Value = VRAI Then
Msg = ' Il y a une incohérence entre les options choisies ! '
Style = vbCritical
Title = ' Attention ! '
Réponse = MsgBox(Msg, Style, Title, Help, Context)
Else
Range('O2').Value = FAUX
Sheets('Nomenclature').Select
Selection.AutoFilter Field:=1, Criteria1:='<>'
ActiveWindow.SelectedSheets.PrintPreview
Sheets('Formulaire').Select
End If
End Sub
--------------------------------------------------------
Private Sub CommandButton2_Click()
Imprimenomenclature
End Sub
--------------------------------------------------------
Ca marche mais le problème c'est qu'après avoir exécuté les lignes
Sheets('Nomenclature').Select
Selection.AutoFilter Field:=1, Criteria1:='<>'
ActiveWindow.SelectedSheets.PrintPreview
Sheets('Formulaire').Select
ça me supprime la formule contenue en O2 qui me donne le résultat VRAI ou FAUX.
Comment puis-je faire pour garder cette formule en O2 ?
Merci d'avance.