Discussion :

[ledon94]

Bonour,
J'aimerais utiliser les données d'un input box type 8 que j'ai donné le choix a l'utilisateur de sélectionner la plage qu'il veut mon probleme je n'arrive pas a faire copier la plage qu'il a sélectionner pour le coller dans un autre:merci voici mon code qui ne marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub tde()
  Dim re As Range
  Set re = Application.InputBox("plage", Type:=8)
  'Sheets("Feuil3").Activate
  Sheets("Feuil3").re.Copy
  Sheets("Feuil2").re.PasteSpecial xlPasteValues

End Sub

[Menhir]

Une variable de type Range ne contient pas seulement d'adresse d'une cellule, elle pointe sur la cellule elle-même en intégrant tous les éléments pour la désigner.
Donc, pas besoin de mettre un Sheet devant ta variable re.

Cela dit, à mon avis il y a plus simple qu'une InputBox pour faire ce que tu souhaites.
Il suffirait de dire à l'utilisateur que ce qui sera copier est la cellule sélectionnée au moment du lancement de la macro.
Ta macro se résumerait alors à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub tde()
   Selection.Copy
   Sheets("Feuil2").Range(Selection.Address).PasteSpecial(xlPasteValues)
End Sub

C'est plus pratique et plus rapide pour l'utilisateur.

[ledon94]

merci bien mais avec selection.copy il ne peut pas faire des sélection multiple comment faire pour permettre la sélection multiple

[Menhir]

merci bien mais avec selection.copy il ne peut pas faire des sélection multiple

Tout ce qui marche avec ta méthode (sélection par InputBox) marchera avec la mienne (sélection directe).
Et, inversement, ce qui ne marche pas avec ma méthode ne marchera pas non plus avec la tienne.

Excel (je en parle pas seulement de VBA mais aussi d'Excel) ne sait pas gérer les copier/coller de zones discontinues.
Donc pas la peine d'essayer de le faire globalement.

La seule solution que je vois est de faire une boucle For Each sur la sélection (ou sur le résultat de ton InputBox) et de faire la copie cellule par cellule, ce qui, après tout, ne représenterai que 3 lignes de code en plus (en comptant la déclaration de variable).

[ledon94]

merci de m'avoir éclairé