Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Sectionner une plage variable

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Matta

XLDnaute Nouveau
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 :

VB: 
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:

Code: 
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.
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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 :
VB: 
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.
 
Vote positif 0 Vote négatif
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).

VB: 
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.
 

Pièces jointes

Vote positif 0 Vote négatif
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 :

VB: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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...
 

Pièces jointes

Vote positif 0 Vote négatif
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. 😉
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
348
patricktoulon
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
602
Lu76Fer
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
553
sylvanu
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
980
Webperegrino
W
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
658
VBA_dev_Anne_Marie
Imprimer ou exporte une plage en pdf pleine page zoom auto
Réponses
0
Affichages
320
patricktoulon
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
938
tnion
T
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
479
crocrocro
C
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
189
mikeduff
M
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
802
GClaire
G
  • Question Question
Microsoft 365 Boucle VB pour supprimer les caractères spéciaux et numériques d'une chaîne
Réponses
5
Affichages
645
patricktoulon
  • Question Question
Microsoft 365 Trouver et attribuer une plage de cellule en fonction de la cellule active
Réponses
6
Affichages
564
Jojo973
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
696
TooFatBoy
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
643
thunder23
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
489
chinel
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
523
safranien
S
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
328
lestoiles1
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…