Bonjour,
je viens à vous car je rencontre un petit soucis.
j'ai un code vba que j'utilise pour un fichier pour laquelle je ne rencontre pas de soucis.
j'ai voulu que ce code soit opérationnel sur TOUS mes classeurs, donc on suivant les sujets j'ai crée ma macro dans dossier personnel.
Mais voila, car il faut un mais ...
Quand j'ai copié/collé ce code, que j'ai enregistré , la macro s'ouvre dès que j'ouvre excel (ce que je voulais), mais affiche : erreur de compilation, instruction incorrecte à l'écriture
je vous joins le code ainsi qu'un imprim écran.
' LigneCouleur Macro
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = [A1:CZZ55000]
If Not Intersect(champ, Target) Is Nothing Then
On Error Resume Next
Shapes("curseurH").Visible = True
If Err <> 0 Then ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1, 1, 1000, 1).Name = "curseurH"
Shapes("curseurV").Visible = True
If Err <> 0 Then ActiveSheet.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 1000, 1).Name = "curseurV"
ActiveSheet.Shapes("curseurH").Line.ForeColor.RGB = RGB(255, 0, 0)
Shapes("curseurH").Top = ActiveCell.Top + ActiveCell.Height
Shapes("curseurH").Height = 1
Shapes("curseurH").Width = champ.Width
Shapes("curseurH").Left = champ.Left
ActiveSheet.Shapes("curseurV").Line.ForeColor.RGB = RGB(255, 0, 0)
Shapes("curseurV").Left = ActiveCell.Left
Shapes("curseurV").Top = champ.Top
Shapes("curseurV").Width = 1
Shapes("curseurV").Height = champ.Height
Else
On Error Resume Next
Shapes("curseurH").Visible = False
Shapes("curseurV").Visible = False
End If
End Sub
Si vous pouviez m'aiguiller, ou m'aider, ce serait magnifique