Xls 2007 - vba - personal.xlsb

Y compris Power BI, Power Query et toute autre question en lien avec Excel
m
micsel
Jeune membre
Jeune membre
Messages : 34
Inscrit le : 4 novembre 2019
Version d'Excel : 2007

Message par micsel » 4 novembre 2019, 13:49

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.jpg
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 3'882
Appréciations reçues : 182
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 4 novembre 2019, 14:57

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.
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
m
micsel
Jeune membre
Jeune membre
Messages : 34
Inscrit le : 4 novembre 2019
Version d'Excel : 2007

Message par micsel » 4 novembre 2019, 15:05

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message