Bonjour à tous,
Comme je t'ai dit en MP
Il n'y a pas de mot de passe pour la protection feuille et les codes sont accessibles.
J'ai fait ce fichier en 2008 et ne tiens pas à refaire une adaptation "clés en main" !
Si tu te débrouille en VBA, tu dois pouvoir formater et modifier à ta guise,
si çà coince, ouvre un poste et expose ton problème.
PS: je ne suivrais pas ce poste en MP.
Bon courage
Claude
à l'époque où j'ai fait ce programme, je débutais en VBA et si je le refaisais aujourd'hui, il
serait bien différent, j'ai même du mal à me relire !
----- quelques pistes pour débroussailler -----
1) tu affiche N° lignes et colonnes avec
ActiveSheet.Unprotect
ActiveWindow.DisplayHeadings = True
Application.EnableEvents = False
2) pour mieux comprendre, tu affiche la colonne "V" (masquée)
3) modifier la macro "choix1" (variable "i" et ligne supprimée)
Sub choix1()
Dim i As Integer, k As Integer
k = ActiveCell.Row
'i = Cells(k, 28)
ActiveSheet.Unprotect
Range("u22:u30,w22:w30").Interior.ColorIndex = xlNone
With ActiveCell
'''.Interior.ColorIndex = Range("x" & i + 21).Interior.ColorIndex
.Interior.ColorIndex = Range("x" & k).Interior.ColorIndex
.Offset(0, 1).Name = "bibi"
End With
ActiveSheet.Protect
End Sub
Après çà, je pense que tu verras + clair pour adapter
Amicalement
Claude