Simplification de code VBA

[delirium]

Bonsoir tous le monde.
Et oui j'ai encore une nouvelle question.

Voila j'ai une partie de code dans une application (fournis par TI), qui est :

With [E3]
.Formula = "='" & Chem & "\[" & ComboBox1.Value & "]Données'!A5"
.AutoFill [E3:E4]
End With

Le premier problème est que je ne veux pas importé les deux cellules A5 et A6, mais uniquement la cellule A5.

Le second est que si je veux importé une ligne (par exemple la ligne de A5 à F5, je suis obligé d'écrire :

With [E3]
.Formula = "='" & Chem & "\[" & ComboBox1.Value & "]Données'!A5"
.AutoFill [E3:E4]
End With
With [F3]
.Formula = "='" & Chem & "\[" & ComboBox1.Value & "]Données'!B5"
.AutoFill [F3:F4]
End With
With [G3]
.Formula = "='" & Chem & "\[" & ComboBox1.Value & "]Données'!C5"
.AutoFill [G3:G4]
End With
With [H3]
.Formula = "='" & Chem & "\[" & ComboBox1.Value & "]Données'!D5"
.AutoFill [H3:H4]
End With
With [I3]
.Formula = "='" & Chem & "\[" & ComboBox1.Value & "]Données'!E5"
.AutoFill [I3:I4]
End With
With [J3]
.Formula = "='" & Chem & "\[" & ComboBox1.Value & "]Données'!F5"
.AutoFill [J3:J4]
End With

Résultat j'importe une ligne de trop et le code et long.


Comment faire pour simplifier cela ?

Merci et à bientôt.

 

[Robert]

Salut Delirium, salut le forum

J'ai absolument pas testé (la flemme) donc je ne suis sûr de rien mais puisque nous sommes en plein délire... je te propose :

With [E3:J3]
.Formula = "='" & Chem & "\[" & ComboBox1.Value & "]Données'!A5:F5"
.AutoFill [E3:J4]
End With

J'ose à peine (un code de Ti, tu penses !), mais il me semble qu'il y a une apostrophe en trop entre le deuxième = et les guillemets. Mais il est fort possible que je me plante.

À plus,

Robert

 

[Ti]

petite précision (rendons à César ce qui est à César), dans ce code, je n'ai produit que :

& Chem & "\[" & ComboBox1.Value &

le reste n'est pas de moi !

 

[delirium]

Bonsoir Robert et TI.

Merci pour ce code., il m'aide grave à réaliser mon application.

A bientôt.