Message pour compléter cellule avant impression
Résolu
ec163
Messages postés
147
Date d'inscription
Statut
Membre
Dernière intervention
-
ec163 Messages postés 147 Date d'inscription Statut Membre Dernière intervention -
ec163 Messages postés 147 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Message pour compléter cellule avant impression
- Spouleur d'impression - Guide
- Recuperer message whatsapp supprimé - Guide
- Impression livret a5 - 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