Bonjour,

j'ai beaucoup de questions à poser.

La 1ère : Où est le problème dans ce code
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
24
25
26
27
28
29
30
31
32
 
Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
    Sheets("Formulaire").Select
    Range("B1:B18").Select
    Selection.Copy
'Test pour déterminier la ligne où coller les infos
    Sheets("Base de données").Select
    valeurA2 = Range("A2").Value
    If valeurA2 = "" Then
    Range("A2").Select
    Else
    Range("A1").Select
    Selection.End(x1Down).Select
    ligne_active_base = ActiveCell.Row
    Range("A" & ligne_active_base + 1).Select
    End If
'Mémorise le n° de la ligne où coller les données
    ligne_active_base = ActiveCell.Row
'Collage avec transposition
    Range("A" & ligne_active_base).Select
    Selection.PasteSpecial Paste:=x1PasteAllExceptBorders, _  le problème est 
    Operation:=x1None, SkipBlanks:=False, Transpose:=True   sur cette ligne
'Rendre vierge le formulaire
    Sheets("Formulaire").Select
    Range("B1:B18").Select
    Selection.ClearContents
    Range("B1").Select
'Retourner dans le tableau
    Sheets("Base de données").Select
    Range("A1").Select
End Sub
2ème question: ce code sert à remplir ma bases, comment faire pour qu'il puisse accepter des champs vide?

3ème question: comment passer de mon formulaire créer de toutes pièce sur une feuille excel à un joli formulaire en vb?

4ème question: Comment rendre incassable un classeur?

5ème est dernière question (pour le moment); Comment lier un bouton à une feuille donnée?

Merci.