opimisation un code vba excel

bonjour,
je cherche a optimiser le code VBA suivant:

Code:

---

1 2 3 4 5 6

Feuil10.Range("I15") = gg(1, 1) Feuil10.Range("U15") = gg(1, 2) Feuil10.Range("AG15") = gg(1, 3) Feuil10.Range("AS15") = gg(1, 4) Feuil10.Range("BE15") = gg(1, 5) Feuil10.Range("BQ15") = gg(1, 6)

---

quand je fais

Code:

---

feuil10.Range("I15,U15,AG15,AS15,BE,BQ")=gg

---

j'aurai un faux résultat


Je m'en remets a votre expertise
Je vous remercie d'avance
Max

Bonjour,

Une solution

Code:

---

1 2 3 4 5 6 7

Dim i As Integer i = 1 For Each cel In Range("I15,U15,AG15,AS15,BE15,BQ15") cel.Value = gg(1, i) i = i + 1 Next cel

---

bonjour jfontaine,
le code que tu m'as envoyé ne marche pas erreur su range

remplace range par : Thisworkbook.feuil10.Range, il vaut toujours mieux préciser la feuille en cours au cas ou celle-ci ne soit pas celle sur laquelle tu veux agir.

sinon il n'y as pas de raison que le code donné ne marche pas...

bonjour,

ça ne marche pas toujours .


crd,

Ou se trouve l'erreur. quel message?

sur mon poste ca fonctionne sans problème si je remplace gg(1,i) par 1
es tu sur de ta variable