Bonjour,

J'ai un problème avec une macro : erreur 400.

A priori, en utilisant le debogage, le pb vient de la ligne Selection.End(xlDown).select de la macro suivante :

Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("FORMULAIRE").Select
Range("B3:B13").Select
Selection.Copy

'Test pour determiner 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

'Memoriser le n° de la ligne où coller les données
ligne_cative_base = cativecelle.Row

'Collage avec transposition
Range("A" & ligne_active_base + 1).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, skipblanks:=False, Transpose:=True

'Rendre vierge le formulaire
Sheets("FORMULAIRE").Select
Range("B3:B13").Select
Selection.ClearContents
Range("B3").Select

'Retourner dans le formulaire
Sheets("FORMULAIRE").Select
Range("B3").Select

En gros, je veux faire remplir un formulaire sur une feuille 1 et enregistrer les données dans une base sur une feuille 2. J'avoue, c'est une macro copiée sur internet et je ne suis pas au bout de mes peines car je voudrais trier les données (colonne 1 puis colonne 2) afin de faire des stats...mais si qqu'un peut m'aider déjà pour cette étape...MERCI D'AVANCE!

nb59

Configuration: Windows XP
Internet Explorer 6.0