Reference fixe à "défixer" !

[ya_v_ka]

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

 

[Robert]

Bonsoir Ya_v_ka, Bonsoir le forum,

Essaie avec ce code :

Sub Macro3()
ActiveSheet.Unprotect
'Columns("K:K").Select
ActiveCell.EntireColumn.Select
'Range("K3").Activate
Cells(3, ActiveCell.Column).Activate
Selection.Copy
Selection.Insert Shift:=xlToRight
'Range("K3").Select
Application.CutCopyMode = False
ActiveCell.Select
Selection.Locked = False
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

À plus,

Robert

 

[ya_v_ka]

Salut
Merci,
pas encore testé, mais ca ressemble à ce que je voulais
merci en tout cas
ya'v

 

[ya_v_ka]

re bonsoir tout le monde
d'abord merci à Robert, ca fonctionne...mais ... j'ai oublié 1 détail...

les lignes 7 à 37 de la colonne collée devraient être effacées (clearcontent), mais pas les autres qui contiennent des formules...

et si je me trouve dans la colonne A ou B, ca doit m'empecher de faire une con..rie... style: if activecolumn=A ou B then msgbox "pffffft" else "la macro"...

si quelqu'un peut traduire mon chinois culinaire en VBAnglais informatique...

;-)

Merci d'avance
Ya'v

 

[ya_v_ka]

oups ca fait 2 détails ca non ?

et en plus je sais pas compter...

;-))

ya'v

 

[ya_v_ka]

et voilà, problème 1 résolu avec Range.(cells(x,x),cells(x,x)) et ca marche...

 

[ya_v_ka]

et problème 2 solutionné aussi, mon if a pris racine ....