veuillez selectionner la cellule de destination

[christian]

bonjour à tous

comment en vba construire la macro qui demande à l'utilisateur de selectionner la cellule de destination par exemple pour coller une plage

merci de votre aide

 

[Hervé]

Bonjour

Le code suivant utilise 2 application.inputbox :

1ère pour demander la plage à copier
2ème pour demander la plage de destination

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim plage1 As Range, plage2 As Range
Set plage1 = Application.InputBox("Sélectionnez la plage à copier : ", Type:=8)
Set plage2 = Application.InputBox("Sélectionnez la plage de destination : ", Type:=8)
plage1.Copy Destination:=plage2

End Sub

à toi de l'adapter.

Salut
Hervé

PS : je sens que je vais m'amuser avec ce postHit

 

[christian]

bonjour

tout d'abord merci pour la macro. ça marche bien mais si par erreur je fais annulé dans l'inputbox la macro plante. Comment éviter ce problème ?

 

[Hervé]

Bonjour

Le bug de la macro vient du fait que l’annulation renvoi un object vide.

Il faut donc utiliser un gestionnaire d’erreur

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim plage1 As Object, plage2 As Object
‘Si une erreur se produit se rendre à la balise gestionderreur
On Error GoTo gestionderreur

Set plage1 = Application.InputBox("Sélectionnez la plage à copier : ", Type:=8)
Set plage2 = Application.InputBox("Sélectionnez la plage de destination : ", Type:=8)
plage1.Copy Destination:=plage2

Exit Sub
gestionderreur:
End Sub

Salut
Hervé

 

[christian]

bonjour

j'ai testé la gestion des erreurs et c'est ok, merci encore.

J'ai un autre problème:
si la plage de destination est dans la feuiile active tout va bien mais comment faire si la plage de destination est dans une autre feuille ?

 

[Hervé]

bonjour

je comprend pas bien.

Tu selectionnes ton autre feuille ou ton autre classeur, puis ta cellule, et enfin tu valides.

l'application.inputbox est en modal, tu peut donc très simplement sélectionner un autre objet que la page active, tout ce faisant à la souris.

Salut
Hervé

 

[christian]

bonjour,

effectivement, tout va bien avec la macro telle qu'elle est présentée mais j'ai voulu l'adapter et c'est là que je rencontre des problèmes.

la plage à copier est selectionnée (pas à travers inputbox) et la plage de destination (à travers inputbox) est à insérer entre des lignes déjà remplies

j'ai joint le fichier en question pour plus de compréhension

salut
christian

 

[christian]

bonjour

a travers la macro suivante, comment selectionner la cellule active de la plage2 après l'avoir copiée


Sub Macro3()
'On Error GoTo finerreur
Set plage1 = Application.InputBox("Sélectionnez la plage à copier : ", Type:=8)
Set plage2 = Application.InputBox("Sélectionnez la plage de destination : ", Type:=8)
plage1.Copy destination:=plage2
'GoTo Fin
'fin de la boucle on error go to
'finerreur:
' MsgBox "vous n'avez pas sélectionné la cellule de destination"
'Fin:

End Sub


merci

 

[Hervé]

bonjour

regarde en pièce jointe

Salut
Hervé

 

[christian]

bonjour,

tout d'abord merci pour la solution apportée mais j'ai encore 2 questions par rapport au fichier joint cellule.zip

1°si j'ai une mise en forme conditionnelle dans les cellules du type:
=index($a:$a;ligne())="x" et que j'utilise le scroll de la souris pour définir la cellule de destination. la macro plante

2°la feuille de destination n'est pas forçément la feuille3 mais peut-être n'importe quelle feuille (même un autre classeur ouvert).

salut
christian

 

[christian]

bonjour

je n'arrive pas à définir la cellule de destination dans un autre classeur.

Existe-il une solution?


salut
christian