cadd(a) = usrcell.Address
If (cadd(2)) = False Then
Range("B4").Cut Destination:=Range("E4") Range("C4").Cut Destination:=Range("B4") Range("E4").Cut Destination:=Range("C4")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionRange("B4").Insert Shift:=xlToRight Range("D4").Cut Destination:=Range("B4") Range("D4").Delete Shift:=xlToLeft
Private tremplin As Range Private Sub CommandButton1_Click() ' c'est là que tu décides d'où tu veux ton tremplin. ' Tu peux même le choisir sur une autre feuille Set tremplin = Range("F8") intervertir ' et c'est là que tu dis d'intervertir (appel de la sub) End Sub Private Sub intervertir() If selection Is Nothing Or selection.Count = 1 Or selection.Count > 2 Then MsgBox "vous devrez sélectionner 2 cellules et uniquemenjt 2" Else Dim cel1 As Range, cel2 As Range Set cel1 = selection.Areas(1) Set cel2 = selection.Areas(2) cel1.Copy Destination:=tremplin cel2.Copy Destination:=cel1 tremplin.Copy Destination:=cel2 End If End Sub
Sub echange() 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