INTERVERTIR 2 CELLULES Fermé

Question

Bonjour, 

J'ai un code qui me permet d'intervertir 2 cellules, qui marche bien, mais il n'échange que les valeurs. J'e voudrais que la couleur des cellules suive.
Le code:
Sub Swap()

Dim cval(), cadd()
a = 1
ReDim cval(2), cadd(2)
For Each usrcell In Selection
cval(a) = usrcell.Value
cadd(a) = usrcell.Address
a = a + 1
Next usrcell
Range(cadd(1)).Select
ActiveCell = cval(2)
Range(cadd(2)).Select
ActiveCell = cval(1)
End Sub

Pouvez vous me venir en aide?
Merci à tous


Configuration: Windows Vista / Internet Explorer 9.0

ccm81 · Answer

bonjour

s'il ne s'agit que de la couleur et de la valeur
un code à adapter

Const c1 As String = "A2"
Const c2 As String = "B2"

Private Sub CommandButton1_Click()
Dim v1, v2
Dim coul1 As Long, coul2 As Long
v1 = Range(c1).Value
coul1 = Range(c1).Interior.ColorIndex
v2 = Range(c2)
coul2 = Range(c2).Interior.ColorIndex
Range(c1).Value = v2
Range(c1).Interior.ColorIndex = coul2
Range(c2).Value = v1
Range(c2).Interior.ColorIndex = coul1
End Sub

bonne suite

domimeca · Answer

Désolé, ayant trouvé mon code dans un forum, malgré plusieurs essais mon niveau ne me permet pas d'adapter ton code. Merci de t'être penché sur mon problème.

INTERVERTIR 2 CELLULES

2 réponses

Discussions similaires