Fonction Range avec une variable

[max_31]

Bonjour tout le monde,

Je pense qu'il doit y avoir un moyen de simplifier le code suivant, mais je ne sais pas comment faire :
With Worksheets("Previsions")
.Range("H" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("I" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("J" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("K" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("L" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("M" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("N" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("O" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("P" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("Q" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
.Range("Q" & Compteur_ligne_Previsions) = "Non recherché"
End With

"Compteur_ligne_Previsions" étant une variable

Les forumers auraient ils une idée ?

Merci d'avance.

PS : j'ai essayé .range("H" & Compteur_ligne_Previsions : "Q" & Compteur_ligne_Previsions).... Mais cela n'a pas fonctionner...

 

[max_31]

Re : Fonction Range avec une variable

Merci beaucoup jmps,

Ca marche très bien.

Mais etant novice, j'aurais 2 questions :
- Pourquoi doit on commencer par i =72 pour la colonne H ?
- Est ce plus rapide de passer par la boucle que tu proposes que par la programmation que j'avais faite initialement ?

Et sinon est ce possible de le faire sans boucle ?

 

[myDearFriend!]

Re : Fonction Range avec une variable

Bonjour max_31, jmps, le Forum,

Dans ce cas précis, on devrait peut-être éviter la boucle.

Ci-dessous, 2 autres façons de procéder :

[SIZE=2]Dim Compteur_ligne_Previsions[COLOR=navy] As Long[/COLOR]
      ...
      [COLOR=navy]With[/COLOR] Worksheets("Previsions")
            .Range(.Cells(Compteur_ligne_Previsions, 8), .Cells(Compteur_ligne_Previsions, 17)) _
                        .Interior.ColorIndex = 33
            .Range("Q" & Compteur_ligne_Previsions) = "Non recherché"
      [COLOR=navy]End[/COLOR] With[/SIZE]

ou

[SIZE=2]Dim Compteur_ligne_Previsions[COLOR=navy] As Long[/COLOR]
      ...
      [COLOR=navy]With[/COLOR] Worksheets("Previsions")
            .Range("H" & Compteur_ligne_Previsions & ":Q" & Compteur_ligne_Previsions).Interior.ColorIndex = 33
            .Range("Q" & Compteur_ligne_Previsions) = "Non recherché"
      [COLOR=navy]End[/COLOR] With[/SIZE]

Un conseil également : tu devrais peut-être aussi essayer de raccourcir un peu tes noms de variable...

Cordialement,

 

[max_31]

Re : Fonction Range avec une variable

Merci pour les précisions jmps. Je me doutais que c'etait ca, mais la j'en ai la confirmation.
Merci mDF pour ta proposition. J'avais oublie quelques details dans mon champ.
Pour ce qui est des noms de variables, j'ai essaye d'etre explicite, car j'en ai beaucoup dans mon code (peut etre trop...), mais je voulais pouvoir m'y retrouver.

Merci pour votre aide.

 

[max_31]

Re : Fonction Range avec une variable

J'ai appliqué la methode de mFD, pour eviter la boucle.
Quand je l'applique a de la mise en forme, c'est nickel.
Par contre, quand je souhaite affecter des valeurs, ca ne fonctionne pas :
voila le code rentré:

Worksheets("Feuil1").Range("N" & i & "😛" & i) = Worksheets("RA").Range("C" & j & ":E" & j)

i, etant le numero de ligne de destination
j, etant le numero de ligne d'origine


En revanche, quand je tape le code suivant, ca fonctionne :
Worksheets("Feuil1").Range("N" & i) = Worksheets("RA").Range("C" & j)
Worksheets("Feuil1").Range("O" & i) = Worksheets("RA").Range("D" & j)
Worksheets("Feuil1").Range("P" & i) = Worksheets("RA").Range("E" & j)

Quelqu'un peut il me dire si je fais une erreur dans le 1er code, ou si ce que je souhaite n'est pas faisable ?

Merci d'avance.

 

[myDearFriend!]

Re : Fonction Range avec une variable

Re,

Tu peux essayer comme ça :

[SIZE=2]Worksheets("Feuil1").Range("N" & i & ":P" & i)[B].Value[/B] = Worksheets("RA").Range("C" & j & ":E" & j)[B].Value[/B][/SIZE]

Cordialement,

 

[max_31]

Re : Fonction Range avec une variable

Merci beaucoup.
Ca marche.
Mais je suis etonne que cela ne fonctionne pas directement sans le .Value, puisque je croyais que c'etait l'instruction par defaut...
Enfin l'essentiel c'est que maintenant ca tourne.
Merci encore mDF