G
Guilmo
Guest
J'essaye de choper 2 plages et les activer ...
Avec la souris c'est tout con mais en vba c'est une autre histoire ...
Voici un premier code qui marche pas au moment du select, Dieu seul sait pkoi :
With ActiveCell
Union(Calculs.Range(thecell.Offset(rowDeb, indexage - 1), thecell.Offset(rowFin, indexage - 1)), Calculs.Range(thecell.Offset(rowDeb, indexsal - 1), thecell.Offset(rowFin, indexsal - 1))).Select
End With
et un deuxième qui marche pas au moment du activate ...
Set sel = Application.Union(Calculs.Range(thecell.Offset(rowDeb, indexage - 1), thecell.Offset(rowFin, indexage - 1)), Calculs.Range(thecell.Offset(rowDeb, indexsal - 1), thecell.Offset(rowFin, indexsal - 1)))
sel.Activate
Avec la souris c'est tout con mais en vba c'est une autre histoire ...
Voici un premier code qui marche pas au moment du select, Dieu seul sait pkoi :
With ActiveCell
Union(Calculs.Range(thecell.Offset(rowDeb, indexage - 1), thecell.Offset(rowFin, indexage - 1)), Calculs.Range(thecell.Offset(rowDeb, indexsal - 1), thecell.Offset(rowFin, indexsal - 1))).Select
End With
et un deuxième qui marche pas au moment du activate ...
Set sel = Application.Union(Calculs.Range(thecell.Offset(rowDeb, indexage - 1), thecell.Offset(rowFin, indexage - 1)), Calculs.Range(thecell.Offset(rowDeb, indexsal - 1), thecell.Offset(rowFin, indexsal - 1)))
sel.Activate