pb range.select

phili · 15 Août 2010

Bonjour,

Je suis débutant et tente de me faire un base de donnée sur excel.
Je rencontre un probléme dans ma macro. Elle m'affiche une erreur 1004 que je n'arrive pas à résoudre.

Voici la Macro

Sub transpose_dans_tableau()

'Atteindre le formulaire et mémoriser les données
Sheets("Formulaire").Select
Range("B1:B4").Select
Selection.Copy

'Test pour determiner la ligne où coller les infos dans le tableau'
Sheets("Evaluateurs").Select
i = 2
While (Not (Range("B" & i) = ""))
i = i + 1
Wend
Range("B" & i).Select ERREUR A CE NIVEAU
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, skipblanks:=False, Transpose:=True

'Rendre vierge le formulaire
Sheets("Formulaire").Select
Range("B1:B4").Select
Selection.ClearContents
Range("B1").Select

'Retourner dans le formulaire
Sheets("Formulaire").Select
Range("B1").Select

End Sub

Par avance merci

kjin · 15 Août 2010

Re : pb range.select

Bonsoir et bienvenue,
Un code sorti de son contexte n'explique en rien les données du pb !
Consulte [thread=32841]charte-du-forum-lire-avant-de-poster[/thread] pour savoir comment formuler tes demandes
Néanmoins, essaie ceci

Code:

Sub transpose_dans_tableau()
Dim Tablo, dl As Long
Tablo = Sheets("Formulaire").Range("B1:B4").Value
With Sheets("Evaluateurs")
    dl = .Range("B65000").End(xlUp).Row + 1
    .Range(.Cells(dl, 2), .Cells(dl, 5)) = Application.Transpose(Tablo)
End With

End Sub

A+
kjin

phili · 15 Août 2010

Re : pb range.select

Merci
Le code fonctionne il faut maintenant que je comprenne comment il est construit.
Je prends note de la charte.

Encore Merci

pb range.select

phili

XLDnaute Nouveau

kjin

XLDnaute Barbatruc

phili

XLDnaute Nouveau

Discussions similaires

pb range.select

phili

XLDnaute Nouveau

kjin

XLDnaute Barbatruc

phili

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency