Discussion :

[Akit0]

Bonjour ou Bonsoir a tous,
Voila je vous explique le problème j'ai fouiner un peu sur internet et j'ai trouvé deux code vba que j'aimerais assembler mais je ne voit pas comment faire
Pourriez vous m'aider voici les 2 codes :

Code :

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

1
2
3
4
5
Dim plg As Range
Dim plc As Range
Set plg = Application.InputBox _
("Sélectionner une cellule", , , , , , , 8)
plc = plg.Address

Et

Code :

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

1
2
3
Sheets("Feuil1").Range("A1").Copy _
Destination:=Worksheets("Feuil4").Range("A1")
    Sheets("Feuil1").Select

Voila merci d'avance de votre réponse !

[clementmarcotte]

Bonjour,

Non testé, mais cela devrait ressembler au moins un peu à cela

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Rassemblée
   Dim plg As Range
   Dim plc As string
   Set plg = Application.InputBox _
            ("Sélectionner une cellule", , , , , , , 8)
   plc = plg.Address
  Sheets("Feuil1").Range("A1").Copy _
  Destination:=sheets("Feuil2").range(plc)
  Sheets("Feuil1").Select
End sub

[Akit0]

Tout d'abord merci de ta réponse ensuite il ce passe quelque chose de bizarre quand je lance le programme il me copie bien la bonne rangée et la bonne ligne mais je ne peut pas faire de choix multiple !! voila le code (un peu modifié !)

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub CopyPaste()
 Dim plg As Range
   Dim plc As String
   Set plg = Application.InputBox _
            ("Sélectionner une cellule", , , , , , , 8)
   plc = plg.Address
  Sheets("Feuil1").Range(plc).Copy _
  Destination:=Sheets("Feuil4").Range(plc)
  Sheets("Feuil1").Select
End Sub

Donc si tu pouvais me donner un coup de main....

[clementmarcotte]

Bonjour,

Que veux-tu dire par choix multiple ?

[Akit0]

Et bien c'est a dire quand je veux séléctionner plusieures cellules il me met que il ne peut pas faire de choix multiple !

[clementmarcotte]

Bonjour,

Ah OK. Mais là je ne code sous la main pour cela. Tu peux toujours regarder dans les messages du forum pour "sélection multiple" ou "sélection discontinue".

Également, si ton Office est à 32 bits, (le contrôle n'est pas compatible avec Excel 64 bits), tu peux regarder dans tes contrôles supplémentaires s'il n'y a pas un RefEdit qui traîne. C'est un contrôle qui permet de faire des sélections de plages ou de cellules. Tu pourrais l'utiliser à la place de ton InputBox.