coller avec lien

[lucie]

Bonjour,

J'ai un problème avec mon code Vba :

J'ai dans une feuille une base de données avec les éléments classés de la 2ème ligne à la ligne x(en fait on doit pouvoir ajouter des éléments) le tout dans la colonne B.

Je veux recopier ces valeurs ds un tableau en lignes, en gros faire une copie avec tranposition sur la ligne 1 de la colonne I à la colonne x(etant donné que l'on peut faire des ajouts).

voila mon code pour le moment(surement remplie d'erreurs ) :

Dim i As Integer

For i = 2 To 1000
Sheets('Matric').cell(1, i + 6).FormulaR1C1 = '=bdd!C&i' 'matric est la feuille où je veux faire la copie
Next i

euh en plus j'aimerais savoir comment faire la maj automatiquement, car pour le moment j'utilise un bouton vba sur la feuille de ma base de donné(bdd!)

si quelqu'un peut m'aider il me serait d'un grand secours

merci à tous

 

[Bebere]

bonjour

ton code corrigé

Sub Transposer()

Dim DerL As Integer, L As Integer
DerL = Sheets('Bdd').Range('B65536').End(xlUp).Row
For L = 2 To DerL
Sheets('Matric').Cells(1, L + 6).Formula = '=bdd!B' & L
Next L

End Sub

 

[Bebere]

bonjour

ton code corrigé

Sub Transposer()

Dim DerL As Integer, L As Integer
DerL = Sheets('Bdd').Range('B65536').End(xlUp).Row
For L = 2 To DerL
Sheets('Matric').Cells(1, L + 6).Formula = '=bdd!B' & L
Next L

End Sub

 

[lucie]

merci bcp bebere pour ta solution

ca marche sans aucun problème


tu as toute ma gratitude !:kiss: