J'ai une macro qui est censée copier le contenu de Q28 et par la suite de supprimer le contenu de B2:B24
Or je n'ai aucun moyen de récupérer le contenu du presse papier de la copie pour le coller manuellement dans une appli
Tout cela à cause du clear contents
---------------------
Range("Q28").Selec
Selection.Cop
Range("B2:B24").ClearContent
--------------------
Quelqu'un aurait il une solution
Au fait, BONNE ANNEE A TOUS et A TOUTE
Sharm
Merci pour vos recherches mais j'ai omis de vous préciser que le resultat de Q28 provenait de B2:B24. En utilisant un CLEAR, le contenu de Q28 était remis à 0. Il faudrait qu'après avoir copié le contenu dans Q28, que je puisse récupérer son contenu en tant que valeur pour le garder intact dans le presse papier. Qu'en pensez vous ?
Merci pour vos recherches mais j'ai omis de vous préciser que le resultat de Q28 provenait de B2:B24.
En utilisant un CLEAR, le contenu de Q28 était remis à 0.
Il faudrait qu'après avoir copié le contenu dans Q28, que je puisse récupérer son contenu en tant que valeur pour le garder intact dans le presse papier.
Qu'en pensez vous ?
Merci pour vos recherches mais j'ai omis de vous préciser que le resultat de Q28 provenait de B2:B24. En utilisant un CLEAR, le contenu de Q28 était remis à 0. Il faudrait qu'après avoir copié le contenu dans Q28, que je puisse récupérer son contenu en tant que valeur pour le garder intact dans le presse papier. Qu'en pensez vous ?
Balain
Bonjour,
Et si tu commençais par remplacer le contenu de Q28 (qui doit être le résultat d'une formule si j'ai bien compris) par sa valeur : Range("Q28").value = Range("Q28").value Range("B2:B24").ClearContents Range("Q28").Copy
Balain
"sharmi" a écrit dans le message de news: | Merci pour vos recherches mais j'ai omis de vous préciser que le resultat de Q28 provenait de B2:B24. | En utilisant un CLEAR, le contenu de Q28 était remis à 0. | Il faudrait qu'après avoir copié le contenu dans Q28, que je puisse récupérer son contenu en tant que valeur pour le garder intact dans le presse papier. | Qu'en pensez vous ? |
Bonjour,
Et si tu commençais par remplacer le contenu de Q28 (qui doit être le
résultat d'une formule si j'ai bien compris) par sa valeur :
Range("Q28").value = Range("Q28").value
Range("B2:B24").ClearContents
Range("Q28").Copy
Balain
"sharmi" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:259D3A74-C2B2-430D-AC11-14972678D46F@microsoft.com...
| Merci pour vos recherches mais j'ai omis de vous préciser que le
resultat de Q28 provenait de B2:B24.
| En utilisant un CLEAR, le contenu de Q28 était remis à 0.
| Il faudrait qu'après avoir copié le contenu dans Q28, que je puisse
récupérer son contenu en tant que valeur pour le garder intact dans le
presse papier.
| Qu'en pensez vous ?
|
Et si tu commençais par remplacer le contenu de Q28 (qui doit être le résultat d'une formule si j'ai bien compris) par sa valeur : Range("Q28").value = Range("Q28").value Range("B2:B24").ClearContents Range("Q28").Copy
Balain
"sharmi" a écrit dans le message de news: | Merci pour vos recherches mais j'ai omis de vous préciser que le resultat de Q28 provenait de B2:B24. | En utilisant un CLEAR, le contenu de Q28 était remis à 0. | Il faudrait qu'après avoir copié le contenu dans Q28, que je puisse récupérer son contenu en tant que valeur pour le garder intact dans le presse papier. | Qu'en pensez vous ? |
guy
Hello, Un tour dans le futur peut-être. Guy
"Michel Gaboly" a écrit dans le message de news:
Bonjour Isabelle
Je ne sais pas d'où cela vient (un serveur de Wanadoo ?), cela m'arrive de temps en temps
sans que j'ai touché une seule fois à mon horloge depuis au moins un an.
En général l'écart est moindre, et au bout de quelques jours, tout rentre dans l'ordre.
Bonne année 2004 ;-)))
y a un problème avec ton horloge Michel, environ 2hr en avant ;-) isabelle
Bonjour,
Inverse simplement les opérations ;-))
Range("B2:B24").ClearContents Range("Q28").Copy
Par ailleurs, évite les Select inutiles dans le code qui ralentissement inutilement l'exécution.
Tout cela à cause du clear contents. ---------------------- Range("Q28").Select Selection.Copy Range("B2:B24").ClearContents --------------------- Quelqu'un aurait il une solution. Au fait, BONNE ANNEE A TOUS et A TOUTES Sharmi
-- Cordialement,
Michel Gaboly http://www.gaboly.com
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Hello,
Un tour dans le futur peut-être.
Guy
"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de
news:3FF58B4F.9A6466C@Suppgaboly.com...
Bonjour Isabelle
Je ne sais pas d'où cela vient (un serveur de Wanadoo ?), cela m'arrive de
temps en temps
sans que j'ai touché une seule fois à mon horloge depuis au moins un an.
En général l'écart est moindre, et au bout de quelques jours, tout rentre
dans l'ordre.
Bonne année 2004 ;-)))
y a un problème avec ton horloge Michel, environ 2hr en avant ;-)
isabelle
Bonjour,
Inverse simplement les opérations ;-))
Range("B2:B24").ClearContents
Range("Q28").Copy
Par ailleurs, évite les Select inutiles dans le code qui
ralentissement inutilement l'exécution.
Tout cela à cause du clear contents.
----------------------
Range("Q28").Select
Selection.Copy
Range("B2:B24").ClearContents
---------------------
Quelqu'un aurait il une solution.
Au fait, BONNE ANNEE A TOUS et A TOUTES
Sharmi
Tout cela à cause du clear contents. ---------------------- Range("Q28").Select Selection.Copy Range("B2:B24").ClearContents --------------------- Quelqu'un aurait il une solution. Au fait, BONNE ANNEE A TOUS et A TOUTES Sharmi
-- Cordialement,
Michel Gaboly http://www.gaboly.com
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Michel Gaboly
Bonjour,
Inverse simplement les opérations ;-))
Range("B2:B24").ClearContents Range("Q28").Copy
Par ailleurs, évite les Select inutiles dans le code qui ralentissement inutilement l'exécution.
Je ne sais pas d'où cela vient (un serveur de Wanadoo ?), cela m'arrive de temps en temps sans que j'ai touché une seule fois à mon horloge depuis au moins un an.
En général l'écart est moindre, et au bout de quelques jours, tout rentre dans l'ordre.
Bonne année 2004 ;-)))
y a un problème avec ton horloge Michel, environ 2hr en avant ;-) isabelle
Bonjour,
Inverse simplement les opérations ;-))
Range("B2:B24").ClearContents Range("Q28").Copy
Par ailleurs, évite les Select inutiles dans le code qui ralentissement inutilement l'exécution.
Je ne sais pas d'où cela vient (un serveur de Wanadoo ?), cela m'arrive de temps en temps
sans que j'ai touché une seule fois à mon horloge depuis au moins un an.
En général l'écart est moindre, et au bout de quelques jours, tout rentre dans l'ordre.
Bonne année 2004 ;-)))
y a un problème avec ton horloge Michel, environ 2hr en avant ;-)
isabelle
Bonjour,
Inverse simplement les opérations ;-))
Range("B2:B24").ClearContents
Range("Q28").Copy
Par ailleurs, évite les Select inutiles dans le code qui ralentissement inutilement l'exécution.
Je ne sais pas d'où cela vient (un serveur de Wanadoo ?), cela m'arrive de temps en temps sans que j'ai touché une seule fois à mon horloge depuis au moins un an.
En général l'écart est moindre, et au bout de quelques jours, tout rentre dans l'ordre.
Bonne année 2004 ;-)))
y a un problème avec ton horloge Michel, environ 2hr en avant ;-) isabelle
Bonjour,
Inverse simplement les opérations ;-))
Range("B2:B24").ClearContents Range("Q28").Copy
Par ailleurs, évite les Select inutiles dans le code qui ralentissement inutilement l'exécution.
