Message pour compléter cellule avant impression
Résolu
ec163
Messages postés
182
Statut
Membre
-
ec163 Messages postés 182 Statut Membre -
ec163 Messages postés 182 Statut Membre -
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
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
A voir également:
- Message pour compléter cellule avant impression
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Recuperer message whatsapp supprimé - Guide
- Message supprimé whatsapp - Guide
- Message absence thunderbird - Guide
2 réponses
Bonjour
une proposition de solution
rentrer la macro suivante
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
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
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
Merci beaucoup Yclik, ça fonctionne très bien. Pourrais je abuser en te demandant un complément à cette macro. Je souhaiterais que la personne ne puisse pas enregistrer son document sans avoir renseigner son identité. Il s'agit en fait d'un tableau de pointage pour la grh et certains le renvoient sur papier quand d'autres l'enregistrent et nous le font parvenir par mail. En tout cas merci beaucoup encore pour ton aide précieuse et si tu as le temps de te pencher sur mon autre problème merci encore.
Cdt
ec163
Cdt
ec163
ec163