pb range.select

phili

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
3
Affichages
550

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata