VBA: Range avec variable
jmarichal
-
Shooshoo Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
Shooshoo Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
Bonjours a tous,
j'espère que vous avez passé un bon W-E
Voici mon problème
j'aimerai que dans une boucle 8 cellule de la même ligne soit dans 1 seule variable (Range)
mais je n'y arrive pas
j'avais penser a faire ceci
j = Range("A1").CurrentRegion.Rows.Count
Myrange = Range(ActiveCell.Cells(j, 1), ActiveCell.Cells(j, 3))
mais sa ne marche pas
par contre ceci fonctionne
Range(ActiveCell.Cells(j, 1), ActiveCell.Cells(j, 3)).Select
je ne comprend pas le pourquoi
d'avance merci
j'espère que vous avez passé un bon W-E
Voici mon problème
j'aimerai que dans une boucle 8 cellule de la même ligne soit dans 1 seule variable (Range)
mais je n'y arrive pas
j'avais penser a faire ceci
j = Range("A1").CurrentRegion.Rows.Count
Myrange = Range(ActiveCell.Cells(j, 1), ActiveCell.Cells(j, 3))
mais sa ne marche pas
par contre ceci fonctionne
Range(ActiveCell.Cells(j, 1), ActiveCell.Cells(j, 3)).Select
je ne comprend pas le pourquoi
d'avance merci
A voir également:
- Vba range avec variable
- Range avec variable vba - Meilleures réponses
- Vba range with variable - Meilleures réponses
- VBA : Range avec références variables.. ✓ - Forum VB / VBA
- Input signal out of range ✓ - Forum Matériel & Système
- Syntaxe VBA Sheets.Range avec Range variable ✓ - Forum VB / VBA
- Range avec une Variable ✓ - Forum VB / VBA
- Out of range - Forum Ecran
3 réponses
Bonjour,
Sub selectionner_zone()
Dim myrange As Range
j = Range("A1").CurrentRegion.Rows.Count
Set myrange = Range(Cells(j, 1), Cells(j, 3))
'test macro: on colorie la zone sélectionnée myrange en jaune
myrange.Interior.ColorIndex = 6
Set myrange = Nothing
End Sub
il fallait déclarer et instancier myrange
activecell ne servait à rien
Michel
Sub selectionner_zone()
Dim myrange As Range
j = Range("A1").CurrentRegion.Rows.Count
Set myrange = Range(Cells(j, 1), Cells(j, 3))
'test macro: on colorie la zone sélectionnée myrange en jaune
myrange.Interior.ColorIndex = 6
Set myrange = Nothing
End Sub
il fallait déclarer et instancier myrange
activecell ne servait à rien
Michel