ça fonctionne pas, le but étant de faire un minin formulaire
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
Partager