INTERVERTIR 2 CELLULES
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
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
2 réponses
-
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 -
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.
