Transposé
Bonjour
J'aimerais si possible après avoir sélectionné des cellules sur une colonne puis Copier et dans une autre cellule par exemple dans A2 fusionné en VBA et ainsi de suite.
Merci beaucoup
salut :
Essayez ce code
Private Sub CommandButton1_Click()
Range("A2").ClearContents
If Selection.Count = 1 Then Exit Sub
For Each cel In Selection
Range("A2") = Range("A2") & cel & vbLf
Next
End Sub
Excusez moi mais çà ne marche pas
mic6259 a écrit :Excusez moi mais çà ne marche pas
Bonjour,
déjà que sans fichier exemple c'est pas facile...
Bonjour,
Bonjour Patrick,
Peux-tu regarder ma proposition et me redire ?
Merci par avance.
Cdlt.
Re:
Voici un exemple
Je fait copier et transposé K1:K6 vers A1 puis K8:K13 vers A2 etc... en sachant que la colonne K peut changer et que la copi-transposé peut être aussi dans une autre cellule.
Cordialement
Bonsoir
J'ai trouvé ce code qui me convient très bien
Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+w
'
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub