[VBA] Select plage de 4 lignes et X colonnes
Résolu/Fermé
Dog killer
Messages postés
57
Date d'inscription
lundi 28 mai 2007
Statut
Membre
Dernière intervention
12 juin 2007
-
29 mai 2007 à 15:26
Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007 - 29 mai 2007 à 16:35
Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007 - 29 mai 2007 à 16:35
A voir également:
- [VBA] Select plage de 4 lignes et X colonnes
- Direct x runtime - Télécharger - Pilotes & Matériel
- Word colonnes indépendantes - Guide
- Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
- Manga origin x ✓ - Forum Réseaux sociaux
- Photoscape x gratuit - Télécharger - Retouche d'image
1 réponse
Dog killer
Messages postés
57
Date d'inscription
lundi 28 mai 2007
Statut
Membre
Dernière intervention
12 juin 2007
25
29 mai 2007 à 16:00
29 mai 2007 à 16:00
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
29 mai 2007 à 16:22
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 !
29 mai 2007 à 16:35
exacement ce que je voulais et que j'essaye d'obtenir depuis hier après midi .
merci beaucoup!