Dans mon tableur, j'utilise une macro pour trier des lignes qui copie et colle des lignes de grandes dimension.
Pour cela je sélectionne la plage de cellule à copier, puis j'utilise getTransferable et insertTransferable vers ma cellule cible.
Je souhaiterai limiter mon copier coller aux Texte et aux Nombres. et ainsi ne pas recopier tout le formatage conditionnel associé à chacune de ces cellules.
Savez vous comment faire?
Merci d'avance pour votre aide
Code : Tout sélectionner
Sub Transposer_Vers_Tampon (oCalc as object, oFeuille as object, oCell as object)
Dim LigneCible as integer
Dim Arrivee_Affaire as integer
Dim oRange As object
Dim oCellDestination as object
LigneCible = oCell.CellAddress.Row
Arrivee_Affaire = oFeuille.getCellRangeByName("num_last_col").CellAddress.Column
oRange = oFeuille.getCellRangeByPosition(0,LigneCible,Arrivee_Affaire,LigneCible+1)
oCellDestination = oFeuille.getCellRangeByName("ligne_tampon")
'Copier la plage
oCalc.CurrentController.Select(oRange)
aCopier = oCalc.CurrentController.GetTransferable
'Coller la plage
oCalc.CurrentController.Select(oCellDestination)
oCalc.CurrentController.InsertTransferable(aCopier)
'Vider la ligne
oCalc.CurrentController.Select(oRange)
call Vider_ligne()
'Repositionner curseur
oCalc.CurrentController.Select(oCell)
End sub
