Bonjour à tous
Je viens de changer de matériel,et suis passé de windows à mac,donc excel 2011, et le transfert de mes macros et codes VBA me pose quelques problèmes,dont le suivant
'entête rouge
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Intersect(Target, Range("A23:at24")) Is Nothing Then Exit Sub
'enlève la couleur en ligne 1
'Range("A23:bj24").Interior.ColorIndex = xlNone
' colorie la ligne 1 de la colonne active
'Cells(23, Target.Column).Interior.ColorIndex = 3
'For 14 = 1 To 8
'Cells(1 + i, 2).Value = Cells(24 + i, Target.Column).Value
'Next
'End Sub
Message :erreur de compilation attendu variable,sur la ligne : For 14 = 1 To 8
Mes connaissances en VBA sont des plus rudimentaires,et je n'arrive pas à trouver la solution.
J'ai neutralisé le code avec les apostrophes,en attendant une solution.
L'un d'entre vous aurait il la gentillesse de me dépanner ?
Merci
Bremic83
Je viens de changer de matériel,et suis passé de windows à mac,donc excel 2011, et le transfert de mes macros et codes VBA me pose quelques problèmes,dont le suivant
'entête rouge
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Intersect(Target, Range("A23:at24")) Is Nothing Then Exit Sub
'enlève la couleur en ligne 1
'Range("A23:bj24").Interior.ColorIndex = xlNone
' colorie la ligne 1 de la colonne active
'Cells(23, Target.Column).Interior.ColorIndex = 3
'For 14 = 1 To 8
'Cells(1 + i, 2).Value = Cells(24 + i, Target.Column).Value
'Next
'End Sub
Message :erreur de compilation attendu variable,sur la ligne : For 14 = 1 To 8
Mes connaissances en VBA sont des plus rudimentaires,et je n'arrive pas à trouver la solution.
J'ai neutralisé le code avec les apostrophes,en attendant une solution.
L'un d'entre vous aurait il la gentillesse de me dépanner ?
Merci
Bremic83