selection cellule

[drachnor]

bonjours a tous
voilà, je voudrais savoir comment cellectionner par macro les 3 cellules à droite d ma cellection
ex si a1 select ajouter b1:d1
si a1:a4 select ajouter b1:d4
merci

 

[alain]

Bonsoir,

Ci-dessous petite macro qui devrait aller :

Sub Selection_3()
Dim nbCells As Integer
nbCells = Selection.Cells.Count
Range(ActiveCell, ActiveCell.Offset(nbCells - 1, 3)).Select

End Sub


@+

 

[drachnor]

Merci alain pour ton petit programme
C'est exactement ce qu'il me fallait
a bientot