Sectionner une plage variable

[Matta]

Bonjour,

Je cherche à sélection une plage qui est généré par un autre programme qu'un des membres ma fait précédemment.

Dans cette plage je voudrais faire une boucle pour tracer un certain nombre de ligne que l’opérateur choisit ces ligne seront a une certaine distance de la ligne supérieure du rectangle et devra être indiqué au préalable.

C'est le code pour générer le rectangle variable :

Sub CentrerRectangle()
Const plage = "A1:CM48"
Dim hori&, verti&, cellHori&, cellVerti&, rgRectangle, s$
  Cells.Borders.LineStyle = xlLineStyleNone
  s = "Dimension horizontale en nombre de case?" & _
      vbLf & "max = " & Range(plage).Columns.Count
  hori = InputBox(s)
  If hori > Range(plage).Columns.Count Then Exit Sub
  If hori <= 0 Then Exit Sub
  s = "Dimension verticale en nombre de case?" & _
      vbLf & "max = " & Range(plage).Rows.Count
  verti = InputBox(s)
  If verti > Range(plage).Rows.Count Then Exit Sub
  If verti <= 0 Then Exit Sub
  cellHori = 1 + (Range(plage).Rows.Count - verti) / 2
  cellVerti = 1 + (Range(plage).Columns.Count - hori) / 2
  If cellHori <= 0 Then cellHori = 1
  If cellVerti <= 0 Then cellVerti = 1
  Set rgRectangle = Cells(cellHori, cellVerti).Resize(verti, hori)
  rgRectangle.BorderAround 1, 3, , RGB(225, 0, 0)
End Sub

Et une bride de code pour tracer les lignes:

Set plage2 = Range(hori, verti)
Dim Ligne&, NbLigne&, s2$

s2 = "Nombres de Ligne?"

NbLigne = InputBox(s2)

For i = 1 To NbPLigne

s2 = "Dimmension verticale de la ligne en nombre de case" & _
vbLf & "max = " & Range(plage2).Columns.Count
horiL = hori
vertiL = InputBox(s)
If cellVerti <= 0 Then cellVerti = 1
Set rgRectangle2 = Cells(cellHori, cellVerti).Resize(verti, hori)
rgRectangle2.BorderInferrior 1, 1, , RGB(0, 0, 225)

Next i

Je voulais sélectionner un rectangle et juste remplir la bordure inférieure mais ça ne marche pas...

Je joins aussi un fichier avec un exemple de résultat final.

Merci pour votre aide.

 

[Matta]

J'ai toujours un soucis avec ce code si quelqu'un peut aider merci.

 

[zebanx]

Bonjour,

Je n'ai pas compris ton besoin en dehors du fait peut être que tu aies besoin d'utiliser des numéros de premières ou dernières lignes
d'un range sélectionné.

Les UDF de pierre-jean notamment, communiqués dans ce fil, donnent des codes précieux pour retrouver ces informations.

UDF - restituer firstrow, lastrow, firstcol, lastcol sur un RANGE seléctionné

Bonjour à tous, Pour l'utilisation d'un code, j'aurais besoin d'utiliser le numéro de première ligne et de dernière ligne d'un range sélectionné (pour une boucle for... next). Un site m'a permis d'extraire ces informations par formule et de les renseigner sur la feuille. Mais je souhaiterais...

www.excel-downloads.com

Si je suis à côté de la plaque, désolé...

zebanx

 

[Matta]

Bonjour Zebank,

Merci pour ta réponse, en effet les deux problèmes se ressemble un peu, mais ce que je veux faire est je pense un peu différent.
Je me suis peut être mal exprimé dans le premier post.

Je génère en rectangle avec le 1er code dans une certaine Plage avec ça :

Set rgRectangle = Cells(cellHori, cellVerti).Resize(verti, hori)

rgRectangle.BorderAround 1, 3, , RGB(225, 0, 0)

Je voudrais sélectionné le rectangle ainsi généré comme une autre plage pour remplir d'autres bordures à l'intérieur de celui-ci.

Mais je cherche encore sur ton lien au cas où je me suis planté.

Matta.

 

[zebanx]

Re-

De ma compréhension, si tu cherches à sélectionner la plage défini par rgRectangle on pourrait redéfinir une autre plage qui définissent un range à partir des éléments (adresse de la cellule de départ, nombre de lignes et colonnes utilisés pour le resize).

Set rgRectangle = Cells(cellHori, cellVerti).Resize(verti, hori)
  Set plage2 = Range(Cells(cellHori, cellVerti), Cells(cellHori + verti - 1, cellVerti + hori - 1))
  rgRectangle.BorderAround 1, 3, , RGB(225, 0, 0)
  plage2.Select

Avec ton fichier.

 

[Matta]

Re-

Je teste l'idée tout de suite.

Merci.

 

[Matta]

je pense que ça marche mais il y un soucis lorsque que je le rajoute à mon code à la ligne 35 je vois pas ce que c'est :

Sub CentrerRectangle()
Const plage = "A1:CM48"
Dim hori&, verti&, cellHori&, cellVerti&, rgRectangle, s$
  Cells.Borders.LineStyle = xlLineStyleNone
  s = "Dimension horizontale en nombre de case?" & _
      vbLf & "max = " & Range(plage).Columns.Count
  hori = InputBox(s)
  If hori > Range(plage).Columns.Count Then Exit Sub
  If hori <= 0 Then Exit Sub
  s = "Dimension verticale en nombre de case?" & _
      vbLf & "max = " & Range(plage).Rows.Count
  verti = InputBox(s)
  If verti > Range(plage).Rows.Count Then Exit Sub
  If verti <= 0 Then Exit Sub
  cellHori = 1 + (Range(plage).Rows.Count - verti) / 2
  cellVerti = 1 + (Range(plage).Columns.Count - hori) / 2
  If cellHori <= 0 Then cellHori = 1
  If cellVerti <= 0 Then cellVerti = 1
  Set rgRectangle = Cells(cellHori, cellVerti).Resize(verti, hori)
  rgRectangle.BorderAround 1, 3, , RGB(225, 0, 0)
  
  
 Set plage2 = Range(Cells(cellHori, cellVerti), Cells(cellHori + verti - 1, cellVerti + hori - 1))
  Dim NbLigne&, HoriL$, VertiL$, cellHoriL&, cellVertiL&, rgRectangle2
  
s = "Nombre de Ligne?"

NbLigne = InputBox(s)

If NbLigne < 0 Then Exit Sub

For i = 1 To NbLigne

HoriL = hori

s = "Dimmension verticale de la ligne en nombre de case?" & _
vbLf & "max = " & Range(Plage2).Rows.Count

VertiL = InputBox(s)

If cellVertiL > Range(plage2).Rows.Count Then Exit Sub
    If VertiL <= 0 Then Exit Sub
Set rgRectangle2 = Cells(cellHoriL, cellVertiL).Resize(VertiL, HoriL)
rgRectangle2.BorderInferrior 1, 1, , RGB(0, 0, 225)

Next i
  
End Sub

 

[zebanx]

Re-

Range(plage2).Rows.Count ???
Ce ne serait pas plutôt (verti - 1) la valeur max de la plage2 ?

Après à la fin les variables suivantes ne sont pas définies dans la partie de code renseignées.
cellHoriL, cellVertiL

Regardez en pas à pas détaillé en tapant F8 depuis le départ de votre code et en pointant votre souris sur ces éléments, ils valent 0 en ligne 43.

Bref, le code à modifer...

 

[Matta]

Re

En effet je n'avait pas vu les variables non définie c'est corrigé.

par contre j'ai pas compris le (verti - 1)

 

[zebanx]

Re-

Si vous voulez la hauteur de la plage 2 c'est bien verti - 1 puisqu'on part de la valeur de (cellhori) pour aller à la ligne (cellHori + verti - 1)

Tant mieux si vous avez pu finaliser.