Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

coller avec lien

L

lucie

Guest
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…