un range(column qui ne marche pas !

[Crepy]

B'soir all,

J'ai trouvé une solution pour mon column, mais maintenant j'ai un autre problème.

Explications : Pour un GRaph j'ai besoin de selectionner 2 plages de données pour le même axe, séparées par une colonne. Cette longueur de serie est aléatoire.

Je part donc de ma première colonne fixe, je cherche la fin de la ligne.
Ensuite, j'ajoute 2 à cette valeur(pour sauter ma case vide) et j'obtiens le depart de ma 2eme serie.

Là ou ca merde, c'st pour definir le fin de la deuxième serie. Je tente de faire un column, d'un column et ca n'a pas l'air de lui plaire mais pas du tout !!

Z'avez une solution ?

Private Sub CommandButton1_Click()
Dim Saut2 As Integer
Dim Saut1 As Integer
Dim Depart1 As Integer

Saut1 = Feuil1.Range("C12").End(xlToRight).Column
Depart1 = Saut1 + 2
Saut2 = Feuil1.Range(Columns(Depart1) & "12").End(xlToRight).Column

Merci d'avance

Creepy

 

[vincent]

Re

remplace

Depart1 = Saut1 + 2
Saut2 = Feuil1.Range(Columns(Depart1) & "12").End(xlToRight).Column

par

saut2=Feuil1.cells(12,saut1+2).End(xlToRight).Column

A plus

@Vincent