Discussion :

[fabienrivron]

Bonjour à tous.

Je recherche à simplifier quelques lignes de codes telles que :

Code :

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

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

au lieu de

Code :

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

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 ?

[mercatog]

Exemple

Par colonne

Code :

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

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 :

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

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

[zackarry]

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

[SfJ5Rpw8]

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

... je crois que l'ignorant n'est pas celui que tu crois ..

utilise et essai de comprendre comment marche With

[el_slapper]

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

Code :

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

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 :

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

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.