Compléter un Array

[Saluttoi]

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😀1')

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

 

[MichelXld]

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😀1')
ReDim Preserve Entete(UBound(Entete) + 1)
Entete(UBound(Entete)) = Cell
'MsgBox Entete(UBound(Entete)) 'test
Next
End Sub


bonne soiree
MichelXld

 

[Saluttoi]

C'est parfait merci beaucoup ! 🙂