message pour compléter cellule avant impression Résolu/Fermé

Question

Bonjour, 
je souhaiterais savoir comment faire dans calc pour empêcher l'impression d'un tableau si une cellule de ce tableau (par ex: C5) n'est pas complétée en indiquant à la personne que cette case est obligatoirement à renseigner pour l'impression (comme un msgbox sur excel). ci joint la macro excel qui serait à traduire en macro calc
Private Sub Workbook_Open()
MsgBox "N'oubliez pas vos noms et prénoms SVP"
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Sheets("mois").Range("c5").Value = "" Then
        Cancel = True
        MsgBox "Nom et prénom SVP"
    End If
End Sub
Pour info je ne connais pas les macros sur calc.
Par avance merci de votre aide.
ec163

yclik · Answer

Bonjour
une proposition de solution
rentrer la macro suivante
sub test_impression
rem define variables
dim document   as object
dim oSheet as object 
dim NomPrenom as string
dim NomPrenomSaisie as string
' nom de la feuille
 oSheet = ThisComponent.sheets.GetByName("feuille1") 
' récupération des contenus de cellules
  NomPrenom=oSheet.getCellRangeByName ("C5").getstring
  'tests 
   If NomPrenom="" then  goto saisie_nom_prenom else GOTO Fin 
' etiquette pour saisie  
saisie_nom_prenom:
  NomPrenomSaisie=inputbox("veuillez renseigner Nom et prénom SVP")
 oSheet.getCellRangeByName("C5").String = NomPrenomSaisie

' etiquette pour fin
Fin: 
rem msgbox("Fin macro")

End Sub

Ensuite assigner la macro à l'évènement impression du document
Outils>Personnaliser
Onglet Evènement
-sélectionner : Imprimer le document
-Sous" Assigner" , Bouton "macro"
--sélectionner la macro précédemment enregistrée
--OK
-OK

yclik · Answer

re

sub test_impression_boucle
rem define variables
dim document   as object
dim oSheet as object 
dim NomPrenom as string
dim NomPrenomSaisie as string
' nom de la feuille
 oSheet = ThisComponent.sheets.GetByName("feuille1") 
' récupération des contenus de cellules
 verifier:
  NomPrenom=oSheet.getCellRangeByName ("C5").getstring
  'tests 
   If NomPrenom="" then  goto saisie_nom_prenom else GOTO Fin 
' etiquette pour saisie  
saisie_nom_prenom:
  NomPrenomSaisie=inputbox("veuillez renseigner Nom et prénom SVP")
 oSheet.getCellRangeByName("C5").String = NomPrenomSaisie
GOTO verifier
' etiquete pour fin
Fin: 
rem msgbox("Fin macro")

End Sub

Message pour compléter cellule avant impression

2 réponses

Discussions similaires