COPIER - Cette action ne fonctionne pas sur plusieurs sélections

Bonjour à tous,

j'ai un petit souci avec excel. Je sélectionne les colonnes A1:A5 + B1:B5 + A10:A14 et je veux faire un copier. Impossible... j'ai toujours le même message d'erreur :

Cette action ne fonctionne pas sur plusieurs sélections

Existe-t'il une solution ?

Bonjour vinzu01

La seule solution, rapatrier avec (=A1...) toutes les valeurs que tu veux copier dans une autre colonne

Mince, du coup si je voulais faire une macro pour un copié coller c'est foutu

Re,

Arf, il faut nous le dire que tu veux faire une macro

C'est totalement faisable, mais il faut nous dire ce que tu veux faire exactement !

@+

Ok désolé alors....

mon but sera de sélectionner des cellules (pas toujours les mêmes), de les copier puis de les coller dans une autre feuille

Cela peut-être les cellules :

A1:A5 + B1:B5 + A10:A14

Mais une autre fois, cela peut être par exemple C1:C6 + D7:D13

Vraiment aléatoire ce que je vais sélectionner. Au final, je colle le tout dans la feuil2

Re,

Comment savoir alors quelle plage copier et a quelle endroit la coller dans Feuille2

Il nous faudra un peu plus d'explication du pourquoi, du comment...

Salut!

Je ne suis pas super sur Excel, mais n'est-il pas possible de créer une fonction qui copie la sélection de l'utilisateur et qui la colle dans la Feuille2 selon une donnée inscrite dans une cellule? De cette façon, on a pas besoin de savoir d'avance quel plage copier et à quel endroit la coller?

Oui c'est exactement cela que je recherche. Je sélectionne les cellules et la macro me copie et colle cela dans la Feuille 2

Tout ce que j'ai réussi à faire jusqu'à maintenant c'est de copié collé ma sélection à un endroit désigné à l'aide d'un bouton. Je suis une patate dans Excel. J'espère que quelqu'un pourra t'aider. J'aimerais moi aussi savoir comment on fait. Bonne chance!

Sub Copié_la_sélection_de_vinzu01()

'Collé la sélection à un endroit défini (Actuellement "B1")
Selection.Copy Range("b1")

'Copié collé de la sélection
Selection.Copy
Selection.Offset.Paste

'J'ai aucune idée de ce que ça fait xD
Application.CutCopyMode = False

End Sub

Re,

Décidément vinzu01, il faudra apprendre à t'exprimer en plus du VBA

Voici une possibilité

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim FirstCel As String
  ' Vérifier si plusieurs cellules sélectionnées
  If Target.Count > 1 Then
    ' Récupérer l'adresse de la 1ère cellule
    FirstCel = Target.Cells(1, 1).Address
    Target.Copy Destination:=Sheets("Feuil2").Range(FirstCel)
  End If
End Sub

Malheureusement, cela ne fonctionne pas ou alors j'ai fait tout faux

Re,

Normal, le code n'est pas au bon endroit

Il faut le mettre dans Feuil1

Pour info, un évènement se créé en sélectionnant dans le menu du haut, puis celui de roite

Et Worksheet n'existe pas

@+

Je l'ai mis dans Feuil1, mais il met un message d'erreur dès que je sélectionne plusieurs cellules :

Re,

Effectivement, normal

Voici une usine à gaz mais qui devrait fonctionner

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Cel As Range
  ' Vérifier si plusieurs cellules sélectionnées
  If Target.Count > 1 Then
    ' Récupérer l'adresse de la 1ère cellule
    For Each Cel In Target
      Cel.Copy Destination:=Sheets("Feuil2").Range(Cel.Address)
    Next Cel
  End If
End Sub

@+

Alors le compte en rajoutant un petit "i" à Destnation fonctionne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Cel As Range
  ' Vérifier si plusieurs cellules sélectionnées
  If Target.Count > 1 Then
    ' Récupérer l'adresse de la 1ère cellule
    For Each Cel In Target
      Cel.Copy Destination:=Sheets("Feuil2").Range(Cel.Address)
    Next Cel
  End If
End Sub

Merci beaucoup !