Discussion :

[Invité]

Bonjour le forum,

J'ai une colonne A de la Feuil1 d'un classeur que je souhaite coller en Feuil2.
Dans cette colonne, les cellules sont fusionnées par groupe de 6.
Lors de la copie celle-ci sont défusionnées, mais ils reste des cellules vides entre elles. J'aimerai que la les caractères des cellules se copient les uns à la suite des autres.
J'ai mis un exemple avec en Feuil2 ce que j'obtiens et en feuille 3 ce que j'aimerai. Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Application.EnableEvents = False
 
        With Sheets("Feuil1")
         Sheets("Feuil1").Range("A:A").Copy
         Sheets("Feuil2").Range("A:A").PasteSpecial Paste:=xlValues
      End With
Application.EnableEvents = True
End Sub

Pensez-vous que ça soit possible ?
Merci à vous,

Cdlt
aure_8