Problème avec une variable

[Magic_Doctor]

Bonsoir à tous,

Je suis confronté à ce problème :

Si j'écris ceci :

Sub Problem1()

Dim couleurlignes1 As Range

Set couleurlignes1 = [CouleursLignes].Resize(1)
couleurlignes1.Select 'ça marche

End Sub

Mais quand j'écris ceci :

Sub Problem2()

Dim couleurlignes1 As Range, x As Byte

x = 1

Set couleurlignes1 = [CouleursLignes].Resize(1)
Range("couleurlignes" & x).Select 'ça ne marche pas (Erreur 1004)

End Sub

Comment résoudre ce problème ?

Merci d'avance.

 

[JBARBE]

Re : Problème avec une variable

Bonsoir,

On ne peut mettre une variable ( x ici) dans une cellule nommées ici(couleurlignes)

il y a :

Range("couleurlignes" & x)

Essayez:

Range("couleurlignes") + x

 

[Magic_Doctor]

Re : Problème avec une variable

Bonsoir JBARBE,

Malheureusement ça ne marche pas.

 

[JBARBE]

Re : Problème avec une variable

Je comprends pas la fonction de la variable x qui vient se greffer dans la cellule nommée couleurlignes !!!

Il y a là incohérence, quel est le but de x SVP!

 

[Magic_Doctor]

Re : Problème avec une variable

Je comprends votre réflexion.
Ce n'est qu'un résumé des plus minimalistes de ma macro.
En fait x récupère la valeur d'une cariable "Public". J'ai mis x = 1 pour faire simple. En réalité X = compt ("compt" étant la variable "Public").
Mais au final, le raisonnement est le même.

 

[JBARBE]

Re : Problème avec une variable

Dans ce cas je jette l'éponge et souhaite qu'un Forumeux plus compétant trouve la solution !

Mais il est vrai qu'avec une macro plus complète cela pourra peut-être être plus facile !

En attendant, je te souhaite bonne chance et bonne soirée !