D
delirium
Guest
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.
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.