valeurs d'un tableau en en-tête d'un autre

[anais]

bonjour tout le monde!

J’ai qqch. à faire et je n’y arrive pas du tout (oui je le sais, comme tout le monde qui pose des questions 🙁 )

Je voudrais parcourir la 1ere ligne de mon tableau (qui comprend les noms des champs) trouver un certain mot (introduit dans un textBox) (par exemple « nom ») et une fois trouvé la colonne, la parcourir, trouver les valeurs différentes (tous les noms sans répétitions) et les écrire en 1ere ligne d’une autre page (les noms vont devenir l’en-tête d’un autre tableau sur la feuille2)
Je travaille sur Excel avec le VBA/VBE

Si qqn peut m’aider…svp ! 😕

Merci 😛

 

[michel_m]

Re : valeurs d'un tableau en en-tête d'un autre

Bonjour Anaïs,

Ci dessous proposition à adapter (ici, les étiquettes sont en ligne 3)

Sub anais_xld()
Dim coll As Collection
Dim etiq As String
Dim col As Byte, lig As Long, cptr As Long

etiq = Range("A1") 'ou ton textbox.value
col = Rows(3).Find(etiq, Range("IV3"), , , xlByColumns).Column
lig = Cells(65536, col).End(xlUp).Row
'
Set coll = New Collection
cptr = 4
Do While cptr <= lig
On Error Resume Next
' élimine d'éventuels doublons
coll.Add Cells(cptr, col), Cells(cptr, col)
On Error GoTo 0
cptr = cptr + 1
Loop


With Sheets(2)
cptr = 1
Do While cptr <= coll.Count
.Cells(1, cptr) = coll(cptr)
cptr = cptr + 1
Loop
End With
Set coll = Nothing
End Sub


A+
Michel_m (qui attends les ouacances à 17h précises ! mais c'est loooooong)

 

[michel_m]

Re : valeurs d'un tableau en en-tête d'un autre

re
petit correctif si tes valeurs recopiées ne sont pas du type string

coll.Add Cells(cptr, col), Cells(cptr, col)
devient
coll.Add Cells(cptr, col), Cstr(Cells(cptr, col))

Michel

 

[anais]

Re : valeurs d'un tableau en en-tête d'un autre

merci beaucoup michel 😉

j vais voir si ca marche...hihi
ms est-ce qu'on ne peut pas juste parcourir une ligne excel (de B à K par ex) dan un FOR? 😕

merci
a+ et bon apetit 😛