Mettre 2 Set dans un block With possible?

Bonsoir le forum,

Est-il possible de mettre 2 Set dans une boucle With? j'ai essayé comme ça mais j'ai une erreur:

Function TransfereIniModif()
Dim ligne As ListRow
Dim LI As Integer

Set ligne = ts1.ListRows.Add: LI = ligne.Index
Set ligne = ts6.ListRows.Add: LI = ligne.Index
With ts1 & ts6
'
'
'monCode
'
'
End With
End Function

J'ai 2 Set car j'ai bien de 2 tableaux a lequel je vais ajouter une ligne, si c'est pas possible j'ajouterais tout simplement une deuxième boucle with, mais j'aimerais raccourcir un peut mon code. Merci pour votre aide.

Cordialemnt.

Bonsoir,

non ce n'est pas possible... De plus avec des variables identiques seul la deuxième ligne sera prise en compte car elle écrasera les donnée du premier "Set".

@ bientôt

LouReeD

D'accord merci pour l'information LouReeD, passe une bonne soirée.

Après je n'ai peut-être pas tout bien saisie dans la façon de faire...

Merci pour vos remerciements !

@ bientôt

LouReeD