Discussion :

[Xavv62]

Bonjour à tous,
Je travaille dans un laboratoire de contrôle et j'ai mis en place un fichier pour la saisie des résultats de production
Ce fichier est protégé par un mdp et certaines cellules sont bloquées dont la colonne L.
J'aimerais mettre en place une commande bouton qui une fois activée sauvegarde le fichier, déverouille la cellule L2 si L1 remplie, colore la cellule A1 en vert par exemple et affiche un message stipulant que l'analyse a bien été sauvegardé.
Et ainsi de suite sur tout le tableau (pour info nous sommes à la ligne 4763 à l'heure ou j'écris ce message)
La saisie de cette cellule entraîne, via une autre macro ,l'enregistrement de la date et l'heure de la saisie du résultat.
Merci de votre aide.

[MarcelG]

Bonjour Xavv,

(Bienvenu sur le Forum)

As-tu développé un code VBA pour ces actions.
Retourne-le dans son intégralité et signale les difficultés.

[Menhir]

J'aimerais mettre en place une commande bouton qui une fois activée sauvegarde le fichier,

Méthode Save (ou SaveAs si on veut modifier le nom) de Workbook.
https://docs.microsoft.com/fr-fr/off....workbook.save
https://docs.microsoft.com/fr-fr/off...orkbook.saveas

déverouille la cellule L2 si L1 remplie

Pour déverrouiller une cellule, il faut commencer par lever la protection de la feuille avec la méthode Unprotect de Worksheet.
https://msdn.microsoft.com/fr-fr/lib...3(v=office.15)
Puis changer la propriété Locked de la cellule.
https://msdn.microsoft.com/fr-fr/lib...2(v=office.15)
Et remettre la protection sur la feuille avec Protect.
https://msdn.microsoft.com/fr-fr/lib...1(v=office.15)

Pour vérifier si une cellule est remplie, un simple test If sur son contenu suffit.

colore la cellule A1 en vert

Propriété Interior de Range avec Color ou ColorIndex
https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)

affiche un message stipulant que l'analyse a bien été sauvegardé.

Ca dépend où et comment tu veux que ce message s'affiche.
Si c'est un popup que tu veux, tu peux utiliser la fonction Msgbox.
https://docs.microsoft.com/fr-fr/off...sgbox-function

Et ainsi de suite sur tout le tableau

Faire une boucle For To.
https://docs.microsoft.com/fr-fr/off...next-statement

Pour avoir le numéro de la dernière ligne, utiliser la propriété End, de préférence avec le paramètre xlUp.
https://msdn.microsoft.com/fr-fr/lib...9(v=office.15)

[Xavv62]

Merci, je reviens vers vous en espérant y être parvenu.

[Xavv62]

Bon je viens d'essayé mais sans réussite,
Voici la macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton2_Cliquer()
For i = 1 To 10000
    If Cells(i, 8) <> "" Then
        ActiveWorkbook.Save
        ActiveSheet.Unprotect "mdp"
        Cells(i, 8).Select
        Selection.Locked = False
        Cells(i, 1).Interior.ColorIndex = 6
        ActiveSheet.Protect "mdp"
        MsgBox "Analyse sauvegardé"
    End If
Next
End Sub

D'où viennent les problèmes?

Merci

[MarcelG]

Salut,

S'il te plaît, balise ton code (#) et indente-le.
Retire ces p.. de Select, Activate...

Ton fichier est sauvegardé à chaque occurrence de ta boucle. Cela ne sert à rien.

D'où viennent les problèmes?

Lesquels? (Bug sur quelle ligne, inefficacité...)

[Xavv62]

Je ne m'y connais pas en VBA
J'essaye d'adapter les macros que je trouve en général mais la je sèche

S'il te plaît, balise ton code (#) et indente-le.
Retire ces p.. de Select, Activate...

Je ne comprends pas ce que tu veux au juste

Je vais essayer de me débrouiller autrement