erreur 400 et 1004 sur macro

[Armitage]

bonjour à tous je n'y connais pas grd chose en macro
je n'ai fais que copie une macro et cette derniere ne marche pas
mm avec la logique qui me permet un peu de comprendre a quoi corresponde les ordres de la macro je ne sais pas ce qui cloche une ame cgharitable pour me donner son avis ? :S

 

[PascalXLD]

Hi hi la pièce jointe

On rapelle zip moins de 50 ko sans accent ni caractère sspéciaux

 

[Armitage]

re moi j'ai oublier la pièce jointe

 

[Minick]

Salut,

Oui tu as oublié, enfin je veux dire encore oublié...

Verifie la taille(50ko) et le type de ton fichier(Zip)

@+

 

[Armitage]

décdément je rame mes excuses pour cette nouvelel tentative <==honte à moi :unsure: [file name=liste.zip size=12446]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/liste.zip[/file]

 

[Hervé]

salut

essaye comme ceci :

Public Sub vev()
Dim derligne As Integer
Dim i As Integer
With Sheets('Base de Données')
derligne = .Range('a65536').End(xlUp).Row + 1
For i = 1 To 7
.Cells(derligne, i) = Cells(i, 2)
Cells(i, 2).ClearContents
Next i
End With
End Sub

a plus

 

[Minick]

Salut,

Sur ton idee de depart une autre solution

@+ [file name=Liste_Jeux.zip size=12595]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Liste_Jeux.zip[/file]

 

[Armitage]

Merci !!!!!!!!!! fabuleux ! minick toi etre grand manitou, j'y comprends pas mieux en macro mais au moins ca marche
:whistle: :side:

 

[Minick]

re,

La solutions de Hervé fonctionne tres bien aussi Armitage

@+