Remplacer lettre colone par une variable dans Range

G

GIBI

XLDnaute Impliqué

• 10 Août 2012

• #2

Re : Remplacer lettre colone par une variable dans Range

Bonjour,

avec union tu peux réunir plusieurs plage

Set a = Union(Range(Cells(112 , 1), Cells(134, 1)), Range(Cells(112, 4), Cells(134, 7)))
a.Select

ou a.Value="TOTO"

 

Dernière édition: 10 Août 2012

Vote positif 0 Vote négatif

T

Tr4ks

XLDnaute Nouveau

• 10 Août 2012

• #3

Re : Remplacer lettre colone par une variable dans Range

Merci de ta réponse mais je n'arrive pas à trouver comment faire pour définir la source avec cette expression, il s'agit d'utiliser la sélection comme donnée pour construire un graphe, voici le code :

Code:

Charts.Add
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData Source:=Sheets("Calcul").Range("A112:A134,B112:G134"), PlotBy:=xlColumns

Je ne sais pas comment utiliser la variable a dans l'expression.

 

Vote positif 0 Vote négatif

G

GIBI

XLDnaute Impliqué

• 10 Août 2012

• #4

Re : Remplacer lettre colone par une variable dans Range

J'ai essayé le code suivant qui fonctionne (j'ai associé l'onglet "Calcul" à la création de l'objet Plage (avant c'était A) pour enlever le pb)

Code:

Dim Plage As Range

With Sheets("Calcul")
  Set Plage = Union(Range(.Cells(112, 1), .Cells(134, 1)), Range(.Cells(112, 2), .Cells(134, 7)))
End With

Charts.Add
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=Plage, PlotBy:=xlColumns

 

Vote positif 0 Vote négatif

T

Tr4ks

XLDnaute Nouveau

• 10 Août 2012

• #5

Re : Remplacer lettre colone par une variable dans Range

Merci beaucoup pour ton aide, ça marche impec'

 

Vote positif 0 Vote négatif