[Résolu] [Calc] Obliger l'utilisation d'un bouton

[Daniel60]

Sujet Non Résolu

[Hubert Lambert]

Bonjour,

Un moyen relativement simple : tu masques toutes les lignes non encore utilisées, et tu les affiches au fur et à mesure des ajouts.
L'utilisateur sera contraint d'utiliser le bouton pour créer une nouvelle ligne, et les lignes déjà remplies resteront modifiables normalement.
En théorie, l'utilisateur restera bien sûr libre d'afficher les lignes masquées, mais la manipulation est quand même moins évidente qu'un clic sur le bouton...
Cordialement.

[Daniel60]

Sujet Non Résolu

[OOotremer971]

Bonjour,

Un autre punition un peu plus sévère consiste à protéger la feuille par pot de passe. Mot de passe inconnu de l'utilisateur ; lors de l'appui sur le bouton enregistrer du formulaire, la feuille est déprotégée par la macro qui connaît le mot de passe, les données sont copiées puis la feuille est verrouillée à nouveau et ainsi de suite
A+

[Daniel60]

Non résolu

[OOotremer971]

L'un n’empêche pas l'autre. Toutes les lignes non remplies sont protégées, il est impossible des les remplir manuellement, seul le passage par le formulaire permet de la faire. Une fois l'enregistrement validé (par le formulaire), les lignes déjà remplie sont déprotégées et de fait restent modifiables manuellement à posteriori.

Je n'insiste pas disant que c'est comme ça qu'il faut faire et pas autrement, je fais juste une suggestion.

A+

[Hubert Lambert]

Bonjour, avant de répondre avez-vous essayez de faire le test de masquer les lignes et voir si elle s'affichaient à chaque création ?

Euh... à charge de la future macro d'afficher chaque nouvelle ligne évidemment .

[Daniel60]

Merci Hubert Lambert, j'ai mis à disposition mon dossier. Effectivement, l'idéal serait de faire apparaitre les lignes au fur et à mesure de l'utilisation de la macro. Si vous avez la programmation, cela m'aiderai énormément

[Hubert Lambert]

Il te suffit d'ajouter la ligne suivante dans ton code :

Code : Tout sélectionner

    theSheet.Rows(row).IsVisible = True

Ce qui donne :

Code : Tout sélectionner

Sub WriteToNewRow
    Dim row
    row=GetNewRow
    theSheet.Rows(row).IsVisible = True
    theSheet.GetCellByPosition(0,row).value=GetNewFileNumber
    WriteToRowNumber row
End Sub

[Daniel60]

Merci Hubert LAMBERT
J'ai ajouter la modification dans la macro

Code : Tout sélectionner

' Dans un nouveau dossier (Bouton ENREGISTRER GAV) EFFACE LA PREMIERE LIGNE
Sub WriteToNewRow
    Dim row
    row=GetNewRow
    theSheet.Rows(row).IsVisible = True
    theSheet.GetCellByPosition(0,row).value=GetNewFileNumber
    WriteToRowNumber row
End Sub

Mais maintenant, tous s'écrit dans la première ligne effaçant la précédente

Obliger l'utilisation des macros.ods

[Hubert Lambert]

C'est le cas déjà dans le fichier que tu as joint dans ton premier message...

[Daniel60]

Bonjour Hubert lambert
OUI en effet:
Voici donc le tableau original que j'utilise au travail


Le même tableau avec la modification de la macro que vous m'avez donné


Et l'erreur affichée

[Hubert Lambert]

Comme le montre ta saisie d'écran, le problème n'a rien à voir avec la ligne que je te proposais d'ajouter : ton code recherche une fonction GetNewFileNumber qui n'est définie nulle part (ou plutôt définie deux fois mais commentée dans les deux modules).

[Daniel60]

Merci Hubert, je ne trouve pas la solution, je vais donc clore ce dossier et le laisser tel quel
Encore merci pour votre aide

[micmac]

Je vous rappelle qu'on vous a demandé de compléter votre signature et nous attendons toujours.

Par ailleurs, la balise [Non Résolu] n'existe pas. Si le sujet n'est pas résolu pour vous, il l'est peut-être pour d'autres.

[Daniel60]

Bonjour Micmac, j'ai précisé ce que vous m'avez demandez dans la réponse donnée à Hubert.
Lors de mon inscription j'ai précise utiliser Open Office sur un windows 7
Libre Office m'est imposé par mon administration, car Open Office est obsolète et ne diffuse plus de mise à jour.
Par contre, vous n'apportez pas de solution mais des remises à l'ordre.

[micmac]

Justement, on vous demande de préciser dans votre signature, la configuration à votre domicile et celle au bureau (avec la mention obligation de version puisque c'est le cas) et que vos questions concernent les deux. Cela simplifie immédiatement la compréhension.

Et le rôle de la modération est de faire en sorte que le forum fonctionne au mieux.