Graphique : Erreur code VBA sur Excel 2007 alors fonctionnant parfaitement sur 2003

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Malka
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Malka

XLDnaute Occasionnel
Bonsoir,

Je suis vraiment coincée ce soir sur mon application que j'ai développé sur la version Excel 2003 pour plusieurs utilisateurs...
Or une partie des utilisateurs sont sur Excel 2003 et d'autres sur Excel 2007. 😡

Tout fonctionne à merveille sur mon excel 2003 mais ca bloque sur la genération des graphiques dont voici le code que j'utilise :

VB: 
Sub GraphiquePrincipale()

Application.ScreenUpdating = False

'Demasquage des sheets masquées
Sheets("Winshuttle").Visible = True
Sheets("WinshuttleCléImmo").Visible = True
Sheets("ClésDistribution").Visible = True
Sheets("UO CP").Visible = True
Sheets("UO CC").Visible = True
Sheets("UO OI").Visible = True
Sheets("UO RE").Visible = True
Sheets("Paramètres").Visible = True





    y = ActiveCell.Row
    
  
 'Construction du premier graphique
    Range("I" & y, "T" & y).Copy
    Sheets("Paramètres").Select
    Range("I2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("UO").Select
    Application.CutCopyMode = False
    Sheets("Paramètres").Select
    CelluleVide = WorksheetFunction.CountBlank(Range("I2:T2"))
       If CelluleVide <> 0 Then
    Range("G2").Select
    Selection.Copy
    Range("I2:T2").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
       End If
       
    Sheets("UO").Select
    Range("W" & y, "AH" & y).Copy
    Sheets("Paramètres").Select
    Range("I3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("UO").Select
    Application.CutCopyMode = False
    Sheets("Paramètres").Select
    CelluleVide = WorksheetFunction.CountBlank(Range("I3:T3"))
       If CelluleVide <> 0 Then
    Range("G3").Select
    Selection.Copy
    Range("I3:T3").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
       End If
       

    Sheets("UO").Select
    Range("AK" & y, "AV" & y).Copy
    Sheets("Paramètres").Select
    Range("I4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("UO").Select
    Application.CutCopyMode = False
    Sheets("Paramètres").Select
    CelluleVide = WorksheetFunction.CountBlank(Range("I4:T4"))
       If CelluleVide <> 0 Then
        Range("G4").Select
    Selection.Copy
    Range("I4:T4").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
        End If
    

    Sheets("UO").Select
    Range("BF" & y, "BQ" & y).Copy
    Sheets("Paramètres").Select
    Range("I5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("UO").Select
    Application.CutCopyMode = False
    Sheets("Paramètres").Select
    CelluleVide = WorksheetFunction.CountBlank(Range("I5:T5"))
       If CelluleVide <> 0 Then
    Range("G5").Select
    Selection.Copy
    Range("I5:T5").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
            End If

'Ajout du nouveau graphique (premier)
    
    
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Paramètres").Range("H1:T1,H2:T5") _
        , PlotBy:=xlRows
   
    ActiveChart.Location Where:=xlLocationAsObject, Name:="UO"
    
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Montant en €"
    End With
    
    ActiveChart.ChartArea.Select
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = Application.Trim(Range("C" & y)) & " / " & Application.Trim(Range("B" & y))
    End With
    
         
    With ActiveChart.Axes(xlCategory)
        .HasMajorGridlines = True
        .HasMinorGridlines = False
    End With
    With ActiveChart.Axes(xlValue)
        .HasMajorGridlines = True
        .HasMinorGridlines = False
    End With
    ActiveChart.HasDataTable = False
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    With Selection.Border
        .ColorIndex = 17
        .Weight = xlHairline
        .LineStyle = xlDot
    End With
    ActiveChart.Axes(xlCategory).MajorGridlines.Select
    With Selection.Border
        .ColorIndex = 17
        .Weight = xlHairline
        .LineStyle = xlDot
    End With
    ActiveChart.PlotArea.Select
    With Selection.Border
        .ColorIndex = 57
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    Selection.Interior.ColorIndex = xlNone
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .ColorIndex = 57
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = xlAutomatic
        .MarkerForegroundColorIndex = xlAutomatic
        .MarkerStyle = xlAutomatic
        .Smooth = False
        .MarkerSize = 9
        .Shadow = False
    End With
    
    ActiveChart.Axes(xlCategory).Select
    With Selection.TickLabels
        .Alignment = xlCenter
        .Offset = 100
        .ReadingOrder = xlContext
        .Orientation = xlUpward
    End With
    
     'Carateristiques de la deuxieme serie du premier graphique
    ActiveChart.SeriesCollection(2).Select
    With Selection.Border
        .ColorIndex = 50
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = 50
        .MarkerForegroundColorIndex = 50
        .MarkerStyle = xlSquare
        .Smooth = False
        .MarkerSize = 5
        .Shadow = False
    End With
    ActiveChart.ChartArea.Select

     'Carateristiques de la troisieme serie du premier graphique
    ActiveChart.SeriesCollection(3).Select
    With Selection.Border
        .ColorIndex = 15
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = 15
        .MarkerForegroundColorIndex = 15
        .MarkerStyle = xlSquare
        .Smooth = False
        .MarkerSize = 5
        .Shadow = False
    End With
    ActiveChart.ChartArea.Select

     'Carateristiques de la quatrieme serie du premier graphique
    ActiveChart.SeriesCollection(4).Select
    With Selection.Border
        .ColorIndex = 45
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
    With Selection
        .MarkerBackgroundColorIndex = 45
        .MarkerForegroundColorIndex = 45
        .MarkerStyle = xlSquare
        .Smooth = False
        .MarkerSize = 5
        .Shadow = False
    End With
    ActiveChart.ChartArea.Select




With Sheets("UO").ChartObjects(1)
.Top = Range("BF" & y + 2).Top
.Left = Range("AZ" & y).Left
End With
  


Range("AZ" & y).Select



'Masquage des sheets masquées
Sheets("Winshuttle").Visible = False
Sheets("WinshuttleCléImmo").Visible = False
Sheets("ClésDistribution").Visible = False
Sheets("UO CP").Visible = False
Sheets("UO CC").Visible = False
Sheets("UO OI").Visible = False
Sheets("UO RE").Visible = False
Sheets("Paramètres").Visible = False



Application.ScreenUpdating = True


End Sub

La macro bloque sur la ligne
.HasTitle = False

J'ai l'impression qu'il ne reconnait pas ce code sur la version 2007 😕


Je suis désesperrée car je dois déployer cette application demain.... 🙁

Si quelqu'un aurait une idée pour me sortir de ce probleme. Je cherche un code qui peut marcher sur les 2 versions d'excel. 😱

Sinon, j'ai programmé sur Excel 2003.... je ne pensais pas que j'aurai des problemes sur 2007.

Merci beaucoup 🙄

Malka
 
Dernière édition:
Trier par date Trier par votes
Re : Graphique : Erreur code VBA sur Excel 2007 alors fonctionnant parfaitement sur 2

Bonjour à tous,

J'ai créé un fichier (avec toutes les feuilles necéssaires) où j'ai inséré la macro, l'exécution de la macro dans les deux versions 2003 et 2007 n'a posé aucun problème... Je n'ai aucune explication à ton problème...

Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Graphique : Erreur code VBA sur Excel 2007 alors fonctionnant parfaitement sur 2

Bonjour

Merci d'avoir essayé le code mais je te confirme bien que j'ai toujours la meme erreur sur cette meme ligne et j'ai essayé mon fichier excel sur 3 postes differents avec excel 2007.... Je pense que tu dois avoir un parametre particulier que je n'ai pas activé dans mon excel 2007 (tables de references dans VBA par exemple....)

Je rappelle que le code bloque sur ces lignes de code :
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Montant en €"
End With

Avec le message d'erreur suivant :
"Erreur d'exécution '-2147467259 (80004005)':
La methode "HasTitle' de l'objet 'Axis' a échoué"


Si d'autres personnes ont d'autres idées pour m'en sortir , je suis preneuse car je suis vraiment dans la m**de



Merci pour toute aide

Malka
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
313
MOLY_
M
arck
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
425
AtTheOne
AtTheOne
arck
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
198
Phil69970
Phil69970
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
653
ph.vanne
ph.vanne
eastwick
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
136
eastwick
eastwick
richardlion
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
422
sylvanu
sylvanu
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
507
Nounours4173
N
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
345
MICHIS
M
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
423
cdric78
C
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
778
Phil69970
Phil69970
micie1509
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
546
micie1509
micie1509
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
718
robpellan52
R
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
job75
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
432
Francky79
F
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
696
Valter
V
mouchtre
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
mouchtre
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
844
olivier388
O
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
805
gwenn49
G
Usine à gaz
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
684
Usine à gaz
Usine à gaz
Retour