fin instruction attendue
Le
daniel
Bonjour,
Pourquoi excel me répond "fin d'instruction attendue" pour cette ligne de
code ?
Sheets("Détail
bibliothèque").Range("g5",[A65000].End(xlUp).End(xlToRight)).select Copy
Sheets("SAUVEGARDE BIBLIOTHEQUE").Range("a5")
Merci de vos réponses.
DanielH
Pourquoi excel me répond "fin d'instruction attendue" pour cette ligne de
code ?
Sheets("Détail
bibliothèque").Range("g5",[A65000].End(xlUp).End(xlToRight)).select Copy
Sheets("SAUVEGARDE BIBLIOTHEQUE").Range("a5")
Merci de vos réponses.
DanielH

Poser une question


En corrigeant, ça fonctionne :
Sheets("Détail bibliothèque").Range("a5",
[A65000].End(xlUp).End(xlToRight)).Copy Sheets("SAUVEGARDE
BIBLIOTHEQUE").Range("a5")
Mais les formules de l'onglet "Détail bibliothèque" sont recopiées, alors
que je souhaiterais que seules les valeurs soient collées.
Merci par avance.
Sheets("Détail bibliothèque").Range("a5",
[A65000].End(xlUp).End(xlToRight)).Copy Sheets("SAUVEGARDE
BIBLIOTHEQUE").Range("a5")
"daniel"
Essaie
'-----------
Sheets("Détail bibliothèque").Range("a5", Sheets("Détail
bibliothèque").[A65000].End(xlUp).End(xlToRight)).Copy
Worksheets("SAUVEGARDE BIBLIOTHEQUE").Range("A5").PasteSpecial
Paste:=xlPasteValues
"-----------------
Saisir sur deux lignes
--
Salutations
JJ
"daniel"
J'ai eu un peu de mal à trouver les 2 lignes, mais ça fonctionne
parfaitement.
Question annexe si ce n'est pas abusé, pourquoi ne peut sélectionner
directement avec
Sheets("Détail bibliothèque").Range("a5", Sheets("Détail
bibliothèque").[A65000].End(xlUp).End(xlToRight)).select
En tout cas merci.
DanielH
"Jacky" Of$
Xl ne peut sélectionnée une plage que si la feuille en question est activée
(ou sélectionnée).
'----------
Sheets("Détail bibliothèque").Activate
Sheets("Détail bibliothèque").Range("a5", Sheets("Détail
bibliothèque").[A65000].End(xlUp).End(xlToRight)).Select
'--------------
--
Salutations
JJ
"daniel"
Xl ne peut sélectionnée une plage que si la feuille en question est activée
(ou sélectionnée).
'----------
Sheets("Détail bibliothèque").Activate
Sheets("Détail bibliothèque").Range("a5", Sheets("Détail
bibliothèque").[A65000].End(xlUp).End(xlToRight)).Select
'--------------
--
Salutations
JJ
"daniel"