Compléter un Array

  • Initiateur de la discussion Saluttoi
  • Date de début
S

Saluttoi

Guest
Bonjour à tous,

Voici mon problème

j'initialise un array.
Entete = Array('Exemple1', 'Exemple2', 'Exemple2')

Puis après j'aimerais le completer par le début des colonnes de la feuille 1, comme ci dessous :
Entete = Entete + Sheets(1).Range('A1:D1')

Bien sur c'est les types sont incompatibles, c'était pour schématiser ce que je souhaite.
Avez vous une solution?
Merci davance
 

MichelXld

XLDnaute Barbatruc
bonsoir

j'espere que cet exemple pourra t'aider

Sub ajoutDonneesTableau()
Dim Entete()
Dim Cell As Range

Entete = Array('Exemple1', 'Exemple2', 'Exemple3')

For Each Cell In Sheets(1).Range('A1:D1')
ReDim Preserve Entete(UBound(Entete) + 1)
Entete(UBound(Entete)) = Cell
'MsgBox Entete(UBound(Entete)) 'test
Next
End Sub



bonne soiree
MichelXld
 

Discussions similaires

Statistiques des forums

Discussions
300 717
Messages
1 986 642
Membres
209 555
dernier inscrit
Cookone