Discussion :

[vincent59139]

Bonjour à tous,

voila,j'essaye de faire un petit programme pour m'aider dans mon travail.

mais il y a quelque souci pouvez vous m'aider svp.

- alors, je voudrais proteger la feuille, mis à part la colonne commentaires et remarques ou la ou pourrait ecrire dedans mais tout le reste bloquer pour forcer les gens à utiliser le bouton nouvelle panne et pas ecrire manuellement
le hic : quand je protege, mes boutons affichent un message d'erreur 1004

y a-t-il un moyen de faire en sorte que cela marche avec une protection ?


- le bouton supprimer ligne, je voudrais que cela efface la ligne selectionner jusque la sa fonctionne
mais je voudrais que la ligne vide disparaisse en remontant les autres par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton2_Click()
 
Dim Mdp As String
Dim Msg, Style, Title
 
Mdp = Application.InputBox("Veuillez introduire votre mot de passe")
If Mdp <> "0000" Then MsgBox "Accès refusé !": Exit Sub
 
 
If MsgBox("êtes vous sur de vouloir supprimer la ligne sélectionnée?", vbOKCancel + vbDefaultButton2, "ATTENTION A L'OUBLI") = vbOK Then ' Définit le message.
'récupère le n° de la ligne
maligne = ActiveCell.Row
Rows(maligne & ":" & maligne).ClearContents
Else    ' L'utilisateur a choisi Non.
    MsgBox "suppression annulée" ' Effectue une action.quitter"
    End If

comment faire ?


-dans la colonne date de realisation, la date et l'heure s'affiche quand dans la colonne OK ? il y est mis OK
le hic c'est que la date et l'heure se fige pas

y a-t-il un moyen de les figer automatiquement ? ( sans l'utilisation des raccourcis )

-enfin je souhaite proteger ma macro en utilisant un code pour aller la modifier

comment faire ? ( mot de passe : 0000 )

merci d'avance pour m'aider à regler tout ses petits soucis

Vincent

[parmi]

Premièrement, tu dois enlever la protection avant le code qui travaille sur le feuille protégée et remettre cette protection par la suite (Sheets("...").Unprotect plus mot de passe si nécessaire) voir l'aide

Pour supprimer la ligne, utilise Delete plutôt que ClearContents qui ne fait qu'effacer le contenu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(MaLigne).Delete

Je n'ai pas très bien compris l'histoire de dates...

Pour protéger ton code, clique avec le bouton droit sur ton projet dans l'IDE, puis Propriétés de VBAProject, onglet Protection. Coche la case Verrouiller... et entre le mot de passe. (Ne l'oublie pas !)

[vincent59139]

je ne trouve pas l'aide ou est t'elle ?


Ce qui est de la protection, cela fonction quand j'appuie sur alt f11 et que j'y met mon code
par contre quand je fais dans affichage macros executer j'insere mon mdp est la il me dit acces refusé ? pourquoi ?

Ce qui est de .delete j'aimerais bien mais j'ai un tableau avec 20 lignes uniquement et si je supprime cela ne va pas
il faut l'action de clearcontent et remonter les lignes pleines
Comment faire ?

[parmi]

Pour l'aide... F1 comme à peu près tous les programmes compatibles Windows...

Si tu tapes F1 lorsque positionné sur un mot reconnu, l'aide s'ouvrira sur ce mot

Pour la protection, je ne sais pas comment tu as procédé, mais à partir du menu Macros, tu peux tout de même exécuter les macros déclarées Public, sauf si tu mets en entête de module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Private Module

À ce moment-là, les macros seront invisibles à l'utilisateur...

Delete supprime la ligne, donc les autres remontent.
Ça cause problème ?
Tu tiens à conserver les 20 lignes ?