Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Copie rapide

Copie rapide

30 réponses
Avatar
Guy72
Bonjour,
Est-il possible de copier une cellule avec un clic sur celle-ci et un clic
sur une autre cellule ?
Valeur et format compris.
--
Cordialement
Guy
Signaler un problème avec ce contenu

10 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
1 2 3
Avatar
garnote
Et j'ajouterais :
On Error Resume Next
au début de sa macro.

Serge



"garnote" a écrit dans le message de news:
Alors la solution de Corto me semble la meilleure plus bonne ;-)
Tu fais un clic droit sur une cellule de d30:o30 et ensuite un clic droit
sur une cellule de d7:o26.

Serge




"Guy72" a écrit dans le message de news:
Oui c'est presque ça.
Je ne veux pouvoir copier que dans les cellules D7 à O26
Mais peut-on éviter la fenêtre et la question et coller dès que l'on a sélectionné la cellule ?
--
Cordialement
Guy
"garnote" a écrit dans le message de news:
Avec cette modif, la cellule ne sera pas copiée si tu
sélectionnes une cellule en dehors de D7:O26 :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:= _
"Sélectionnez une cellule de D7:O26 et cliquez sur OK.", Type:=8)
If Intersect(Range("D7:O26"), ici) Is Nothing Then
Cancel = True
Exit Sub
End If
Target.Copy ici
Cancel = True
End If
End Sub

Serge




"garnote" a écrit dans le message de news:
Et pour prévoir le cas où l'utilisateur clique sur Annuler :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une cellule et cliquez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Serge



"garnote" a écrit dans le message de news: %
Peut-être ceci :

Fais un clic droit sur l'onglet de ta feuille, clique sur "Visualiser le code"
et colle cette macro dans la feuille vierge qui devrait apparaître :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("D30:O30"), Target) Is Nothing And Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une cellule et tapez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Ensuite, sélectionne une cellule de d30:o30 et fais un clic droit.


Serge



"Guy72" a écrit dans le message de news:
Je ne sais pas trop comment m'expliquer.
Je veux copier avec 1 clic une cellule se trouvant dans la plage D30:O30, puis la coller en 1 clic dans une cellule de
la plage D7:O26 etc.....
Exemples:
1)-Je veux copier que la cellule D30 à l'emplacement de la cellule D26.(ou F17 ou E11 etc....)
2)-Même chose pour la cellule D31 à l'emplacement de la cellule H26 (ou.......)
3)-Même chose pour la cellule D32 à l'emplacement de la cellule F26 (ou.......)
etc.....etc.....
--
Cordialement
Guy
"Jacky" a écrit dans le message de news: uqm$
Re..
Il doit y avoir quelque chose qui m'échappe
Sinon en D7 de la feuille 2
þuil1!D30
et tirer jusqu'a O26
--
Salutations
JJ


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

Salut Guy72
Selectionne D30:O30 puis Ctrl + C (copier)
selectionne QUE D7 puis Ctrl +V (coller)
Cordialement
Michel


"Guy72" a écrit :

Les 12 cellules à choisir (une par une)sont dans la plage D30:O30, puis à
copier dans la plage D7:O26.
--
Cordialement
Guy

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

> Re...
>> Une fois ou deux d'accord en plus chercher la ligne copie sur 14 lignes
>
> Il en serait de même avec..
>> Est-il possible de copier une cellule avec un clic sur celle-ci et un
>> clic sur une autre cellule ?
>
> Si la plage des cellules sont toujours la même, en vba c'est facile, mais
> faudra en dire plus...
> --
> Salutations
> JJ
>
>
> "Guy72" a écrit dans le message de news:
>
>> Bonjour Jacky
>> Une fois ou deux d'accord en plus chercher la ligne copie sur 14 lignes
>> .....
>> Mais une dizaines de fois, c'est lourd.
>> --
>> Cordialement
>> Guy
>>
>> "Jacky" a écrit dans le message de news:
>>
>>> Bonjour,
>>>
>>> Clique droit==>copier
>>> Autre cellule
>>> Clique droit==>coller
>>> C'est pas assez rapide ??
>>>
>>> --
>>> Salutations
>>> JJ
>>>
>>>
>>> "Guy72" a écrit dans le message de news:
>>>
>>>> Bonjour,
>>>> Est-il possible de copier une cellule avec un clic sur celle-ci et un
>>>> clic sur une autre cellule ?
>>>> Valeur et format compris.
>>>> --
>>>> Cordialement
>>>> Guy
>>>>
>>>
>>>
>>
>>
>
>



































Avatar
garnote
La dernière solution de Jacky n'est pas piquée des vers non plus ;-)
et tu n'es pas obligé de faire un clic droit.

Serge



"garnote" a écrit dans le message de news:
Alors la solution de Corto me semble la meilleure plus bonne ;-)
Tu fais un clic droit sur une cellule de d30:o30 et ensuite un clic droit
sur une cellule de d7:o26.

Serge




"Guy72" a écrit dans le message de news:
Oui c'est presque ça.
Je ne veux pouvoir copier que dans les cellules D7 à O26
Mais peut-on éviter la fenêtre et la question et coller dès que l'on a sélectionné la cellule ?
--
Cordialement
Guy
"garnote" a écrit dans le message de news:
Avec cette modif, la cellule ne sera pas copiée si tu
sélectionnes une cellule en dehors de D7:O26 :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:= _
"Sélectionnez une cellule de D7:O26 et cliquez sur OK.", Type:=8)
If Intersect(Range("D7:O26"), ici) Is Nothing Then
Cancel = True
Exit Sub
End If
Target.Copy ici
Cancel = True
End If
End Sub

Serge




"garnote" a écrit dans le message de news:
Et pour prévoir le cas où l'utilisateur clique sur Annuler :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une cellule et cliquez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Serge



"garnote" a écrit dans le message de news: %
Peut-être ceci :

Fais un clic droit sur l'onglet de ta feuille, clique sur "Visualiser le code"
et colle cette macro dans la feuille vierge qui devrait apparaître :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("D30:O30"), Target) Is Nothing And Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une cellule et tapez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Ensuite, sélectionne une cellule de d30:o30 et fais un clic droit.


Serge



"Guy72" a écrit dans le message de news:
Je ne sais pas trop comment m'expliquer.
Je veux copier avec 1 clic une cellule se trouvant dans la plage D30:O30, puis la coller en 1 clic dans une cellule de
la plage D7:O26 etc.....
Exemples:
1)-Je veux copier que la cellule D30 à l'emplacement de la cellule D26.(ou F17 ou E11 etc....)
2)-Même chose pour la cellule D31 à l'emplacement de la cellule H26 (ou.......)
3)-Même chose pour la cellule D32 à l'emplacement de la cellule F26 (ou.......)
etc.....etc.....
--
Cordialement
Guy
"Jacky" a écrit dans le message de news: uqm$
Re..
Il doit y avoir quelque chose qui m'échappe
Sinon en D7 de la feuille 2
þuil1!D30
et tirer jusqu'a O26
--
Salutations
JJ


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

Salut Guy72
Selectionne D30:O30 puis Ctrl + C (copier)
selectionne QUE D7 puis Ctrl +V (coller)
Cordialement
Michel


"Guy72" a écrit :

Les 12 cellules à choisir (une par une)sont dans la plage D30:O30, puis à
copier dans la plage D7:O26.
--
Cordialement
Guy

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

> Re...
>> Une fois ou deux d'accord en plus chercher la ligne copie sur 14 lignes
>
> Il en serait de même avec..
>> Est-il possible de copier une cellule avec un clic sur celle-ci et un
>> clic sur une autre cellule ?
>
> Si la plage des cellules sont toujours la même, en vba c'est facile, mais
> faudra en dire plus...
> --
> Salutations
> JJ
>
>
> "Guy72" a écrit dans le message de news:
>
>> Bonjour Jacky
>> Une fois ou deux d'accord en plus chercher la ligne copie sur 14 lignes
>> .....
>> Mais une dizaines de fois, c'est lourd.
>> --
>> Cordialement
>> Guy
>>
>> "Jacky" a écrit dans le message de news:
>>
>>> Bonjour,
>>>
>>> Clique droit==>copier
>>> Autre cellule
>>> Clique droit==>coller
>>> C'est pas assez rapide ??
>>>
>>> --
>>> Salutations
>>> JJ
>>>
>>>
>>> "Guy72" a écrit dans le message de news:
>>>
>>>> Bonjour,
>>>> Est-il possible de copier une cellule avec un clic sur celle-ci et un
>>>> clic sur une autre cellule ?
>>>> Valeur et format compris.
>>>> --
>>>> Cordialement
>>>> Guy
>>>>
>>>
>>>
>>
>>
>
>



































Avatar
Guy72
Salut Jacky
Oui cela me conviendrais, mais je voulais avoir tout sur la même feuille.
--
Cordialement
Guy

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

Re
Oublie le code précédent .
essaie ceci:

Dans un module
Public x

dans le module de la feuille de copie
'------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
x = Target
Cells(Target.Row - 1, Target.Column).Select
End If
End Sub
'--------------
dans le module de la feuille de collage
'--------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [D7:O26]) Is Nothing Then
Target = x
End If
End Sub
'---------------
Voir ici
http://cjoint.com/?jxrVeyrh5y
--
Salutations
JJ


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

Re..
Ok
Dans le module de la feuil1
La feuille de collage est supposée "Feuil2" à adapter
'-----------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
If Target <> "" Then Sheets("feuil2").Cells(7, Target.Column) = Target
Cells(Target.Row - 1, Target.Column).Select
End If
End Sub
'----------------


--
Salutations
JJ


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

Je ne sais pas trop comment m'expliquer.
Je veux copier avec 1 clic une cellule se trouvant dans la plage
D30:O30, puis la coller en 1 clic dans une cellule de la plage D7:O26
etc.....
Exemples:
1)-Je veux copier que la cellule D30 à l'emplacement de la cellule
D26.(ou F17 ou E11 etc....)
2)-Même chose pour la cellule D31 à l'emplacement de la cellule H26
(ou.......)
3)-Même chose pour la cellule D32 à l'emplacement de la cellule F26
(ou.......)
etc.....etc.....
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:
uqm$
Re..
Il doit y avoir quelque chose qui m'échappe
Sinon en D7 de la feuille 2
þuil1!D30
et tirer jusqu'a O26
--
Salutations
JJ


"Michel69" a écrit dans le message
de news:
Salut Guy72
Selectionne D30:O30 puis Ctrl + C (copier)
selectionne QUE D7 puis Ctrl +V (coller)
Cordialement
Michel


"Guy72" a écrit :

Les 12 cellules à choisir (une par une)sont dans la plage D30:O30,
puis à
copier dans la plage D7:O26.
--
Cordialement
Guy

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

> Re...
>> Une fois ou deux d'accord en plus chercher la ligne copie sur 14
>> lignes
>
> Il en serait de même avec..
>> Est-il possible de copier une cellule avec un clic sur celle-ci et
>> un
>> clic sur une autre cellule ?
>
> Si la plage des cellules sont toujours la même, en vba c'est
> facile, mais
> faudra en dire plus...
> --
> Salutations
> JJ
>
>
> "Guy72" a écrit dans le message de news:
>
>> Bonjour Jacky
>> Une fois ou deux d'accord en plus chercher la ligne copie sur 14
>> lignes
>> .....
>> Mais une dizaines de fois, c'est lourd.
>> --
>> Cordialement
>> Guy
>>
>> "Jacky" a écrit dans le message de news:
>>
>>> Bonjour,
>>>
>>> Clique droit==>copier
>>> Autre cellule
>>> Clique droit==>coller
>>> C'est pas assez rapide ??
>>>
>>> --
>>> Salutations
>>> JJ
>>>
>>>
>>> "Guy72" a écrit dans le message de news:
>>>
>>>> Bonjour,
>>>> Est-il possible de copier une cellule avec un clic sur celle-ci
>>>> et un
>>>> clic sur une autre cellule ?
>>>> Valeur et format compris.
>>>> --
>>>> Cordialement
>>>> Guy
>>>>
>>>
>>>
>>
>>
>
>























Avatar
Guy72
Oui mais je voudrais avoir tout sur la même feuille.
Depuis j'essai de le faire mais je n'y arrive pas.

--
Cordialement
Guy
"garnote" a écrit dans le message de news:
uV%
La dernière solution de Jacky n'est pas piquée des vers non plus ;-)
et tu n'es pas obligé de faire un clic droit.

Serge



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

Alors la solution de Corto me semble la meilleure plus bonne ;-)
Tu fais un clic droit sur une cellule de d30:o30 et ensuite un clic droit
sur une cellule de d7:o26.

Serge




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

Oui c'est presque ça.
Je ne veux pouvoir copier que dans les cellules D7 à O26
Mais peut-on éviter la fenêtre et la question et coller dès que l'on a
sélectionné la cellule ?
--
Cordialement
Guy
"garnote" a écrit dans le message de news:

Avec cette modif, la cellule ne sera pas copiée si tu
sélectionnes une cellule en dehors de D7:O26 :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:= _
"Sélectionnez une cellule de D7:O26 et cliquez sur OK.",
Type:=8)
If Intersect(Range("D7:O26"), ici) Is Nothing Then
Cancel = True
Exit Sub
End If
Target.Copy ici
Cancel = True
End If
End Sub

Serge




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

Et pour prévoir le cas où l'utilisateur clique sur Annuler :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une
cellule et cliquez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Serge



"garnote" a écrit dans le message de news:
%
Peut-être ceci :

Fais un clic droit sur l'onglet de ta feuille, clique sur "Visualiser
le code"
et colle cette macro dans la feuille vierge qui devrait apparaître :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une
cellule et tapez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Ensuite, sélectionne une cellule de d30:o30 et fais un clic droit.


Serge



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

Je ne sais pas trop comment m'expliquer.
Je veux copier avec 1 clic une cellule se trouvant dans la plage
D30:O30, puis la coller en 1 clic dans une cellule de la plage
D7:O26 etc.....
Exemples:
1)-Je veux copier que la cellule D30 à l'emplacement de la cellule
D26.(ou F17 ou E11 etc....)
2)-Même chose pour la cellule D31 à l'emplacement de la cellule H26
(ou.......)
3)-Même chose pour la cellule D32 à l'emplacement de la cellule F26
(ou.......)
etc.....etc.....
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:
uqm$
Re..
Il doit y avoir quelque chose qui m'échappe
Sinon en D7 de la feuille 2
þuil1!D30
et tirer jusqu'a O26
--
Salutations
JJ


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

Salut Guy72
Selectionne D30:O30 puis Ctrl + C (copier)
selectionne QUE D7 puis Ctrl +V (coller)
Cordialement
Michel


"Guy72" a écrit :

Les 12 cellules à choisir (une par une)sont dans la plage
D30:O30, puis à
copier dans la plage D7:O26.
--
Cordialement
Guy

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

> Re...
>> Une fois ou deux d'accord en plus chercher la ligne copie sur
>> 14 lignes
>
> Il en serait de même avec..
>> Est-il possible de copier une cellule avec un clic sur
>> celle-ci et un
>> clic sur une autre cellule ?
>
> Si la plage des cellules sont toujours la même, en vba c'est
> facile, mais
> faudra en dire plus...
> --
> Salutations
> JJ
>
>
> "Guy72" a écrit dans le message de news:
>
>> Bonjour Jacky
>> Une fois ou deux d'accord en plus chercher la ligne copie sur
>> 14 lignes
>> .....
>> Mais une dizaines de fois, c'est lourd.
>> --
>> Cordialement
>> Guy
>>
>> "Jacky" a écrit dans le message de news:
>>
>>> Bonjour,
>>>
>>> Clique droit==>copier
>>> Autre cellule
>>> Clique droit==>coller
>>> C'est pas assez rapide ??
>>>
>>> --
>>> Salutations
>>> JJ
>>>
>>>
>>> "Guy72" a écrit dans le message de news:
>>>
>>>> Bonjour,
>>>> Est-il possible de copier une cellule avec un clic sur
>>>> celle-ci et un
>>>> clic sur une autre cellule ?
>>>> Valeur et format compris.
>>>> --
>>>> Cordialement
>>>> Guy
>>>>
>>>
>>>
>>
>>
>
>







































Avatar
Guy72
J'ai trouvé comment faire, ça fonctionne.
Mais peut-on imposer une plage (D7:O26)pour la copie ?
Et éviter de changer de place la sélection à la copie ?

http://cjoint.com/?jxu2TIrM85
--
Cordialement
Guy
"Guy72" a écrit dans le message de news:
%
Oui mais je voudrais avoir tout sur la même feuille.
Depuis j'essai de le faire mais je n'y arrive pas.

--
Cordialement
Guy
"garnote" a écrit dans le message de news:
uV%
La dernière solution de Jacky n'est pas piquée des vers non plus ;-)
et tu n'es pas obligé de faire un clic droit.

Serge



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

Alors la solution de Corto me semble la meilleure plus bonne ;-)
Tu fais un clic droit sur une cellule de d30:o30 et ensuite un clic
droit
sur une cellule de d7:o26.

Serge




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

Oui c'est presque ça.
Je ne veux pouvoir copier que dans les cellules D7 à O26
Mais peut-on éviter la fenêtre et la question et coller dès que l'on a
sélectionné la cellule ?
--
Cordialement
Guy
"garnote" a écrit dans le message de news:

Avec cette modif, la cellule ne sera pas copiée si tu
sélectionnes une cellule en dehors de D7:O26 :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:= _
"Sélectionnez une cellule de D7:O26 et cliquez sur OK.",
Type:=8)
If Intersect(Range("D7:O26"), ici) Is Nothing Then
Cancel = True
Exit Sub
End If
Target.Copy ici
Cancel = True
End If
End Sub

Serge




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

Et pour prévoir le cas où l'utilisateur clique sur Annuler :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une
cellule et cliquez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Serge



"garnote" a écrit dans le message de
news: %
Peut-être ceci :

Fais un clic droit sur l'onglet de ta feuille, clique sur
"Visualiser le code"
et colle cette macro dans la feuille vierge qui devrait apparaître :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une
cellule et tapez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Ensuite, sélectionne une cellule de d30:o30 et fais un clic droit.


Serge



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

Je ne sais pas trop comment m'expliquer.
Je veux copier avec 1 clic une cellule se trouvant dans la plage
D30:O30, puis la coller en 1 clic dans une cellule de la plage
D7:O26 etc.....
Exemples:
1)-Je veux copier que la cellule D30 à l'emplacement de la cellule
D26.(ou F17 ou E11 etc....)
2)-Même chose pour la cellule D31 à l'emplacement de la cellule H26
(ou.......)
3)-Même chose pour la cellule D32 à l'emplacement de la cellule F26
(ou.......)
etc.....etc.....
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:
uqm$
Re..
Il doit y avoir quelque chose qui m'échappe
Sinon en D7 de la feuille 2
þuil1!D30
et tirer jusqu'a O26
--
Salutations
JJ


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

Salut Guy72
Selectionne D30:O30 puis Ctrl + C (copier)
selectionne QUE D7 puis Ctrl +V (coller)
Cordialement
Michel


"Guy72" a écrit :

Les 12 cellules à choisir (une par une)sont dans la plage
D30:O30, puis à
copier dans la plage D7:O26.
--
Cordialement
Guy

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

> Re...
>> Une fois ou deux d'accord en plus chercher la ligne copie sur
>> 14 lignes
>
> Il en serait de même avec..
>> Est-il possible de copier une cellule avec un clic sur
>> celle-ci et un
>> clic sur une autre cellule ?
>
> Si la plage des cellules sont toujours la même, en vba c'est
> facile, mais
> faudra en dire plus...
> --
> Salutations
> JJ
>
>
> "Guy72" a écrit dans le message de news:
>
>> Bonjour Jacky
>> Une fois ou deux d'accord en plus chercher la ligne copie sur
>> 14 lignes
>> .....
>> Mais une dizaines de fois, c'est lourd.
>> --
>> Cordialement
>> Guy
>>
>> "Jacky" a écrit dans le message de news:
>>
>>> Bonjour,
>>>
>>> Clique droit==>copier
>>> Autre cellule
>>> Clique droit==>coller
>>> C'est pas assez rapide ??
>>>
>>> --
>>> Salutations
>>> JJ
>>>
>>>
>>> "Guy72" a écrit dans le message de
>>> news:
>>>
>>>> Bonjour,
>>>> Est-il possible de copier une cellule avec un clic sur
>>>> celle-ci et un
>>>> clic sur une autre cellule ?
>>>> Valeur et format compris.
>>>> --
>>>> Cordialement
>>>> Guy
>>>>
>>>
>>>
>>
>>
>
>











































Avatar
Jacky
Re...
'-------------------
Public x
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
x = Target
End If
If Not Intersect(Target, [D7:O26]) Is Nothing Then
Target = x
End If
End Sub
'--------------------
OU avec format
'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
Target.Copy
End If
If Not Intersect(Target, [D7:O26]) Is Nothing Then
Me.Paste Target
End If
End Sub
"------------------------
--
Salutations
JJ


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

J'ai trouvé comment faire, ça fonctionne.
Mais peut-on imposer une plage (D7:O26)pour la copie ?
Et éviter de changer de place la sélection à la copie ?

http://cjoint.com/?jxu2TIrM85
--
Cordialement
Guy
"Guy72" a écrit dans le message de news:
%
Oui mais je voudrais avoir tout sur la même feuille.
Depuis j'essai de le faire mais je n'y arrive pas.

--
Cordialement
Guy
"garnote" a écrit dans le message de news:
uV%
La dernière solution de Jacky n'est pas piquée des vers non plus ;-)
et tu n'es pas obligé de faire un clic droit.

Serge



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

Alors la solution de Corto me semble la meilleure plus bonne ;-)
Tu fais un clic droit sur une cellule de d30:o30 et ensuite un clic
droit
sur une cellule de d7:o26.

Serge




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

Oui c'est presque ça.
Je ne veux pouvoir copier que dans les cellules D7 à O26
Mais peut-on éviter la fenêtre et la question et coller dès que l'on a
sélectionné la cellule ?
--
Cordialement
Guy
"garnote" a écrit dans le message de news:

Avec cette modif, la cellule ne sera pas copiée si tu
sélectionnes une cellule en dehors de D7:O26 :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:= _
"Sélectionnez une cellule de D7:O26 et cliquez sur OK.",
Type:=8)
If Intersect(Range("D7:O26"), ici) Is Nothing Then
Cancel = True
Exit Sub
End If
Target.Copy ici
Cancel = True
End If
End Sub

Serge




"garnote" a écrit dans le message de
news:
Et pour prévoir le cas où l'utilisateur clique sur Annuler :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une
cellule et cliquez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Serge



"garnote" a écrit dans le message de
news: %
Peut-être ceci :

Fais un clic droit sur l'onglet de ta feuille, clique sur
"Visualiser le code"
et colle cette macro dans la feuille vierge qui devrait apparaître
:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,
Cancel As Boolean)
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une
cellule et tapez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Ensuite, sélectionne une cellule de d30:o30 et fais un clic droit.


Serge



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

Je ne sais pas trop comment m'expliquer.
Je veux copier avec 1 clic une cellule se trouvant dans la plage
D30:O30, puis la coller en 1 clic dans une cellule de la plage
D7:O26 etc.....
Exemples:
1)-Je veux copier que la cellule D30 à l'emplacement de la cellule
D26.(ou F17 ou E11 etc....)
2)-Même chose pour la cellule D31 à l'emplacement de la cellule
H26 (ou.......)
3)-Même chose pour la cellule D32 à l'emplacement de la cellule
F26 (ou.......)
etc.....etc.....
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:
uqm$
Re..
Il doit y avoir quelque chose qui m'échappe
Sinon en D7 de la feuille 2
þuil1!D30
et tirer jusqu'a O26
--
Salutations
JJ


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

Salut Guy72
Selectionne D30:O30 puis Ctrl + C (copier)
selectionne QUE D7 puis Ctrl +V (coller)
Cordialement
Michel


"Guy72" a écrit :

Les 12 cellules à choisir (une par une)sont dans la plage
D30:O30, puis à
copier dans la plage D7:O26.
--
Cordialement
Guy

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

> Re...
>> Une fois ou deux d'accord en plus chercher la ligne copie
>> sur 14 lignes
>
> Il en serait de même avec..
>> Est-il possible de copier une cellule avec un clic sur
>> celle-ci et un
>> clic sur une autre cellule ?
>
> Si la plage des cellules sont toujours la même, en vba c'est
> facile, mais
> faudra en dire plus...
> --
> Salutations
> JJ
>
>
> "Guy72" a écrit dans le message de news:
>
>> Bonjour Jacky
>> Une fois ou deux d'accord en plus chercher la ligne copie
>> sur 14 lignes
>> .....
>> Mais une dizaines de fois, c'est lourd.
>> --
>> Cordialement
>> Guy
>>
>> "Jacky" a écrit dans le message de news:
>>
>>> Bonjour,
>>>
>>> Clique droit==>copier
>>> Autre cellule
>>> Clique droit==>coller
>>> C'est pas assez rapide ??
>>>
>>> --
>>> Salutations
>>> JJ
>>>
>>>
>>> "Guy72" a écrit dans le message de
>>> news:
>>>
>>>> Bonjour,
>>>> Est-il possible de copier une cellule avec un clic sur
>>>> celle-ci et un
>>>> clic sur une autre cellule ?
>>>> Valeur et format compris.
>>>> --
>>>> Cordialement
>>>> Guy
>>>>
>>>
>>>
>>
>>
>
>















































Avatar
Guy72
C'est tout à fait ça.
Merci Jacky.
Bonne nuit
--
Cordialement
Guy

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

Re...
'-------------------
Public x
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
x = Target
End If
If Not Intersect(Target, [D7:O26]) Is Nothing Then
Target = x
End If
End Sub
'--------------------
OU avec format
'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
Target.Copy
End If
If Not Intersect(Target, [D7:O26]) Is Nothing Then
Me.Paste Target
End If
End Sub
"------------------------
--
Salutations
JJ


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

J'ai trouvé comment faire, ça fonctionne.
Mais peut-on imposer une plage (D7:O26)pour la copie ?
Et éviter de changer de place la sélection à la copie ?

http://cjoint.com/?jxu2TIrM85
--
Cordialement
Guy
"Guy72" a écrit dans le message de news:
%
Oui mais je voudrais avoir tout sur la même feuille.
Depuis j'essai de le faire mais je n'y arrive pas.

--
Cordialement
Guy
"garnote" a écrit dans le message de news:
uV%
La dernière solution de Jacky n'est pas piquée des vers non plus ;-)
et tu n'es pas obligé de faire un clic droit.

Serge



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

Alors la solution de Corto me semble la meilleure plus bonne ;-)
Tu fais un clic droit sur une cellule de d30:o30 et ensuite un clic
droit
sur une cellule de d7:o26.

Serge




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

Oui c'est presque ça.
Je ne veux pouvoir copier que dans les cellules D7 à O26
Mais peut-on éviter la fenêtre et la question et coller dès que l'on
a sélectionné la cellule ?
--
Cordialement
Guy
"garnote" a écrit dans le message de
news:
Avec cette modif, la cellule ne sera pas copiée si tu
sélectionnes une cellule en dehors de D7:O26 :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel
As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:= _
"Sélectionnez une cellule de D7:O26 et cliquez sur OK.",
Type:=8)
If Intersect(Range("D7:O26"), ici) Is Nothing Then
Cancel = True
Exit Sub
End If
Target.Copy ici
Cancel = True
End If
End Sub

Serge




"garnote" a écrit dans le message de
news:
Et pour prévoir le cas où l'utilisateur clique sur Annuler :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,
Cancel As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une
cellule et cliquez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Serge



"garnote" a écrit dans le message de
news: %
Peut-être ceci :

Fais un clic droit sur l'onglet de ta feuille, clique sur
"Visualiser le code"
et colle cette macro dans la feuille vierge qui devrait apparaître
:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,
Cancel As Boolean)
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez
une cellule et tapez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Ensuite, sélectionne une cellule de d30:o30 et fais un clic droit.


Serge



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

Je ne sais pas trop comment m'expliquer.
Je veux copier avec 1 clic une cellule se trouvant dans la plage
D30:O30, puis la coller en 1 clic dans une cellule de la plage
D7:O26 etc.....
Exemples:
1)-Je veux copier que la cellule D30 à l'emplacement de la
cellule D26.(ou F17 ou E11 etc....)
2)-Même chose pour la cellule D31 à l'emplacement de la cellule
H26 (ou.......)
3)-Même chose pour la cellule D32 à l'emplacement de la cellule
F26 (ou.......)
etc.....etc.....
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:
uqm$
Re..
Il doit y avoir quelque chose qui m'échappe
Sinon en D7 de la feuille 2
þuil1!D30
et tirer jusqu'a O26
--
Salutations
JJ


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

Salut Guy72
Selectionne D30:O30 puis Ctrl + C (copier)
selectionne QUE D7 puis Ctrl +V (coller)
Cordialement
Michel


"Guy72" a écrit :

Les 12 cellules à choisir (une par une)sont dans la plage
D30:O30, puis à
copier dans la plage D7:O26.
--
Cordialement
Guy

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

> Re...
>> Une fois ou deux d'accord en plus chercher la ligne copie
>> sur 14 lignes
>
> Il en serait de même avec..
>> Est-il possible de copier une cellule avec un clic sur
>> celle-ci et un
>> clic sur une autre cellule ?
>
> Si la plage des cellules sont toujours la même, en vba c'est
> facile, mais
> faudra en dire plus...
> --
> Salutations
> JJ
>
>
> "Guy72" a écrit dans le message de
> news:
>
>> Bonjour Jacky
>> Une fois ou deux d'accord en plus chercher la ligne copie
>> sur 14 lignes
>> .....
>> Mais une dizaines de fois, c'est lourd.
>> --
>> Cordialement
>> Guy
>>
>> "Jacky" a écrit dans le message de news:
>>
>>> Bonjour,
>>>
>>> Clique droit==>copier
>>> Autre cellule
>>> Clique droit==>coller
>>> C'est pas assez rapide ??
>>>
>>> --
>>> Salutations
>>> JJ
>>>
>>>
>>> "Guy72" a écrit dans le message de
>>> news:
>>>
>>>> Bonjour,
>>>> Est-il possible de copier une cellule avec un clic sur
>>>> celle-ci et un
>>>> clic sur une autre cellule ?
>>>> Valeur et format compris.
>>>> --
>>>> Cordialement
>>>> Guy
>>>>
>>>
>>>
>>
>>
>
>



















































Avatar
garnote
Salut Jacky,

Je trouve ta macro super astucieuse.

Pour vérifier que j'ai bien compris et pour le plaisir,
j'ai nommé deux plages de cellules discontinues :
ici : la plage contenant les valeurs à copier
la : la plage où les coller.

Ce qui me donne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [ici]) Is Nothing And Target.Count = 1 Then Target.Copy
If Not Intersect(Target, [la]) Is Nothing Then Me.Paste Target
End Sub

Ai-je tort de supposer que Me désigne la feuille active ?

Serge



"Jacky" a écrit dans le message de news:
Re...
'-------------------
Public x
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
x = Target
End If
If Not Intersect(Target, [D7:O26]) Is Nothing Then
Target = x
End If
End Sub
'--------------------
OU avec format
'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
Target.Copy
End If
If Not Intersect(Target, [D7:O26]) Is Nothing Then
Me.Paste Target
End If
End Sub
"------------------------
--
Salutations
JJ


"Guy72" a écrit dans le message de news:
J'ai trouvé comment faire, ça fonctionne.
Mais peut-on imposer une plage (D7:O26)pour la copie ?
Et éviter de changer de place la sélection à la copie ?

http://cjoint.com/?jxu2TIrM85
--
Cordialement
Guy
"Guy72" a écrit dans le message de news: %
Oui mais je voudrais avoir tout sur la même feuille.
Depuis j'essai de le faire mais je n'y arrive pas.

--
Cordialement
Guy
"garnote" a écrit dans le message de news: uV%
La dernière solution de Jacky n'est pas piquée des vers non plus ;-)
et tu n'es pas obligé de faire un clic droit.

Serge



"garnote" a écrit dans le message de news:
Alors la solution de Corto me semble la meilleure plus bonne ;-)
Tu fais un clic droit sur une cellule de d30:o30 et ensuite un clic droit
sur une cellule de d7:o26.

Serge




"Guy72" a écrit dans le message de news:
Oui c'est presque ça.
Je ne veux pouvoir copier que dans les cellules D7 à O26
Mais peut-on éviter la fenêtre et la question et coller dès que l'on a sélectionné la cellule ?
--
Cordialement
Guy
"garnote" a écrit dans le message de news:
Avec cette modif, la cellule ne sera pas copiée si tu
sélectionnes une cellule en dehors de D7:O26 :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:= _
"Sélectionnez une cellule de D7:O26 et cliquez sur OK.", Type:=8)
If Intersect(Range("D7:O26"), ici) Is Nothing Then
Cancel = True
Exit Sub
End If
Target.Copy ici
Cancel = True
End If
End Sub

Serge




"garnote" a écrit dans le message de news:
Et pour prévoir le cas où l'utilisateur clique sur Annuler :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une cellule et cliquez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Serge



"garnote" a écrit dans le message de news: %
Peut-être ceci :

Fais un clic droit sur l'onglet de ta feuille, clique sur "Visualiser le code"
et colle cette macro dans la feuille vierge qui devrait apparaître :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("D30:O30"), Target) Is Nothing And Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez une cellule et tapez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Ensuite, sélectionne une cellule de d30:o30 et fais un clic droit.


Serge



"Guy72" a écrit dans le message de news:
Je ne sais pas trop comment m'expliquer.
Je veux copier avec 1 clic une cellule se trouvant dans la plage D30:O30, puis la coller en 1 clic dans une
cellule de la plage D7:O26 etc.....
Exemples:
1)-Je veux copier que la cellule D30 à l'emplacement de la cellule D26.(ou F17 ou E11 etc....)
2)-Même chose pour la cellule D31 à l'emplacement de la cellule H26 (ou.......)
3)-Même chose pour la cellule D32 à l'emplacement de la cellule F26 (ou.......)
etc.....etc.....
--
Cordialement
Guy
"Jacky" a écrit dans le message de news: uqm$
Re..
Il doit y avoir quelque chose qui m'échappe
Sinon en D7 de la feuille 2
þuil1!D30
et tirer jusqu'a O26
--
Salutations
JJ


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

Salut Guy72
Selectionne D30:O30 puis Ctrl + C (copier)
selectionne QUE D7 puis Ctrl +V (coller)
Cordialement
Michel


"Guy72" a écrit :

Les 12 cellules à choisir (une par une)sont dans la plage D30:O30, puis à
copier dans la plage D7:O26.
--
Cordialement
Guy

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

> Re...
>> Une fois ou deux d'accord en plus chercher la ligne copie sur 14 lignes
>
> Il en serait de même avec..
>> Est-il possible de copier une cellule avec un clic sur celle-ci et un
>> clic sur une autre cellule ?
>
> Si la plage des cellules sont toujours la même, en vba c'est facile, mais
> faudra en dire plus...
> --
> Salutations
> JJ
>
>
> "Guy72" a écrit dans le message de news:
>
>> Bonjour Jacky
>> Une fois ou deux d'accord en plus chercher la ligne copie sur 14 lignes
>> .....
>> Mais une dizaines de fois, c'est lourd.
>> --
>> Cordialement
>> Guy
>>
>> "Jacky" a écrit dans le message de news:
>>
>>> Bonjour,
>>>
>>> Clique droit==>copier
>>> Autre cellule
>>> Clique droit==>coller
>>> C'est pas assez rapide ??
>>>
>>> --
>>> Salutations
>>> JJ
>>>
>>>
>>> "Guy72" a écrit dans le message de news:
>>>
>>>> Bonjour,
>>>> Est-il possible de copier une cellule avec un clic sur celle-ci et un
>>>> clic sur une autre cellule ?
>>>> Valeur et format compris.
>>>> --
>>>> Cordialement
>>>> Guy
>>>>
>>>
>>>
>>
>>
>
>



















































Avatar
Guy72
Bonjour garnote
Excuse-moi, le message ne m'est pas adresser, mais je voudrait apporter une
précision.
Après avoir cliquer sur [ici] tu peux coller sur [la] (d'accord) mais on ne
devrais pas coller en dehors de la plage [la].
--
Cordialement
Guy
"garnote" a écrit dans le message de news:

Salut Jacky,

Je trouve ta macro super astucieuse.

Pour vérifier que j'ai bien compris et pour le plaisir,
j'ai nommé deux plages de cellules discontinues :
ici : la plage contenant les valeurs à copier
la : la plage où les coller.

Ce qui me donne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [ici]) Is Nothing And Target.Count = 1 Then
Target.Copy
If Not Intersect(Target, [la]) Is Nothing Then Me.Paste Target
End Sub

Ai-je tort de supposer que Me désigne la feuille active ?

Serge



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

Re...
'-------------------
Public x
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
x = Target
End If
If Not Intersect(Target, [D7:O26]) Is Nothing Then
Target = x
End If
End Sub
'--------------------
OU avec format
'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
Target.Copy
End If
If Not Intersect(Target, [D7:O26]) Is Nothing Then
Me.Paste Target
End If
End Sub
"------------------------
--
Salutations
JJ


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

J'ai trouvé comment faire, ça fonctionne.
Mais peut-on imposer une plage (D7:O26)pour la copie ?
Et éviter de changer de place la sélection à la copie ?

http://cjoint.com/?jxu2TIrM85
--
Cordialement
Guy
"Guy72" a écrit dans le message de news:
%
Oui mais je voudrais avoir tout sur la même feuille.
Depuis j'essai de le faire mais je n'y arrive pas.

--
Cordialement
Guy
"garnote" a écrit dans le message de news:
uV%
La dernière solution de Jacky n'est pas piquée des vers non plus ;-)
et tu n'es pas obligé de faire un clic droit.

Serge



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

Alors la solution de Corto me semble la meilleure plus bonne ;-)
Tu fais un clic droit sur une cellule de d30:o30 et ensuite un clic
droit
sur une cellule de d7:o26.

Serge




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

Oui c'est presque ça.
Je ne veux pouvoir copier que dans les cellules D7 à O26
Mais peut-on éviter la fenêtre et la question et coller dès que l'on
a sélectionné la cellule ?
--
Cordialement
Guy
"garnote" a écrit dans le message de
news:
Avec cette modif, la cellule ne sera pas copiée si tu
sélectionnes une cellule en dehors de D7:O26 :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,
Cancel As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:= _
"Sélectionnez une cellule de D7:O26 et cliquez sur OK.",
Type:=8)
If Intersect(Range("D7:O26"), ici) Is Nothing Then
Cancel = True
Exit Sub
End If
Target.Copy ici
Cancel = True
End If
End Sub

Serge




"garnote" a écrit dans le message de
news:
Et pour prévoir le cas où l'utilisateur clique sur Annuler :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,
Cancel As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez
une cellule et cliquez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Serge



"garnote" a écrit dans le message de
news: %
Peut-être ceci :

Fais un clic droit sur l'onglet de ta feuille, clique sur
"Visualiser le code"
et colle cette macro dans la feuille vierge qui devrait
apparaître :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,
Cancel As Boolean)
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez
une cellule et tapez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Ensuite, sélectionne une cellule de d30:o30 et fais un clic
droit.


Serge



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

Je ne sais pas trop comment m'expliquer.
Je veux copier avec 1 clic une cellule se trouvant dans la plage
D30:O30, puis la coller en 1 clic dans une cellule de la plage
D7:O26 etc.....
Exemples:
1)-Je veux copier que la cellule D30 à l'emplacement de la
cellule D26.(ou F17 ou E11 etc....)
2)-Même chose pour la cellule D31 à l'emplacement de la cellule
H26 (ou.......)
3)-Même chose pour la cellule D32 à l'emplacement de la cellule
F26 (ou.......)
etc.....etc.....
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:
uqm$
Re..
Il doit y avoir quelque chose qui m'échappe
Sinon en D7 de la feuille 2
þuil1!D30
et tirer jusqu'a O26
--
Salutations
JJ


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

Salut Guy72
Selectionne D30:O30 puis Ctrl + C (copier)
selectionne QUE D7 puis Ctrl +V (coller)
Cordialement
Michel


"Guy72" a écrit :

Les 12 cellules à choisir (une par une)sont dans la plage
D30:O30, puis à
copier dans la plage D7:O26.
--
Cordialement
Guy

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

> Re...
>> Une fois ou deux d'accord en plus chercher la ligne copie
>> sur 14 lignes
>
> Il en serait de même avec..
>> Est-il possible de copier une cellule avec un clic sur
>> celle-ci et un
>> clic sur une autre cellule ?
>
> Si la plage des cellules sont toujours la même, en vba
> c'est facile, mais
> faudra en dire plus...
> --
> Salutations
> JJ
>
>
> "Guy72" a écrit dans le message de
> news:
>
>> Bonjour Jacky
>> Une fois ou deux d'accord en plus chercher la ligne copie
>> sur 14 lignes
>> .....
>> Mais une dizaines de fois, c'est lourd.
>> --
>> Cordialement
>> Guy
>>
>> "Jacky" a écrit dans le message de
>> news:
>>
>>> Bonjour,
>>>
>>> Clique droit==>copier
>>> Autre cellule
>>> Clique droit==>coller
>>> C'est pas assez rapide ??
>>>
>>> --
>>> Salutations
>>> JJ
>>>
>>>
>>> "Guy72" a écrit dans le message de
>>> news:
>>>
>>>> Bonjour,
>>>> Est-il possible de copier une cellule avec un clic sur
>>>> celle-ci et un
>>>> clic sur une autre cellule ?
>>>> Valeur et format compris.
>>>> --
>>>> Cordialement
>>>> Guy
>>>>
>>>
>>>
>>
>>
>
>























































Avatar
Jacky
Salut serge
Ai-je tort de supposer que Me désigne la feuille active ?


Ben non ;o)
MsgBox Me.Name
ActiveSheet.Name = "serge"
MsgBox Me.Name
ou aussi
.....Then ActiveSheet.Paste Target

--
Salutations
JJ


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

Salut Jacky,

Je trouve ta macro super astucieuse.

Pour vérifier que j'ai bien compris et pour le plaisir,
j'ai nommé deux plages de cellules discontinues :
ici : la plage contenant les valeurs à copier
la : la plage où les coller.

Ce qui me donne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [ici]) Is Nothing And Target.Count = 1 Then
Target.Copy
If Not Intersect(Target, [la]) Is Nothing Then Me.Paste Target
End Sub

Ai-je tort de supposer que Me désigne la feuille active ?

Serge



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

Re...
'-------------------
Public x
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
x = Target
End If
If Not Intersect(Target, [D7:O26]) Is Nothing Then
Target = x
End If
End Sub
'--------------------
OU avec format
'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [D30:O30]) Is Nothing And Target.Count = 1 Then
Target.Copy
End If
If Not Intersect(Target, [D7:O26]) Is Nothing Then
Me.Paste Target
End If
End Sub
"------------------------
--
Salutations
JJ


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

J'ai trouvé comment faire, ça fonctionne.
Mais peut-on imposer une plage (D7:O26)pour la copie ?
Et éviter de changer de place la sélection à la copie ?

http://cjoint.com/?jxu2TIrM85
--
Cordialement
Guy
"Guy72" a écrit dans le message de news:
%
Oui mais je voudrais avoir tout sur la même feuille.
Depuis j'essai de le faire mais je n'y arrive pas.

--
Cordialement
Guy
"garnote" a écrit dans le message de news:
uV%
La dernière solution de Jacky n'est pas piquée des vers non plus ;-)
et tu n'es pas obligé de faire un clic droit.

Serge



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

Alors la solution de Corto me semble la meilleure plus bonne ;-)
Tu fais un clic droit sur une cellule de d30:o30 et ensuite un clic
droit
sur une cellule de d7:o26.

Serge




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

Oui c'est presque ça.
Je ne veux pouvoir copier que dans les cellules D7 à O26
Mais peut-on éviter la fenêtre et la question et coller dès que l'on
a sélectionné la cellule ?
--
Cordialement
Guy
"garnote" a écrit dans le message de
news:
Avec cette modif, la cellule ne sera pas copiée si tu
sélectionnes une cellule en dehors de D7:O26 :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,
Cancel As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:= _
"Sélectionnez une cellule de D7:O26 et cliquez sur OK.",
Type:=8)
If Intersect(Range("D7:O26"), ici) Is Nothing Then
Cancel = True
Exit Sub
End If
Target.Copy ici
Cancel = True
End If
End Sub

Serge




"garnote" a écrit dans le message de
news:
Et pour prévoir le cas où l'utilisateur clique sur Annuler :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,
Cancel As Boolean)
On Error Resume Next
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez
une cellule et cliquez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Serge



"garnote" a écrit dans le message de
news: %
Peut-être ceci :

Fais un clic droit sur l'onglet de ta feuille, clique sur
"Visualiser le code"
et colle cette macro dans la feuille vierge qui devrait
apparaître :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range,
Cancel As Boolean)
If Not Intersect(Range("D30:O30"), Target) Is Nothing And
Target.Count = 1 Then
Set ici = Application.InputBox(Prompt:="Sélectionnez
une cellule et tapez sur OK.", Type:=8)
Target.Copy ici
Cancel = True
End If
End Sub

Ensuite, sélectionne une cellule de d30:o30 et fais un clic
droit.


Serge



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

Je ne sais pas trop comment m'expliquer.
Je veux copier avec 1 clic une cellule se trouvant dans la plage
D30:O30, puis la coller en 1 clic dans une cellule de la plage
D7:O26 etc.....
Exemples:
1)-Je veux copier que la cellule D30 à l'emplacement de la
cellule D26.(ou F17 ou E11 etc....)
2)-Même chose pour la cellule D31 à l'emplacement de la cellule
H26 (ou.......)
3)-Même chose pour la cellule D32 à l'emplacement de la cellule
F26 (ou.......)
etc.....etc.....
--
Cordialement
Guy
"Jacky" a écrit dans le message de news:
uqm$
Re..
Il doit y avoir quelque chose qui m'échappe
Sinon en D7 de la feuille 2
þuil1!D30
et tirer jusqu'a O26
--
Salutations
JJ


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

Salut Guy72
Selectionne D30:O30 puis Ctrl + C (copier)
selectionne QUE D7 puis Ctrl +V (coller)
Cordialement
Michel


"Guy72" a écrit :

Les 12 cellules à choisir (une par une)sont dans la plage
D30:O30, puis à
copier dans la plage D7:O26.
--
Cordialement
Guy

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

> Re...
>> Une fois ou deux d'accord en plus chercher la ligne copie
>> sur 14 lignes
>
> Il en serait de même avec..
>> Est-il possible de copier une cellule avec un clic sur
>> celle-ci et un
>> clic sur une autre cellule ?
>
> Si la plage des cellules sont toujours la même, en vba
> c'est facile, mais
> faudra en dire plus...
> --
> Salutations
> JJ
>
>
> "Guy72" a écrit dans le message de
> news:
>
>> Bonjour Jacky
>> Une fois ou deux d'accord en plus chercher la ligne copie
>> sur 14 lignes
>> .....
>> Mais une dizaines de fois, c'est lourd.
>> --
>> Cordialement
>> Guy
>>
>> "Jacky" a écrit dans le message de
>> news:
>>
>>> Bonjour,
>>>
>>> Clique droit==>copier
>>> Autre cellule
>>> Clique droit==>coller
>>> C'est pas assez rapide ??
>>>
>>> --
>>> Salutations
>>> JJ
>>>
>>>
>>> "Guy72" a écrit dans le message de
>>> news:
>>>
>>>> Bonjour,
>>>> Est-il possible de copier une cellule avec un clic sur
>>>> celle-ci et un
>>>> clic sur une autre cellule ?
>>>> Valeur et format compris.
>>>> --
>>>> Cordialement
>>>> Guy
>>>>
>>>
>>>
>>
>>
>
>























































1 2 3