Problème VBA

Fermé
Signaler
Messages postés
1
Date d'inscription
lundi 30 mars 2015
Statut
Membre
Dernière intervention
30 mars 2015
-
Bonjour,

Je'ai un problème avec VBA, voici le code

ActiveCell.FormulaR1C1 = "00h"
Range("B1").Select
ActiveCell.FormulaR1C1 = "01h"
Range("C1").Select
ActiveCell.FormulaR1C1 = "02h"
Range("D1").Select
ActiveCell.FormulaR1C1 = "03h"
Range("E1").Select
ActiveCell.FormulaR1C1 = "04h"
Range("F1").Select
ActiveCell.FormulaR1C1 = "05h"
Range("G1").Select
ActiveCell.FormulaR1C1 = "06h"
Range("H1").Select
ActiveCell.FormulaR1C1 = "07h"
Range("I1").Select
ActiveCell.FormulaR1C1 = "08h"
Range("J1").Select
ActiveCell.FormulaR1C1 = "09h"
Range("K1").Select
ActiveCell.FormulaR1C1 = "10h"
Range("L1").Select
ActiveCell.FormulaR1C1 = "11h"
Range("M1").Select
ActiveCell.FormulaR1C1 = "12h"
Range("N1").Select
ActiveCell.FormulaR1C1 = "13h"
Range("O1").Select
ActiveCell.FormulaR1C1 = "14h"
Range("P1").Select
ActiveCell.FormulaR1C1 = "15h"
Range("Q1").Select
ActiveCell.FormulaR1C1 = "16h"
Range("R1").Select
ActiveCell.FormulaR1C1 = "17h"
Range("S1").Select
ActiveCell.FormulaR1C1 = "18h"
Range("T1").Select
ActiveCell.FormulaR1C1 = "19h"
Range("U1").Select
ActiveCell.FormulaR1C1 = "20h"
Range("V1").Select
ActiveCell.FormulaR1C1 = "21h"
Range("W1").Select
ActiveCell.FormulaR1C1 = "22h"
Range("X1").Select
ActiveCell.FormulaR1C1 = "23h"
Range("Y1").Select
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("H14").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="=2"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A1:X2").Select
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("Feuil1!$A$1:$X$2")
End Sub

j'ai eu ce code en effectuant un enregistrement de macro, bref le soucis et que je veux le rendre autonome c'est à dire pouvoir l'exécuter lorsque je lance n'importe qu'elle exécutable excel, je sais qu'il faut utiliser auto_open dans le Personal.XL mais quand je l'exécute j'ai des erreurs tels que la 1004 et la 91.

Le plus bizarre c'est que dans le VB normal tous marche parfaitement aidez moi svp :(

(ps: ce code affiche des nombres numérique et les représente sous forme de graphique)