[Résolu] Comment inverser le contenu de 2 cellules ?

[rangzen]

Bonjour,

quel est le moyen le plus OOo d'échanger le contenu de 2 cellules ?
Raccourci clavier ? Macro ? Copier/coller avec une cellule tampon ?

Merci !

[jjk]

Je ne connais pas de moyen simple.
J'ai écrit cette macro qui peut rendre service. Attention : je ne l'ai testée que dans les cas simples.
Je décline toute responsabilité si elle dégrade votre classeur. Pensez à le sauvegarder avant d'exécuter la macro.
Pour l'utiliser, il faut sélectionner les 2 cellules dont on veut échanger le contenu, à l'aide de la souris et de la touche Ctrl.
Les 2 cellules doivent être sur la même feuille.
En cas de zones sélectionnées, ce sont les premières cellules de chaque zone qui sont échangées.
Attention : les formules sont échangées. Cela peut donc donner des résultats inattendus.

Code : Tout sélectionner

Sub Echange2Cellules
Dim oDoc as Object, oSht as Object, sel as Object
Dim a as Variant, b as Variant
Dim f as Double, r0 as Double, r1 as Double, c0 as Double, c1 as Double
oDoc=ThisComponent
sel=oDoc.currentSelection
if sel.supportsService("com.sun.star.sheet.SheetCellRanges") then
	With sel(0).RangeAddress
		f = .sheet : r0 = .startRow : c0 = .startColumn
	End With
	With sel(1).RangeAddress
		f = .sheet : r1 = .startRow : c1 = .startColumn
	End With
	
	a = oDoc.sheets(f).getCellByPosition(c0, r0).formula
	b = oDoc.sheets(f).getCellByPosition(c1, r1).formula

	oDoc.sheets(f).getCellByPosition(c0, r0).formula = b
	oDoc.sheets(f).getCellByPosition(c1, r1).formula = a
else
	msgbox "Il faut sélectionner 2 cellules discontigues"
endif
end Sub

[Jean-Louis Cadeillan]

Sinon, si les deux cellules sont contiguës, après avoir sélectionné une des deux cellules, faire un cliqué glissé avec la combinaison Shift+Alt...
Cordialement

Jean-Louis

[rangzen]

Merci pour la macro, ça marche nickel.
Dommage qu'il n'y ait pas plus simple.