Erreur 1004
Résolu
Eiffel01
Messages postés
22
Statut
Membre
-
Eiffel01 Messages postés 22 Statut Membre -
Eiffel01 Messages postés 22 Statut Membre -
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 :
L'erreur est causée à la ligne Selection.End(xlDown).Select
Quelqu'un saurait-il comment régler le problème ?
Cordialement
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").Select
End Sub
L'erreur est causée à la ligne Selection.End(xlDown).Select
Quelqu'un saurait-il comment régler le problème ?
Cordialement
1 réponse
-
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:B4Option Explicit
'---------
Sub cc()
Dim Ligvid As Integer, Tampon
With Sheets("formulaire")
Tampon = .Range("B1:B4")
.Range("B1:B4").ClearContents
.Range("B1").Activate
End With
With Sheets("Base de donnée")
Ligvid = .Columns("A").Find("", .Range("A1")).Row
.Range("A" & Ligvid).Resize(1, 4) = Application.Transpose(Tampon)
.Range("A1").Activate
.Activate
End With
End 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
