Definir un tableau array avec 2 plages discontinue

[Seb]

Bonsoir à tous,

Je viens vers vous car je n'arrive pas à tourner un code:

J'ai 2 plages de cellule sur 2 feuilles que je voudrais réunir et intégrer dans un tableau comme qui suit:

En gros: si la valeur Derniere_Ligne2 <> 0 alors j'ai 2 plage à intégrer, sinon j'en ai qu'une.
Le nom de la feuille est apporté par la valeur combobox1.

If Derniere_Ligne2 <> 0 Then
Sheets(ComboBox1).Activate
a = Range((Cells(2, 1)), Cells(Derniere_Ligne2, "L"))

Sheets(FeuillePrec).Activate
b = Range((Cells(2, 1)), Cells(Derniere_Ligne1, "L"))
Redim TabVal(Derniere_Ligne, 12) 'Derniere_Ligne= Derniere_Ligne1 + Derniere_Ligne2
TabVal = Union(a, b)
Else
TabVal(Derniere_Ligne, 12) 'Derniere_Ligne= Derniere_Ligne1 + Derniere_Ligne2 ( qui = 0 )
TabVal = a
End If

Je n'arrive pas à m'en sortir, j'ai que des messages d'erreurs.

Merci beaucoup !

 

[thebenoit59]

Re : Definir un tableau array avec 2 plages discontinue

Salut Seb!
Peux-tu joindre un fichier pour que nous puissions voir les erreurs que tu as (je n'ai que survolé ton code, sans fichier c'est plus embêtant)

 

[pierrejean]

Re : Definir un tableau array avec 2 plages discontinue

Bonjour SEb

Salut thebenoit

Vois si tu peux t'inspirer de ceci
Sinon comme le dit thebenoit fais l'effort de creer un fichier exemple

 

[BOISGONTIER]

Re : Definir un tableau array avec 2 plages discontinue

Bonjour,

Transfert de champs discontinus dans un Array
Extraction d'éléments discontinus dans un Array

JB