INTERVERTIR 2 CELLULES
domimeca
Messages postés
36
Statut
Membre
-
domimeca Messages postés 36 Statut Membre -
domimeca Messages postés 36 Statut Membre -
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
A voir également:
- INTERVERTIR 2 CELLULES
- Supercopier 2 - Télécharger - Gestion de fichiers
- Fusionner 2 cellules excel - Guide
- Intervertir deux colonnes excel - Guide
- Excel additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
2 réponses
bonjour
s'il ne s'agit que de la couleur et de la valeur
un code à adapter
bonne suite
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
