copier un groupe de cellules vers une autre feuille

[droopy_2k]

bonjour,

est ce que quelqu'un peu m'aider pour résoudre mon problème:
j'ai une feuille avec des mots dans des cellules différentes.
je souhaite copier l'ensemble de ces mots dans une autre feuille du meme classeur mais je ne trouve pas ce qu'il me faut avec la commande CONCATENER

...en fait je souhaite savoir s'il est possible de séléctionner les cellules avec les mots, de faire un "groupe"... et ensuite de copier ce "groupe" dans un autre classeur...

...bon je ne sais pas si vous avez compris ce que je veux faire. c'est pas facile a expliquer.

voici un fichier exemple avec des cellules dans la feuille 2... le but est de grouper ces cellules et de copier ce groupe dans la feuille1

merci d'avance pour votre aide

 

[lanoe]

Re : copier un groupe de cellules vers une autre feuille

Bonjour,

A tester...

cordialement

lanoe

 

[Guest]

Re : copier un groupe de cellules vers une autre feuille

Bonjour,

voici une petite fonction perso d'après ce que j'ai compris de tes attentes.
Si ce n'est pas cela, soit plus explicite.

A+

 

[droopy_2k]

Re : copier un groupe de cellules vers une autre feuille

Bonjour,

A tester...

cordialement

lanoe

merci poour vos retours...
concernant l'exemple que tu as fait... ce n'est pas tout a fait ça... mais j'aime bien le bouton avec la génération du texte auto dans l'autre feuille... donc je garde pour plus tard car je pense que ça va me servir 🙂

 

[droopy_2k]

Re : copier un groupe de cellules vers une autre feuille

Bonjour,

voici une petite fonction perso d'après ce que j'ai compris de tes attentes.
Si ce n'est pas cela, soit plus explicite.

A+

merci beaucoup... c'est presque ça qu'il me faut... en fait il faut que je garde la meme présentation avec les 3 lignes...
je cherche donc a crééer un "groupe" de ces 3 lignes et de les copier dans la feuille1
merci encore pour votre aide

 

[Guest]

Re : copier un groupe de cellules vers une autre feuille

Re,

voici une petite macro, à mettre dans un module de code.
Utilisation:
Sélectionner les cellules à concatener en lignes puis appeler la macro

Sub Concatenation2()
    Dim t As Variant
    Dim plgDest As Range, r As Range
    Dim res As String
    Dim i As Integer, j As Integer
    On Error Resume Next
    Set plgDest = Application.InputBox(prompt:="Cliquez dans la première cellule des destinations", Title:="Concatener", Type:=8)
    If Not plgDest Is Nothing Then
    On Error GoTo 0
    For Each r In Selection.Rows
        i = i + 1
        t = r.Value
        res = ""
        For j = 1 To UBound(t, 2)
            If Not IsEmpty(t(1, j)) Then res = res & Trim(t(1, j)) & " "
        Next j
        plgDest(i, 1) = Trim(res)
    Next r
    End If
End Sub

A+

 

[droopy_2k]

Re : copier un groupe de cellules vers une autre feuille

Re,

voici une petite macro, à mettre dans un module de code.
Utilisation:
Sélectionner les cellules à concatener en lignes puis appeler la macro

Sub Concatenation2()
    Dim t As Variant
    Dim plgDest As Range, r As Range
    Dim res As String
    Dim i As Integer, j As Integer
    On Error Resume Next
    Set plgDest = Application.InputBox(prompt:="Cliquez dans la première cellule des destinations", Title:="Concatener", Type:=8)
    If Not plgDest Is Nothing Then
    On Error GoTo 0
    For Each r In Selection.Rows
        i = i + 1
        t = r.Value
        res = ""
        For j = 1 To UBound(t, 2)
            If Not IsEmpty(t(1, j)) Then res = res & Trim(t(1, j)) & " "
        Next j
        plgDest(i, 1) = Trim(res)
    Next r
    End If
End Sub

A+

merci beaucoup 🙂