Discussion :

[Maxim0]

bonjour,
je cherche a optimiser le code VBA suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,

Une solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Maxim0]

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

[SfJ5Rpw8]

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...

[Maxim0]

bonjour,

ça ne marche pas toujours .


crd,

[jfontaine]

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