Excel / problème de macro Visual Basic

isopascal isopascal
18 contributions
Membre depuis le 04/12/2001
Envoyé le 25/04/2005 à 11:52


Bonjour lorsque je lance cette macro* pour récupérer des données d\'un Formulaire (feuille2) dans une base de données (feuille1):
*
[S]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:=x1PasteAllExceptBorders, _
Operation:=x1None, SkipBlanks:=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[/S]

Un message d\'erreur apparait : \" CROIX ROUGE + 400\"

Quelqu\'un peut me dire ce que çà signifie ? [:(] [:o)]

Merci
so far, so good...
Bergeal Bergeal
433 contributions
Membre depuis le 20/02/2003
Envoyé le 25/04/2005 à 15:27


salut isopascal

vas sur ce lien et repose to probleme sur le forum
www.excel-downloads.com/

bon courage

jean michel

Discussion trop ancienne

Cette discussion a été automatiquement fermée car elle n'a plus reçue de nouveau message depuis trop longtemps.

Nous vous suggérons de créer un nouveau message

« Retour sur la liste des messages de ce forum