[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 -
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 :)
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 :)
A voir également:
- [VBA] Select plage de 4 lignes et X colonnes
- Site x - Guide
- Sites X : Pornhub, YouPorn et Redtube sont de nouveau accessibles en France - Guide
- Comment faire des colonnes sur word - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Code gta 4 ps4 - Guide
1 réponse
re:
je pensais à ça :
mais la ligne :
comporte l'erreur 1004: la méthode "range" de l'objet "_Global" a échoué.
Voila merci de m'aider
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
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 !
exacement ce que je voulais et que j'essaye d'obtenir depuis hier après midi .
merci beaucoup!