Y
ya_v_ka
Guest
Salut tout le monde...
Question simple [pour les pros ben sur ! :-( ]
sur le code suivant:
Sub Macro3()
ActiveSheet.Unprotect
Columns("K:K").Select
Range("K3").Activate
Selection.Copy
Selection.Insert Shift:=xlToRight
Range("K3").Select
Application.CutCopyMode = False
Selection.Locked = False
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
comment remplacer la colonne K par celle sous le curseur et m'assurer que la cellule déprotégée est bien la 3 de la nouvelle colonne ?
merci d'avance ;-)
ya'v
Question simple [pour les pros ben sur ! :-( ]
sur le code suivant:
Sub Macro3()
ActiveSheet.Unprotect
Columns("K:K").Select
Range("K3").Activate
Selection.Copy
Selection.Insert Shift:=xlToRight
Range("K3").Select
Application.CutCopyMode = False
Selection.Locked = False
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
comment remplacer la colonne K par celle sous le curseur et m'assurer que la cellule déprotégée est bien la 3 de la nouvelle colonne ?
merci d'avance ;-)
ya'v