Discussion :

[remthi]

Bonjour à tous,

J'ai une erreur 400 qui intervient lors de l’exécution de cette macro :

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
Sub transpose_dans_tableau()
 
'Atteindre le formulaire et mémoriser les données
Sheets("Formulaire").Select
Range("B1:B12").Select
Selection.Copy
Sheets("Base de donnée récla Frs").Select
Cells(Range("A3").End(xlDown).Row + 1, 1).Select
'mémorise 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:=xlNone, skipblanks:=False, Transpose:=True
'rendre vièrge le formulaire
Sheets("Formulaire").Select
Range("B1:B12").Select
Selection.ClearContents
Range("B1").Select
'retourner dans le tableau
Sheets("Base de donnée récla Frs").Select
Range("A1").Select
End Sub

Concrètement, c'est une macro qui me permet de gérer une liste de réclamation en la remplissant par le biais d'une feuille formulaire.

En exécutant cette macro en pas à pas, j'ai un message d'erreur 1004 sur la ligne 8 :

Code :

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

Cells(Range("A3").End(xlDown).Row + 1, 1).Select

J'ai beau me triturer les méninges, je ne vois pas ce qui pêche.

Merci de m'éclairer de vos lanternes^^.

Rémy

[Philippe Tulliez]

Bonjour,
Erreur 1004 provient sûrement du fait qu'en partant de la cellule A3 (attention d'être sur la bonne feuille) il n'y a pas de cellules remplies dans cette colonne et qu'ainsi la valeur renvoyée est la dernière ligne de la feuille et comme tu veux sélectionner la dernière ligne + 1. Message d'erreur

[remthi]

Bonjour,

Effectivement, je n'avait pas réfléchi... le tableau a ses en-têtes en ligne 1 et une ligne avait déjà été saisie. J'avais essayé à partir de la ligne 2 puis 3 mais toujours le problème. Je viens de lui demander de regarder à partir de la première ligne et là ça marche.

Je pensais à une erreur de structure.

Merci beaucoup pour la rapidité de la réponse.

Cordialement.

Rémy