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