Bonjour Forum !
J'aimerais adapter un code écrit par Maestro Boisgontier ci après :
En fait je souhaiterais récupérer les infos des 14 colonnes d'un onglets1 sur l'onglet2 sur lequel j'ai ma colonne "clés" en A.
j'ai bien essayé ça :
mais ça marche po ! Quelqu'un pourrait me donner une piste pour traiter le problème ?
Merci par avance
J'aimerais adapter un code écrit par Maestro Boisgontier ci après :
Code:
Fonction Rechv()
Function rechv(champ As Range, cles As Range, valeurs As Range)
a = cles
b = valeurs
c = champ
Dim d()
Set mondico = CreateObject("Scripting.Dictionary")
For i = 1 To cles.Count
mondico.Add a(i, 1), b(i, 1)
Next i
ReDim d(1 To champ.Count)
For i = 1 To champ.Count
d(i) = mondico.item(c(i, 1))
Next i
rechv = Application.Transpose(d)
End Function
Sub essai()
[B2:B1000] = rechv([a2:a1000], [Noms], [Prenoms])
[c2:c1000] = rechv([a2:a1000], [Noms], [Ages])
End Sub
En fait je souhaiterais récupérer les infos des 14 colonnes d'un onglets1 sur l'onglet2 sur lequel j'ai ma colonne "clés" en A.
j'ai bien essayé ça :
Code:
Sub essai()
With Sheets("onglet2")
[B2:B1000] = rechv([a2:a1000], Sheets("onglet1").Columns("A:A"), Sheets("onglet1").Columns("B:B"))
[c2:c1000] = rechv([a2:a1000], Sheets("onglet1").Columns("A:A"), Sheets("onglet1").Columns("C:C"))
[d2:d1000] = rechv([a2:a1000], Sheets("onglet1").Columns("A:A"), Sheets("onglet1").Columns("D:D"))
[e2:e1000] = rechv([a2:a1000], Sheets("onglet1").Columns("A:A"), Sheets("onglet1").Columns("E:E"))
[f2:f1000] = rechv([a2:a1000], Sheets("onglet1").Columns("A:A"), Sheets("onglet1").Columns("F:F"))
etc....
End With
End Sub
mais ça marche po ! Quelqu'un pourrait me donner une piste pour traiter le problème ?
Merci par avance