Sélection dernière cellule ne fonctionne pas ?

[refrege]

Bonjour,

J'ai essayé de profiter de toutes les bonnes infos de ce forum pour monter un tableau qui fini par être un peu complexe et je n'arrive pas à comprendre ce qui cloche dans la macro suivante :

Selection.Copy
Sheets("Archives").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Données").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

Apparemment c'est la 3° ligne qui coince...
Merci de votre éclairage...

Bien cordialement,
Stéphane

 

[job75]

Re : Sélection dernière cellule ne fonctionne pas ?

Bonjour Stéphane,

Le code paraît correct.

L'opération copier-collage spécial fait peut-être sortir des limites de la feuille. Il faudrait savoir comment est définie la zone copiée.

A+

 

[jp14]

Re : Sélection dernière cellule ne fonctionne pas ?

Bonjour

Une piste :
Le mot "select" dans un code VBA entraine souvent des problèmes lors de l'exécution.

JP

 

[refrege]

Re : Sélection dernière cellule ne fonctionne pas ?

Bonjour JP,

Par quoi puis-je remplacer "select" ?

Il y a peut être également une histoire de cellule "vide" ou cellule "nulle" : un collègue vient de m'évoquer que cela pouvait avoir une influence et j'utilise des formules dans les dernières cellules de la colonne destinataire du "coller".

Pour répondre à job75, la sélection se fait 4 groupe de 4 lignes entières (en tout cas c'est comme cela que j'envisageai de travailler, mais si cela pose un problème, c'est un point que je peux revoir...

Merci de votre aide,
Bien cordialement,
Stéphane

 

[jp14]

Re : Sélection dernière cellule ne fonctionne pas ?

Bonsoir

Bonjour JP,

Par quoi puis-je remplacer "select" ?

Select est mis par l'enregistreur de macro, il faut souvent supprimer le couple "select selection".

exemple :
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPa......

Dans la macro on supprime et on teste

JP

 

[refrege]

Re : Sélection dernière cellule ne fonctionne pas ?

Merci JP. J'essaye demain !

Bonne soirée,
Stéphane