Bonjour à tous,
c'est mon premier post. J'ai l'habitude de fouiner ça et là pour trouver des bouts de codes qui m'ont permis de gérer des tournois sportifs par exemple ou autre mais là je bloque!!!
Actuellement, la macro "bb" me permet de limiter la sélection du nombre de cellules à 2 et vérifier seulement si la cellule active (la deuxième sélectionnée) appartient à la plage pour ensuite intervertir les 2 cellules.
Or, je souhaiterais que cette macro intervertisse les 2 cellules sélectionnées si elle appartiennent toutes les 2 à une même plage.
Sub bb()
If Selection.Cells.Count <> 2 Then
MsgBox "veuillez sélectionner 2 équipes"
Else
Set maplage1 = Range("mesplages")
Set maplage2 = Selection.Cells
If Application.Intersect(maplage1, maplage2) Is Nothing Then
MsgBox "veuillez sélectionner 2 équipes"
Else
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 If
End If
End Sub
Merci d'avance pour votre aide.