Jeremy992
XLDnaute Occasionnel
Bonjour à tous,
Décidément je ne peux plus me passer de vous, j'en apprend tout les jours !
Je vous expose ce que je souhaite faire:
Je voudrais pouvoir sélectionner une plage de cellule variable, c-à-d:
Sélection de la cellule B1 à la dernière cellule remplie du tableau.
Pour l'instant cela va de B1 à N20
Mais demain cela pourra aller de B1 à R50 par exemple, d'où mon intérêt à sélectionner la plage de B1 à la dernière cellule non vide.
Tout ça dans le but de faire un encadré automatique via la code suivant:
Pour le moment je dois à chaque fois remettre à jour la ligne qui défini la zone:
Voila, j'espère être assez clair dans mes explications, si besoin je vous joindrais un fichier test !
Merci à vous, au plaisir de vous lire !
Décidément je ne peux plus me passer de vous, j'en apprend tout les jours !
Je vous expose ce que je souhaite faire:
Je voudrais pouvoir sélectionner une plage de cellule variable, c-à-d:
Sélection de la cellule B1 à la dernière cellule remplie du tableau.
Pour l'instant cela va de B1 à N20
Mais demain cela pourra aller de B1 à R50 par exemple, d'où mon intérêt à sélectionner la plage de B1 à la dernière cellule non vide.
Tout ça dans le but de faire un encadré automatique via la code suivant:
Code:
nbbas = 2 - 1
nbdroit = 13 - 1
Nlig = Selection.Rows.Count - nbbas
NCol = Selection.Columns.Count - nbdroit
'MsgBox Range("zone").Address
'Application.Goto Reference:="Zone"
nCDeb = ActiveCell.Column
nldeb = ActiveCell.Row
For i = nldeb To nldeb + Nlig '- 1
For j = nCDeb To (nCDeb + NCol) ' - 1)
Range(Cells(i, j), Cells(i + nbbas, j + nbdroit)).Select
j = j + nbdroit
Encadre_Simple 'Macro pour encadrement fin de la zone
Selection.BorderAround Weight:=xlMedium
Next
i = i + nbbas
Next
Cells(nldeb, nCDeb).Select
Pour le moment je dois à chaque fois remettre à jour la ligne qui défini la zone:
Code:
Sub choisi_zone()
Range("B1:N30").Select
End Sub
Voila, j'espère être assez clair dans mes explications, si besoin je vous joindrais un fichier test !
Merci à vous, au plaisir de vous lire !