Bonjour,
Merci pour votre macro.
Cependant elle fonction correctement uniquement si je selection 2 colonnes entières, et sa mouline jusqu'à la fin...
Lorsque je sélection uniquement les colonnes (A et B) à valeurs, il m'étale la valeur de la colonne G sur FGH ?.
Peut-être un bug, pourquoi FGH ?.
Merci d'avance pour votre réponse.
Cordialement.
slashp a écrit :
Bon bah j'ai finalement réussi à coder le truc si ça interesse quelqu'un:
Citation :
Sub MacroFusion()
Dim Colonne As Long
Dim Ligne As Long
Dim ColonneFin As Long
Dim LigneFin As Long
Dim ResultCell As Variant
With Selection
Ligne = .Cells(1).Row
LigneFin = .Cells(.Cells.Count).Row
Colonne = .Cells(1).Column
ColonneFin = .Cells(.Cells.Count).Column
End With
For i = Ligne To LigneFin
ResultCell = ""
For j = Colonne To ColonneFin
Range(Chr(64 + j) & CStr(i)).Select
ResultCell = ResultCell & " " & ActiveCell.FormulaR1C1
ActiveCell.FormulaR1C1 = ""
Next j
Range(Chr(64 + Colonne) & CStr(i)).Select
ActiveCell.FormulaR1C1 = ResultCell
Next i
Range(Chr(64 + Colonne + 1) & CStr(Ligne), Chr(64 + ColonneFin) & CStr(LigneFin)).Select
Selection.Delete Shift:=xlToLeft
End Sub
|
|