Discussion :

[cobra85]

bonjours a tous,

je creer une base de données sous excel avec 3 feuilles:
- la premiere affichera les renseignement
- la seconde permet de les ecrirent et contient une macros pour envoyer les info vers la premiere
- la troisieme est un menu.

le probleme est que je n'arrive pas a faire fonctionner ma macros,
j'ai erreur 400 qui apparait ou des problemes de classe.

Voici le site ou j'ai trouvé le code: http://www.01net.com/article/273366.html

et voici 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 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
'Mémorise le n° de la ligne pù 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

merci

[SilkyRoad]

bonjour

dans ton code initial certaines constantes contiennent le chiffre 1 à la place de la lettre l (L)

x1Down

x1PasteAllExceptBorders

x1None



Tu peux tester cette adaptation pour éviter les Select

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
Sub transpose_dans_tableau_V02()
    Dim ligne_active_base As Integer
 
    Worksheets("Formulaire").Range("B1:B4").Copy
 
    If Worksheets("Base de données").Range("A1") = "" Then
        ligne_active_base = 1
        Else
        ligne_active_base = Worksheets("Base de données"). _
            Range("A65536").End(xlUp).Row + 1
    End If
 
    'Collage avec transposition'
    Worksheets("Base de données").Range("A" & ligne_active_base). _
        PasteSpecial Paste:=xlPasteAllExceptBorders, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=True
 
    'Rendre vierge le formulaire'
    Worksheets("Formulaire").Range("B1:B4").ClearContents
    'Désactive le mode copier/coller
    Application.CutCopyMode = False
End Sub

bonne journée
michel


[EDIT] Grosse erreur de ma part:
remplacement de
Range("A1").End(xlUp).Row + 1
par
Range("A65536").End(xlUp).Row + 1

[cobra85]

salut

j'ai testé ta macros mais j'ai un message qui s'affiche:

"indice n'appartient pas a la sélection"

Tu sait ce que cela veut dire?

Merci

[mickdu90]

Ce message apparaît quand le nom d'une feuille ou formulaire n'est pas correct... Exemple : si tu fait un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheet("Formulaire").Range(xxx)....

et que "Formulaire" n'existe pas.

Dans ton cas, je crois que cela vient du "Worksheets"... Essaie de remplacer par "Sheets", et vérifie si les noms des feuilles sont corrects dans le code

[cobra85]

Sa marche, j'arrive a transferer les donnée du formulaire vers la page Base de données.

Par contre il n'y a pas d'incrementation. C'est a dire que des que je rentre des données dans le formulaire et que je enregistre elle s'écrivent sur la meme ligne

merci

[mickdu90]

Par contre il n'y a pas d'incrementation. C'est a dire que des que je rentre des données dans le formulaire et que je enregistre elle s'écrivent sur la meme ligne

Est-ce qu'il s'agit d'un problème (dans quel cas, un peu de précisions), ou simplement d'une remarque concernant le code qui t'avait été proposé ?