[VBA] Select plage de 4 lignes et X colonnes

Résolu
Dog killer Messages postés 57 Statut Membre -  
Dog killer Messages postés 57 Statut Membre -
Bonjour, suite à un post ou j'ai mal exprimé ce que je désirais je recommence:

Je voudrais selectionner une plage de 4 lignes et X colonnes en partant de la cellule B9.
X représente une variable que je vais chercher dans une autre feuille du meme classeur.
ensuite je voudrait encadrer les celulles selectionnées.

Merci d'avance :)
--
Être ou ne pas etre acoudé au comptoir , tel est la véritable question (Martini au Shak_spear) ; ) 
HAVE FUN 
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1. Dog killer Messages postés 57 Statut Membre 25
     
    re:
    je pensais à ça :
    Sheets("TEST").Select
        Range("B9").Select
        [Nbr_ajout_colonne] = Sheets("Données listes").Cells(4, 5).Value
        Range("B9:[Nbr_ajout_colonne]14").Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        
    End Sub
    


    mais la ligne :
    Range("B9:[Nbr_ajout_colonne]14").Select

    comporte l'erreur 1004: la méthode "range" de l'objet "_Global" a échoué.

    Voila merci de m'aider

    0
    1. xjl Messages postés 232 Statut Membre 183
       
      Salut,

      moi je pensais plutôt à ça:

      Sheets(1).Range(Range("B9"), Range("B9").Offset(3, Sheets(2).Cells(1, 1).Value - 1).Address).Select

      En supposant que ta variable X soit dans la cellule A1 de ta feuille 2 et que tu veuilles sélectionner la plage de B9:(B+X-1)12 de la feuille 1...

      Après tu peux encadrer cette zone comme tu veux à l'aide de ce que j'ai mis dans ton premier post !

      Bon courage !
      0
      1. Dog killer Messages postés 57 Statut Membre 25 > xjl Messages postés 232 Statut Membre
         
        Tu es un génie !!!!
        exacement ce que je voulais et que j'essaye d'obtenir depuis hier après midi .
        merci beaucoup!

        0