Discussion :

[gregantibes]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Elstak]

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 !!

[bidou]

ce que tu veux faire c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Megaxel]

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