Référencer une variable range dans un range
dannzka
Messages postés
4
Statut
Membre
-
dannzka Messages postés 4 Statut Membre -
dannzka Messages postés 4 Statut Membre -
Bonjour,
Je vous explique un peu le contexte:
Je cherche à obtenir des données statistiques financières à partir d'un onglet data.
J'ai un onglet avec des paramètres modifiables (parameters) où je change la date de début et de fin de l'étude statistique. Le data est stocké dans l'onglet historical_data. La date du dit data est en colonne "A". Je cherche à compter le nombre de lignes séparant la cellule "A2" des dates de début et de fin de l'étude statistique.
Voilà mon code:
J'ai une erreur au niveau des deux dernières lignes. "error 1004: application-defined or object-defined error".
J'ai aussi essayé le code suivant:
Des idées pour m'aider?
Merci beaucoup.
Je vous explique un peu le contexte:
Je cherche à obtenir des données statistiques financières à partir d'un onglet data.
J'ai un onglet avec des paramètres modifiables (parameters) où je change la date de début et de fin de l'étude statistique. Le data est stocké dans l'onglet historical_data. La date du dit data est en colonne "A". Je cherche à compter le nombre de lignes séparant la cellule "A2" des dates de début et de fin de l'étude statistique.
Voilà mon code:
Dim str_startdate As String, str_enddate As String
Dim rng_startdate As Range, rng_enddate As Range
Dim lng_startdate As Long, lng_enddate As Long
str_startdate = Worksheets("Parameters").Range("G11").Value
str_enddate = Worksheets("Parameters").Range("G12").Value
Set rng_startdate = Worksheets("Historical_Data").Range("A2:A49").Find(what:=str_startdate)
Set rng_enddate = Worksheets("Historical_Data").Range("A2:A49").Find(what:=str_enddate)
lng_startdate = Worksheets("Historical_Data").Range("A2" & ":" & rng_stardate).Rows.Count
lng_enddate = Worksheets("Historical_Data").Range("A2" & ":" & rng_enddate).Rows.Count
J'ai une erreur au niveau des deux dernières lignes. "error 1004: application-defined or object-defined error".
J'ai aussi essayé le code suivant:
qui me donne la même erreur.
lng_startdate = Worksheets("Historical_Data").Range("A2", rng_stardate).Rows.Count
lng_enddate = Worksheets("Historical_Data").Range("A2", rng_enddate).Rows.Count
Des idées pour m'aider?
Merci beaucoup.
A voir également:
- Référencer une variable range dans un range
- D'sub out of range - Forum Ecran
- Vba range avec variable ✓ - Forum VB / VBA
- Range avec une Variable ✓ - Forum VB / VBA
- Input signal out of range - Forum Windows
- Out of range écran ✓ - Forum Matériel & Système
7 réponses
Essaies :
Cordialement
Patrice
Option Explicit
Private Sub x()
Dim dat_StartDate As Date, dat_EndDate As Date
Dim cel_StartDate As Range, cel_EndDate As Range, rng_Dates As Range
dat_StartDate = Worksheets("Parameters").Range("G11").Value
dat_EndDate = Worksheets("Parameters").Range("G12").Value
Set cel_StartDate = Worksheets("Historical_Data").Range("A2:A49").Find(what:=dat_StartDate)
Set cel_EndDate = Worksheets("Historical_Data").Range("A2:A49").Find(what:=dat_EndDate)
If Not cel_StartDate Is Nothing And Not cel_EndDate Is Nothing Then
Set rng_Dates = Range(cel_StartDate, cel_EndDate)
'traitement ... par exemple :
MsgBox rng_Dates.Rows.Count
End If
End Sub
Cordialement
Patrice
Si tu as l'erreur 1004, c'est certainement que la valeur recherchée n'a pas été trouvée.
Essaie comme cela :
A+
Essaie comme cela :
Dim str_startdate As String, str_enddate As String
Dim rng_startdate As Range, rng_enddate As Range
Dim lng_startdate As Long, lng_enddate As Long
With Worksheets("Parameters")
str_startdate = .Range("G11").Value
str_enddate = .Range("G12").Value
End With
With Worksheets("Historical_Data")
Set rng_startdate = .Range("A2:A49").Find(what:=str_startdate)
If Not rng_startdate Is Nothing Then
lng_startdate = .Range(.Range("A2"), rng_startdate).Rows.Count
Else
MsgBox "La valeur " & str_startdate & " n'a pas été trouvée."
End If
Set rng_enddate = .Range("A2:A49").Find(what:=str_enddate)
If Not rng_enddate Is Nothing Then
lng_enddate = .Range(.Range("A2"), rng_enddate).Rows.Count
Else
MsgBox "La valeur " & str_enddate & " n'a pas été trouvée."
End If
End With
A+
Bonjour,
Essaie comme cela :
A+
Essaie comme cela :
Dim str_startdate As String, str_enddate As String
Dim rng_startdate As Range, rng_enddate As Range
Dim lng_startdate As Long, lng_enddate As Long
With Worksheets("Parameters")
str_startdate = .Range("G11").Value
str_enddate = .Range("G12").Value
End With
With Worksheets("Historical_Data")
Set rng_startdate = .Range("A2:A49").Find(what:=str_startdate)
Set rng_enddate = .Range("A2:A49").Find(what:=str_enddate)
lng_startdate = .Range(.Range("A2"), rng_startdate).Rows.Count
lng_enddate = .Range(.Range("A2"), rng_enddate).Rows.Count
End With
A+
Bonjour,
Tu lui passes un range là où il attend un n° de ligne (un nombre)
Si tu veux la ligne de rng_startdate c'est rng_startdate.row
Mais est-ce que tu trouves vraiment le bon rng_startdate ? J'ai un doute vu qu'il s'agit d'une date et que c'est particulier. Contrôle cette variable en mettant un Stop.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Tu lui passes un range là où il attend un n° de ligne (un nombre)
Si tu veux la ligne de rng_startdate c'est rng_startdate.row
Mais est-ce que tu trouves vraiment le bon rng_startdate ? J'ai un doute vu qu'il s'agit d'une date et que c'est particulier. Contrôle cette variable en mettant un Stop.
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
@Gyrus, en faisant ça j'ai toujours la même erreur 1004 :/
@Eriiic, j'ai donc remplacé
par
mais ça me donne un error 438: Object doesnt support this property or method, pourtant c'est bien dimensionné en range...
Sinon peut être quelque chose pour convertir mon range en string?
En tout cas, merci de vos réponse rapides.
@Eriiic, j'ai donc remplacé
lng_startdate = Worksheets("Historical_Data").Range("A2", rng_stardate).Rows.Count
par
lng_startdate = Worksheets("Historical_Data").rng_startdate.Row
mais ça me donne un error 438: Object doesnt support this property or method, pourtant c'est bien dimensionné en range...
Sinon peut être quelque chose pour convertir mon range en string?
En tout cas, merci de vos réponse rapides.
Je n'avais pas dit :
lng_startdate = Worksheets("Historical_Data").rng_startdate.Row
mais :
lng_startdate = rng_startdate.Row puisque rng_startdate est un range.
Et comme ta date est un string, mets-là as Date comme proposé par Patrice, ou bien :
Pour les dates je te conseille d'ajouter toujours le paramètre LookIn:=xlFormulas
eric
lng_startdate = Worksheets("Historical_Data").rng_startdate.Row
mais :
lng_startdate = rng_startdate.Row puisque rng_startdate est un range.
Et comme ta date est un string, mets-là as Date comme proposé par Patrice, ou bien :
Set rng_startdate = Worksheets("Historical_Data").Range("A2:A49").Find(what:=CDate(str_startdate), LookIn:=xlFormulas)
Pour les dates je te conseille d'ajouter toujours le paramètre LookIn:=xlFormulas
eric
Bonjour tout le monde, j'espère que vous avez passé un bon week-end.
J'ai utilisé le code de Gyrus en dimensionnant la date comme une Date et non comme un String et ça a marché. Sinon ça me mettait valeur introuvable alors que les valeurs existaient.
Merci à tous pour votre aide précieuse et votre réactivité.
J'ai utilisé le code de Gyrus en dimensionnant la date comme une Date et non comme un String et ça a marché. Sinon ça me mettait valeur introuvable alors que les valeurs existaient.
Merci à tous pour votre aide précieuse et votre réactivité.
Mais merci de toutes vos réponses, je me sens moins seul :)