Erreur 1004 Résolu/Fermé

Question

Bonjour, 
J'ai un petit problème avec un code VBA qui me renvoie l'erreur 1004 : erreur définie par l'application ou par l'objet. 
Code : Sub transpose_dans_tableau()    Sheets("Formulaire").Select    Range("B1:B4").Select    Selection.Copy    Sheets("Base de donnée").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    ligne_active_base = ActiveCell.Row    Range("A" & ligne_active_base).Select    Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _    Operation:=xlNone, SkipBlanks:=False, Transpose:=True    Sheets("Formulaire").Select    Range("B1:B4").Select    Selection.ClearContents    Range("B1").Select    Sheets("Base de donnée").Select    Range("A1").SelectEnd Sub
L'erreur est causée à la ligne Selection.End(xlDown).Select
Quelqu'un saurait-il comment régler le problème ?
Cordialement



Configuration: Windows / Firefox 38.0

michel_m · Answer

Bonjour, 
tu te compliques bien la vie !!! :o)
apparament, tu cherches à écrire dans "base de données" la transposé de B1:B4 de "formulaire à la 1) ligne vide de "base de données" ?
tu tranpose que les valeurs de B1:B4  sinon quels param^tres de format? 

un exemple: transporte le valeurs de B1:B4
Option Explicit'---------Sub cc()Dim Ligvid As Integer, TamponWith Sheets("formulaire")    Tampon = .Range("B1:B4")    .Range("B1:B4").ClearContents    .Range("B1").ActivateEnd WithWith Sheets("Base de donnée")      Ligvid = .Columns("A").Find("", .Range("A1")).Row        .Range("A" & Ligvid).Resize(1, 4) = Application.Transpose(Tampon)        .Range("A1").Activate        .ActivateEnd WithEnd Sub

si tu veux reproduire le format de B1:B4 , il serait effectué dans le bloc "base de données" ou peut-^tre mieux par mise au format préalable de la feuille
 
 Michel

Erreur 1004

1 réponse

Discussions similaires