Xls 2007 - VBA - personal.xlsb

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

pb vba

Bonjour Micsel, bonjour le forum,

Je ne pense pas que tu puisses utiliser l'événement SelectionChange ou toute autre événementielle dans Personnal.xlsb.

Bonjour ThauThème,

bon ben merci, alors je créerai un fichier "base" dans laquelle je collerai mes données dedans.

Comme cela je ne serai pas bloqué

Merci pour ta réponse.

Bonne journée

Rechercher des sujets similaires à "xls 2007 vba personal xlsb"