VBA et code de programmation allegé.

Bonjour à tous.

Je recherche à simplifier quelques lignes de codes telles que :

Code:

---

cells(i,1) = (a,b,c,d,e)

---

au lieu de

Code:

---

1 2	cells(i,1)= a cells(i+1,1)= b ....

---

Savez vous si une écriture est possible sous ce genre avec peut-être une autre syntaxe ?

Exemple

Par colonne

Code:

---

1 2 3

With Worksheets("Feuil1") .Range(.Cells(i, 1), .Cells(i + 3, 1)) = Application.Transpose(Array(a, b, c, d)) End With

---

Ou par ligne

Code:

---

1 2 3

With Worksheets("Feuil1") .Range(.Cells(1, i), .Cells(1, i + 3)) = Array(a, b, c, d) End With

---

Pourquoi tu fous un with pour une ligne ? Histoire de te la raconter ou par ignorance ?

Citation:

---

Envoyé par zackarry

Pourquoi tu fous un with pour une ligne ? Histoire de te la raconter ou par ignorance ?

---

:koi: ... je crois que l'ignorant n'est pas celui que tu crois ;) ..

utilise :f1: et essai de comprendre comment marche With ;)

Pour répondre autrement, je dirais que le with permet d'éviter, en une seule ligne, 3 occurences de "Worksheets("Feuil1")"

Code:

---

Worksheets("Feuil1").Range(Worksheets("Feuil1").Cells(1, i), Worksheets("Feuil1").Cells(1, i + 3)) = Array(a, b, c, d)

---

ça ne me parait pas forcément très lisible

Bon, perso, j'ai tendance à donner des variables courtes à mes onglets, du genre :

Code:

---

1 2 3

Dim WS1 as Worksheet Set WS1 = Worksheets("Feuil1") WS1.Range(WS1.Cells(1, i), WS1.Cells(1, i + 3)) = Array(a, b, c, d)

---

Mais la solution avec le With fonctionne parfaitement, et remplit son role de rendre la ligne plus légère, plus facile à lire. Ca n'est ni de l'ignorance, ni de la frime : c'est de l'élégance au service de la lisibilité et de la maintenabilité. Et même si il y avait eu une seule occurence sur une seule ligne, celà aurait quand même allégé ladite ligne.


Si je ne l'avais déjà fait, je mettrais un +1 à Mercatog rien que pour ce with.