enregistrer un formulaire, erreur 400

[Sandek]

Bonjour
Je souhaite créer une base de données contacts sur excel avec un formulaire de saisie (feuil2) qui viendrait s’insérer automatiquement dans mon tableau base de données (feuil1).

J'ai trouvé une méthode qui me semblait valable sur ce lien : 01net. - Construisez une base de donnes avec Excel.
J'ai suivi les instructions à la lettre et saisi le code VBA indiqué mais arrivé au stade de l’enregistrement j'ai un message d'erreur : Erreur 400.

Voici le code VBA saisi :
Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("Formulaire").Select
Range("B1:B4").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(x1Down).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
End If
'Memorise 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:=x1PastAllExceptBorders, _
Operation:=x1None, SkipBlank:=False, Transpose:=True
'Rendre vierge le formulaire
Sheets("Formulaire").Select
Range("B1:B4").Select
Selection.ClearContents
Range("B1").Select
'Retourner dans le tableau
Sheets("Base de données").Select
Range("A1").Select
End Sub

Je précise que je n'ai aucune connaissance sur VBA, une utilisation d'excel très basique et que je suis nouvelle sur ce forum. J'espère que mon message est suffisamment clair et conforme à votre (notre) charte.
Merci d'avance

 

[Softmama]

Re : enregistrer un formulaire, erreur 400

Bonjour Sandek et bienvenue sur le forum,

Ta macro ne pouvait fonctionner car elle était écrité dans le module Thisworkbook. Il fallait juste la mettre dans un nouveau module (Insertion/module). Par ailleurs, il y avait une petite faute de frappe dans la ligne Pastespecial que j'ai corrigée et enfin, ta macro pointait sur les cellules B1 à B4 au lieu de B1 à B6.

Bref, ça fonctionne sans grande modif, même si y a moyen de faire plus simple.

cf. ton fichier modifié.

 

[Softmama]

Re : enregistrer un formulaire, erreur 400

Re Sandek,

Tant que j'y suis, je te joins un code en tous points équivalent à ta macro, mais en moins long, que tu peux mettre à la place de l'ancien si tu le souhaites.😱

Sub transpose_dans_tableau()
    Sheets("Formulaire").Range("B1:B6").Copy
    Sheets("Base de données").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Formulaire").Range("B1:B6").ClearContents
    Sheets("Base de données").Select
    Range("A1").Select
End Sub

 

[Sandek]

Re : enregistrer un formulaire, erreur 400

Bonjour Softmama. ÇA FONCTIONNE !!!
Ça fait des jours que je galère avec cette histoire, alors vraiment merci.
J'ai utilisé le code plus simple que tu m'a transmis car sur l'ancien un problème persistait.
Pour info voila ce qui s'est passé :
J'ai pu saisir et enregistrer un premier formulaire mais à la 2ème saisie j'ai un message d'erreur : "erreur d’exécution 1004, erreur définie par l'application ou l'objet" qui apparait.
si je clic sur débogage : VBA s'ouvre et cette ligne est surlignée
> Selection.End(x1Down).Select
Ne sachant pas quoi faire j'ai utilisé ton 2ème code et tout baigne
Merci encore
Bonne journée

 

[mathieusupdeco]

Re : enregistrer un formulaire, erreur 400

Bonjour, je suis nouveau sur le site, et un peu dans le même cas que Sandek à l’exception près que mes données à enregistrer sont sur un formulaire et nom sur une feuille. auriez vous des pistes à me sugerer svp? Merci

 

[Softmama]

Re : enregistrer un formulaire, erreur 400

Bonjour mathieusupdeco (et bienvenue),

Joins un petit fichier exemple sans données confidentielles avec une description du résultat attendu pour nous aider à mieux comprendre ce que tu souhaites obtenir.