Bonjour,
Voila mon besoin : Je souhaite à l'aide d'un bouton pouvoir griser (désactiver) certaines colonnes. Lorsque je clique à nouveau sur le bouton toutes les colonnes sont de nouveau accessible. Sachant que mon programme utilise le bout de code suivant pour automatiser le passage d'une cellule à une autre ( sur une même ligne)
Les colonnes que je souhaite désactiver sont les suivantes : E, H, K, M, P, S.
Public Sub Position()
'
Dim irow%, iCol%
ActiveSheet.Unprotect
Application.EnableEvents = False
'
irow = Range("A" & Rows.Count).End(xlUp).Row
iCol = Cells(irow, Columns.Count).End(xlToLeft).Column
'
Cells(IIf(Cells(irow, 22) = "", irow, irow + 1), IIf(Cells(irow, 22) = "", iCol + 1, 1)).Select
'If Selection.Column = 19 Then Call Acceptation(irow)
Application.EnableEvents = True
Selection.Locked = True
ActiveSheet.Unprotect
'
End Sub
Merci d'avance