Bonjour
Macro erreur 400 et Erreur de compilation
J'ai parcouru beaucoup de sujets déjà écrits et je n'ai pas trouvé de solution à ma situation que voici
En résumé, dans Excel 2007, je veux à l’aide d’un formulaire sur une feuille 2 (Formulaire) enregistrer les données dans une base sur une feuille1 (Base de données)
-Je me permets de vous soumettre le code macro concerné
Il s’agit d’une macro copiée sur internet, je n'ai pas beaucoup de mérite, mes connaissances en programmation sont limitées

ci-dessous le 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
Sub transpose_dans_tableau()
'Atteindre le formule et mémoriser les données
    Sheets("Formulaire").Select
    Range("B1:B17").Select
    Selection.Copy
'Test pour déterminer la ligne où coller les infos dans le tableau
    Sheets("Base de données").Select
    valeurA2 = Range("A2").Value
    If valeurA2 = "" 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
'Mémoriser 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:=xlPasteAllExceptBorders, 
    Operation:=xlNone, SkipBlanks:=False, Transpose:=True
'Rendre vierge le formulaire
    Sheets("Formulaire").Select
    Range("B1:B17").Select
    Selection.ClearContents
    Range("B1").Select
'Retourner dans le tableau
    Sheets("Base de données").Select
    Range("A1").Select
End Sub
j'obtiens
Macro erreur 400 et Erreur de compilation
- Pour cette étape supplémentaire, je peine, merci de votre contribution!
Bien à vous et merci d'avance
Pierre