Bonjour,
Tout d’abord merci pour ce forum et l’aide de tous !
Mon problème est le suivant : je travaille sur un plan d’accréditation, dont je veux que certaines cellules prédéfinies ne soient pas modifiables, et par contre d’autres cellules elles doivent être complétées par des tierces personnes. J’ai donc procédé au blocage de ces cellules par une protection de feuille. Jusque là tout va bien.
MAIS :
A ce plan initial doit être ajouté une ligne par personne à accréditer. J’ai, grâce à votre forum, ajouté une macro qui me permet d’insérer une ligne identique à celle où l’on était initialement positionné (déjà complétée et non vierge). La macro est la suivante :
Sub insertionLigne()
With ActiveCell
.EntireRow.Insert xlShiftDown 'Insert une ligne au dessus
.EntireRow.Copy ' Copie la ligne active
With .Offset(-1).EntireRow 'Passe les formats et formules à la ligne insérée
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteFormulas
End With
Application.CutCopyMode = False
End With
End Sub
Le problème maintenant est qu’en mode de feuille protégée, il semble impossible d’appliquer la macro (Run time error 1004). Et si je n’applique pas de macro (en insérant une ligne de façon normale), cette ligne insérée est vierge et n’autorise pas les tierces personnes à compléter les cellules bloquées. J’ai par ailleurs tenté d’ajouter la macro suivante, sans succès :
Sub Test3()
ActiveSheet.Unprotect
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
End Sub
Petite précision : je ne peux à l’avance créer le nombre de lignes requis, car le nombre de personnes à accréditer par catégorie varie d’un évènement à l’autre.
Pouvez-vous m’aider ?
Merci beaucoup !