Discussion :

[Nounours1]

Bonjour,

Je ne connais pas VBA EXCEL, je voudrais lorsque j’agrandis un tableau le déprotégé puis le protéger de nouveau lorsque la ligne est créer par la souris ou par la touche TAB.

J'ai fais un essai avec ce code par l'enregistreur mais .....

Code :

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

1
2
3
4
5
6
7
Private Sub Macro1()
 
    ActiveSheet.ListObjects("Tableau1").Resize Range("$B$7:$I$13")
    Unprotect Password:="s"
    Range("G3").Select
    Protect Password:="s"
End Sub

On doit pouvoir faire mieux avec un bouton de commande par exemple.
Je précise les colonnes qui devraient être protégées C,D,G,I
Merci.

[Philippe Tulliez]

Bonjour,
Il y a moyen d'écrire dans des cellules protégées en mettant la valeur de la propriété userinterfaceonly à True mais curieusement j'ai essayé avec Resize et cela ne fonctionne pas.
Une solution serait de faire un Copier/Coller
Exemple de la recopie d'une cellule D2 (protégée) vers les cellules $D$3:$D$13

Code :

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

1
2
3
4
5
6
Private Sub Macro1()
 Dim sht As Worksheet: Set sht = ActiveSheet
 sht.protect Password:="s", userinterfaceonly:=True ' , AllowFormattingColumns:=True, AllowFormattingRows:=True
 sht.Range("D2").Copy sht.Range("D3:D13")
 ' sht.ListObjects("Tableau2").Resize Range("$A$1:$D$13")
End Sub

[alsimbad]

salut
dans ton code, la ligne contenant le resize ne devrait elle pas etre entre le unprotect et le protect?

[Nounours1]

Merci, mais ça ne fonctionne pas car une fois protégé on n'a plus la poignée de recopie du tableau, j'ai donc fais un essai par insertion de ligne mais sans résultat la ligne c'est bien placée mais sans formule dedans de plus un message est apparu me disant qu'il est impossible d'ajouter une ligne.

Encore merci.

[Nounours1]

Une idée me vient, si un code pouvait écrire les formules des cellules a chaque fois que l'on écris par exemple dans la cellule "C:C" qui elle est toujours déverrouillée ?

Par exemple en J:J:

Code :

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

=SI(F12="";"";DATEDIF(F12;AUJOURDHUI();"y")&" "&"ans")

ou en colonne "D"

Code :

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

=SI(B13="";"";RECHERCHEV(B13;Eleves;2))

Cela doit pouvoir ce faire.

Encore merci.

[Philippe Tulliez]

Bonjour,
As-tu lu mon post. Tu peux parfaitement écrire dans une cellule protégée avec du code VBA en mettant la valeur de la propriété userinterfaceonly de la méthode Protect à True.

[Nounours1]

Oui, je l'ai bien lu mais je ne connais pas VBA d'Excel je ne comprend pas, tu pourrais me passer un exemple pour l'étudier avec une de mes formule par exemple ?

en fait il est impossible d'insérer une ligne alors que dans l'option de la protection "Insérer des lignes est bien cochée".

Je commence à comprendre un peux mais ce n'est pas simple.
Maintenant reste à voir en insérant si les formules seront bien en place.

Merci.