Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel collé sans sélectionné

collé sans sélectionné

3 réponses
Avatar
Daniel
Bonjour à tous

Dans une macro peut t'on collé sans sélectionné une cellule ?
Exp:
Sheets("Feuille_insp").Range("h15").Select
ActiveSheet.Paste
Sheets("Feuille_insp").Select
Range("g15").Select
Dans les 4 dernière commande je colle le presse papier sur H15 et je
resélectionne la cellule G15.
le probème est que lorsque l'on selectionne G15 il y à un macros qui doit
s'exécuter, donc je ne veut pas que
la cellule G15 soit sélectionné a nouveau.
merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ST
Tu peux tout simplement faire ceci :

Sheets("Feuille_insp").Range("g15").Value=Sheets("Feuille_insp").Range("h15"
).Value

Tu n'as donc pas besoin de sélectionner ton onglet et ta cellule.
L'exécution de ton code sera donc plus rapide.

ST


"Daniel" a écrit dans le message de
news:C0Wre.75805$
Bonjour à tous

Dans une macro peut t'on collé sans sélectionné une cellule ?
Exp:
Sheets("Feuille_insp").Range("h15").Select
ActiveSheet.Paste
Sheets("Feuille_insp").Select
Range("g15").Select
Dans les 4 dernière commande je colle le presse papier sur H15 et je
resélectionne la cellule G15.
le probème est que lorsque l'on selectionne G15 il y à un macros qui doit
s'exécuter, donc je ne veut pas que
la cellule G15 soit sélectionné a nouveau.
merci




Avatar
Daniel
Bonjour ST

Je ne comprend pas très bien la ligne de commande.

Voici ma macros (pourait tu remplacer les 4 dernière commande) :

Sub Ouvrirnroute()
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
Dim MyData As DataObject
Set MyData = New DataObject
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé la
fenêtre
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé la
fenêtre
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^w", True ' Envoie la combinaison CTRL+w ouvre une fenêtre
SendKeys "{tab}", True ' Envoie la combinaison CTRL+tab
SendKeys "{tab}", True ' Envoie la combinaison CTRL+tab
SendKeys "^C", True ' Envoie la combinaison CTRL+c copie sur
presse-papier
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé la
fenêtre
SendKeys "%{tab}", True 'Envoie la combinaison CTRL+tab
MyData.GetFromClipboard '----Récupérer le Presse-papier
Sheets("Feuille_insp").Range("h15").Select
ActiveSheet.Paste
Sheets("Feuille_insp").Select
Range("g15").Select
End Sub

Merci


"ST" a écrit dans le message de news:
d8pb3b$
Tu peux tout simplement faire ceci :

Sheets("Feuille_insp").Range("g15").Value=Sheets("Feuille_insp").Range("h15"
).Value

Tu n'as donc pas besoin de sélectionner ton onglet et ta cellule.
L'exécution de ton code sera donc plus rapide.

ST


"Daniel" a écrit dans le message de
news:C0Wre.75805$
Bonjour à tous

Dans une macro peut t'on collé sans sélectionné une cellule ?
Exp:
Sheets("Feuille_insp").Range("h15").Select
ActiveSheet.Paste
Sheets("Feuille_insp").Select
Range("g15").Select
Dans les 4 dernière commande je colle le presse papier sur H15 et je
resélectionne la cellule G15.
le probème est que lorsque l'on selectionne G15 il y à un macros qui
doit
s'exécuter, donc je ne veut pas que
la cellule G15 soit sélectionné a nouveau.
merci








Avatar
Daniel
Bonjour
Je m'explique un peu

Cet macro est déclancher quand on sélectionne la cellule G15 et
cela a tous les 12 seconde tant que la cellule est sélectionné.
De ce fait quand la dernière ligne resélectionne G15
la macro s'exsecute et ne respecte pas le 12 seconde.

Pour cette raison je voudrait pouvoir que collé mais ne pas a avoir
à désélectionner la cellule G15 pour colle à H15.

Merci

"Daniel" a écrit dans le message de news:

Bonjour ST

Je ne comprend pas très bien la ligne de commande.

Voici ma macros (pourait tu remplacer les 4 dernière commande) :

Sub Ouvrirnroute()
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
Dim MyData As DataObject
Set MyData = New DataObject
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé la
fenêtre
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé la
fenêtre
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^w", True ' Envoie la combinaison CTRL+w ouvre une fenêtre
SendKeys "{tab}", True ' Envoie la combinaison CTRL+tab
SendKeys "{tab}", True ' Envoie la combinaison CTRL+tab
SendKeys "^C", True ' Envoie la combinaison CTRL+c copie sur
presse-papier
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé la
fenêtre
SendKeys "%{tab}", True 'Envoie la combinaison CTRL+tab
MyData.GetFromClipboard '----Récupérer le Presse-papier
Sheets("Feuille_insp").Range("h15").Select
ActiveSheet.Paste
Sheets("Feuille_insp").Select
Range("g15").Select
End Sub

Merci


"ST" a écrit dans le message de news:
d8pb3b$
Tu peux tout simplement faire ceci :

Sheets("Feuille_insp").Range("g15").Value=Sheets("Feuille_insp").Range("h15"
).Value

Tu n'as donc pas besoin de sélectionner ton onglet et ta cellule.
L'exécution de ton code sera donc plus rapide.

ST


"Daniel" a écrit dans le message de
news:C0Wre.75805$
Bonjour à tous

Dans une macro peut t'on collé sans sélectionné une cellule ?
Exp:
Sheets("Feuille_insp").Range("h15").Select
ActiveSheet.Paste
Sheets("Feuille_insp").Select
Range("g15").Select
Dans les 4 dernière commande je colle le presse papier sur H15 et je
resélectionne la cellule G15.
le probème est que lorsque l'on selectionne G15 il y à un macros qui
doit
s'exécuter, donc je ne veut pas que
la cellule G15 soit sélectionné a nouveau.
merci