[VBA-E]Probleme dans mon code ??? merci de votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub transpose_dans_base() Sheets("Formulaire").Select Range("B1").Select Selection.Copy Sheets("base de donnée").Select ValA2 = Range("A2").Value If ValA2 = "" Then Range("A2").Select Else Range("A1").Select Selection.End(xlDown).Select ligne_active_base = ActiveCell.Row Range("A" & ligne_active_base + 1).Select End If ligne_active_base = ActiveCell.Row Range("A" & ligne_active_base).Select Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=True Sheets("Formulaire").Select Range("B1").Select Sheets("Base de donnée").Select Range("A1").Select End Sub

---

ça fonctionne pas, le but étant de faire un minin formulaire

coucou,

deja montre nous sur quelle ligne ca bloque, met ton code entre balise [ code] (pour y voir plus clair) et met un titre plus explicite !!

ce que tu veux faire c'est :

Code:

---

1 2	Sheets("Formulaire").Range("B1").Copy Destination:=Sheets("base de donnée").Cells(65535, 1).End(xlUp) Sheets("base de donnée").Cells(65535, 1).End(xlUp).Borders.LineStyle = xlLineStyleNone

---

Oui, en une ligne... :D
Mais là, je crois que tu lui écrases la dernière cellule de la colonne... Faut mettre un "+1" dans le "End(xlUp)"...