Pb sur un formulaire

Fermé
zazasig - 6 juil. 2009 à 18:12
pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 - 7 juil. 2009 à 11:40
Bonjour,
J'essaie de créer un formulaire pour remplir une base de donnée dans une feuille excel

Dans un fichier, j'ai créé un onglet base de donnees, un onglet formulaire, un onglet choix.
Dans l'onglet base de données, j'ai créé 5 colonnes.
Dans l'onglet formulaire, j'ai copier coller en transposant les intitulés des colonnes de l'onglet base de données.
Dans l'onglet choix j'ai défini des données (liste dansla colonne A de la base de données)

dans VB (1ère utilisation), j'ai écris :

Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("formulaire").Select
Range("B4:B11").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:=x1None, SkipBlanks:=False, Transpose:=True
'Rendre vierge le formulaire
Sheets("formulaire").Select
Range("B4:B11").Select
Selection.ClearContents
Range("B4").Select
'Retourner dans le tableau
Sheets("base de données").Select
Range("A2").Select
End Sub


erreur d'application 1004.
Quelqu'un peut-il m'aider svp ?
Merci par avance

5 réponses

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 641
6 juil. 2009 à 19:35
Bonjour,

J'ai l'impression que cette erreur est récurrente, je l'ai déjà vue plusieurs fois sur le forum. J'ai déjà proposé une écriture différente et en cherchent je viens de voir que gbinforme aussi avant moi. Mais je viens (enfin) de voir l'erreur.

Elle est ici :

Operation:=x1None

il faut écrire :

Operation:=xlNone

A+
0