Selection de plages multiples Résolu/Fermé

Question

Bonjour à tous,

Alors voilà, je poste pour la première fois pour un problème de programmation en VBA (Je suis débutant). 

L'idée est de sélectionner plusieurs plages de données consécutives séparées par un espacement constant et d'encadrer ces plages sélectionnées.

Voici l'extrait du code que j'ai utilisé mais qui ne fonctionne pas comme je le souhaite :


Sub FrameTheRange()
'
'
    Application.ScreenUpdating = False
    Range(Cells(10, 4), Cells(502, 11)).Select
    For i = 87 To 1000 Step 83
    For j = 93 To 1000 Step 83
    Union(Selection, Range(Cells(10, i), Cells(502, j))).Select
    Next j
    Next i
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
    End With
    End Sub
  

Je n'ai pas d'erreurs, mais au lieu de me sélectionner plusieurs plages de 8 de large et de 498 de haut il me sélectionne la première plage que je lui indique puis en créé une 2ème et c'est tout.


Comme j'ai pu déjà le lire, "Excel fais toujours ce qu'on lui demande et rarement ce que l'on souhaite", qu'est ce que je ne lui demande pas comme il faut ?


Merci d'avance pour votre aide,


Cordialement,


Robin

Windows8 / Excel 2013

michel_m · Answer

Bonjour,  

1/Normal, tu boucles juste sur une selection de plage: tes next i et next j doivent être à la fin de ton code ci dessus  

2/d'autre part pour encadrer tes plages  
Range(Cells(10, i), Cells(502, j)).borders.weight=xlthin  
on évite au maximum les select-selection très lents

3/ je ne comprend pas l'idée d'une fusion de ta plage de départ et les suivantes successives... 
pourquoi ne pas parcourir uniquement que ces  plages successivement car actuellement tu vas encadrer N fois la plage de départ  

4/ afin d'éviter des clignotements de l'écran et aller + vite(env. 20x), mets en début de macro la ligne suivante qui fige le défilement de l'écran 
application.screenupdating=false  

5/"...Comme j'ai pu déjà le lire, "Excel fais toujours ce qu'on lui demande et rarement ce que l'on souhaite"....  
Si tu pars avec cette croyance en cette phrase stupide d'un looser, arrête tout de suite d'utiliser Excel  :o)  


   
 Michel

foo · Answer

Bonjour
je pense que faire 2 boucle ca serat plus rapide

Sub Test()
I = 4
Dlig = 11
Flig = 502
Application.ScreenUpdating = False
    For j = 11 To (14 * 83) Step 83
      Range(Cells(Dlig, I), Cells(Flig, j)).BorderAround LineStyle:=xlContinuous
    Next
    For I = 4 To (14 * 83) Step 83
      Range(Cells(Dlig, I), Cells(Flig, j)).BorderAround LineStyle:=xlContinuous
    Next
Application.ScreenUpdating = False
End Sub

A tester sur ton Mico

A+
Maurice

foo · Answer

re

desoler mettre True a la fin

Maurice

Selection de plages multiples

3 réponses

Discussions similaires