XL 2016 formule sur VBA

[judoka0209]

Bonjour, j'ai une formule en C15, C28, C41, C53, C66 et C79 à AN79 (sur le fichier j'ai mis qu'un bout) qui marche nickel mais je voudrais savoir comment écrire une routine qui fait la même chose en vba car j'ai des gentils collègues qui tripote a tout
merci

 

[judoka0209]

personne😳

 

[Staple1600]

Bonsoir

Protège ta formule (en protégeant ta feuille*)
Ainsi tes collègues ne verront pas la formule et ne pourront pas la supprimer.

*: Voir sur le net, comment protéger une feuille (en laissant certaines cellules en saisie libre, et d'autres pas, notamment celles qui contiennent des formules)

 

[judoka0209]

impossible ils doivent completer les cases

 

[Staple1600]

Re

Relis, ce que je viens d'écrire dans mon précédent message...🙄
Notamment la dernière phrase après l'étoile

 

[judoka0209]

j'ai bien compris mais c'est pas ce que je veux faire
🙂

 

[Staple1600]

Re

La protection d'une feuille permet de laisser libre en saisie, les cellules dans lesquelles l'utilisateur doit saisir des données.
Cela correspond bien à ton cahier des charges, non ?

impossible ils doivent completer les cases

Donc plutôt de réécrire ce qui concerne la protection, je t'invite à lire ce tuto de la maison mère.

Verrouiller les cellules pour les protéger dans Excel - Support Microsoft

Comment verrouiller des cellules dans des feuilles de calcul et des classeurs Excel pour protéger vos données.

support.office.com

 

[judoka0209]

non je ne peux pas les verrouiller car il y a d'autre programme en vba qui tourne et qui n'aime pas le verrouillage

 

[Staple1600]

Re

La formule est la même dans toutes les cellules?
D'ailleurs, tu peux la poster dans le fil, cette formule, stp?

PS: Pour le VBA et la protection des feuilles, voir du côté de : UserInterfaceOnly

 

[fanch55]

Salut,
Une proposition ci-dessous :
Dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
   Protege_Formule Target
End Sub

Dans un module ( ou dans la feuille si usage unique) :

Function Protege_Formule(Target As Range) As Boolean
Dim Formules()   As String
Dim I            As Long

Application.EnableEvents = False

    ReDim Formules(Target.Count)
    For I = 1 To Target.Count               ' passe pour sauvegarder
        Formules(I) = Target(I).Formula     ' les cellules modifiées
    Next
   
    Application.Undo                        ' On restaure toutes les anciennes valeurs

    For I = 1 To Target.Count
        If Not Target(I).HasFormula Then    ' Si l'ancienne valeur n'a pas de formule
            Target(I).Formula = Formules(I) ' On restitue la cellule sauvegardée
            Protege_Formule = True          ' Une restitution a été effectuée
        End If
    Next

Application.EnableEvents = True

End Function

Nota: Par la suite, pour modifier une cellule avec une formule, il faudra entrer en "Développeur\mode Création" ou désactiver les Macros ...

 

[fanch55]

Salut,
Proposition non conforme au besoin ? 🙄

 

[patricktoulon]

bonjour
faudrait déjà donner le mot de passe de ton fichier