Bonjour à tous,
Je voudrais remplacer "graphAbsfeuillemodèle" et "graphOrdfeuillemodèle" par des variables correspondant à "graph" & nom.
Mais là, je sèche.
Si quelqu'un a la soultion ... je suis preneur
@ plus
Vous trouverez ci dessous, un bout de mon VBA
With Sheets("feuillemodèle") 'Création des noms des constantes
.Cells.Copy Sheets(nom).Cells
Ligne = .Range("totauxfeuillemodèle").Row
ad = .Range("titrescolonnesfeuillemodèle").Address
ad1 = .Range("totauxfeuillemodèle").Address
ad2 = .Range("stockdesécuritéfeuillemodèle").Address
ad3 = .Range("graphAbsfeuillemodèle").Address 'ajout le 04/04
ad4 = .Range("graphOrdfeuillemodèle").Address 'ajout le 04/04
ad5 = .Range("graphfeuillemodèle").Address 'ajout le 11/04
End With
With Sheets(nom) 'Nomination du titre de la feuille et des zones en fonction des constantes
.Range("a1") = nom
.Range(ad).Name = "titrescolonnes" & nom
.Range(ad1).Name = "totaux" & nom
.Range(ad2).Name = "stockdesécurité" & nom
.Range(ad3).Name = "graphAbs" & nom 'ajout le 04/04
.Range(ad4).Name = "graphOrd" & nom 'ajout le 04/04
.Range(ad5).Name = "graph" & nom 'ajout le 11/04
.Range("totaux" & nom).Replace what:="feuillemodèle", replacement:=nom, LookAt:=xlPart, SearchOrder:=xlByRows
Range("T9").Select
ActiveCell.FormulaR1C1 = "6"
ActiveSheet.ChartObjects("Chart 8").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Formula = _
"=SERIES(,'" & Range("A1").Value & "'!graphAbsfeuillemodèle,'" & Range("A1").Value & "'!graphOrdfeuillemodèle,1)"
Je voudrais remplacer "graphAbsfeuillemodèle" et "graphOrdfeuillemodèle" par des variables correspondant à "graph" & nom.
Mais là, je sèche.
Si quelqu'un a la soultion ... je suis preneur
@ plus
Vous trouverez ci dessous, un bout de mon VBA
With Sheets("feuillemodèle") 'Création des noms des constantes
.Cells.Copy Sheets(nom).Cells
Ligne = .Range("totauxfeuillemodèle").Row
ad = .Range("titrescolonnesfeuillemodèle").Address
ad1 = .Range("totauxfeuillemodèle").Address
ad2 = .Range("stockdesécuritéfeuillemodèle").Address
ad3 = .Range("graphAbsfeuillemodèle").Address 'ajout le 04/04
ad4 = .Range("graphOrdfeuillemodèle").Address 'ajout le 04/04
ad5 = .Range("graphfeuillemodèle").Address 'ajout le 11/04
End With
With Sheets(nom) 'Nomination du titre de la feuille et des zones en fonction des constantes
.Range("a1") = nom
.Range(ad).Name = "titrescolonnes" & nom
.Range(ad1).Name = "totaux" & nom
.Range(ad2).Name = "stockdesécurité" & nom
.Range(ad3).Name = "graphAbs" & nom 'ajout le 04/04
.Range(ad4).Name = "graphOrd" & nom 'ajout le 04/04
.Range(ad5).Name = "graph" & nom 'ajout le 11/04
.Range("totaux" & nom).Replace what:="feuillemodèle", replacement:=nom, LookAt:=xlPart, SearchOrder:=xlByRows
Range("T9").Select
ActiveCell.FormulaR1C1 = "6"
ActiveSheet.ChartObjects("Chart 8").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Formula = _
"=SERIES(,'" & Range("A1").Value & "'!graphAbsfeuillemodèle,'" & Range("A1").Value & "'!graphOrdfeuillemodèle,1)"