Discussion :

[d0n32]

Bonjour à toutes et à tous,

Lors de la suppression via macro d'une plage de cellules B, je suis confronté au problème de protection de celles-ci. Ces cellules B sont en effet des copies de cellules A qui doivent être protégées à tout prix.
L'utilisateur a la possibilité de supprimer les cellules B. Sauf que ma macro de suppression ne fonctionne pas, puisque les cellules B sont protégées.

J'ai essayé de m'inspirer du lien ci-dessous, sans trouver de solution convaincante à mon problème (en fait, je n'arrive pas à utiliser la fonction "unprotect" manifestement..) :

http://www.developpez.net/forums/d42...n-feuille-vba/

Toute idée est la bienvenue
Merci d'avance !

[White Mibu]

Bonjour,

je pense que déprotéger la feuille avant de supprimer et la protéger après la suppression de la colonne B devrait suffire ?

Code :

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

1
2
3
    ActiveSheet.Unprotect
    Columns("B:B").Delete
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Cordialement

[d0n32]

C'est parfait, merci beaucoup !
Je travaillais trop spécifiquement, avec les cellules, quand il apparaît bien plus simple de jouer sur la protection de la feuille entière !

Une autre petite question : qu'est-ce qui ne va pas dans le code ci-dessous ?

Code :

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

1
2
3
4
5
6
 
If Range("E9").Value < Range("f18").Value Then
                        Range("c21").Value = 0
                    Else
                        Range("c21").Value = Sum("B4:B8") + Sum("e4:e8")) / (sqrt(3) * Range("m3").Value)
                    End If

Lors de l’exécution de la macro, l'erreur "Sub ou Fonction non définie"

apparaît..

Merci encore !

[White Mibu]

C'est normal la fonction ne s'utilise pas comme ça, essai :

Code :

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

1
2
3
4
5
If Range("E9").Value < Range("F18").Value Then
    Range("C21").Value = 0
    Else
        Range("C21").Value = Application.Sum(Range("B4:B8")) + Application.Sum(Range("E4:E8")) / (Sqr(3) * Range("M3").Value)
    End If

Et en VBA sqrt devient Sqr(3).

Cordialement

[d0n32]

En plein dans le mille une fois encore !
Merci beaucoup..

Quel est alors le problème avec la syntaxe ci-dessous, avec cel défini comme Range ? L'erreur 'Incompatibilité de type" apparaît, j'ai bien essayé d'enlever les guillemets, sans effet..

Code :

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

Application.Sum("cel.Offset(0,-3):cel.Offset(i,-3)")

Merci..!

[White Mibu]

Oula ! ça me parait bizare ce que tu essai de faire...
C'est assez incohérent, l'offset s'utilise comme ceci :

Code :

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

ActiveCell.Offset(0, -3).Select

Mais dans ton cas je sais pas si cela va t'aider =S

Peut-tu m'expliquer ce que tu veux faire et le but de cette manip ?

Enfin je pense savoir ce que tu essai de faire mais tu dois t'y prendre comme ça :

Code :

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

1
2
Range(Cells(x, i - 3), Cells(x, i - 3)).Select
Application.Sum(Selection)

d'abords sélectionner les cases et ensuite faire la somme.

En ce qui concerne les variables, comment les mettre en place, il me faudrait plus d'infos sur ce que tu veux exactement pour t'aider =)