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 !
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 !