Bonjour,
J'ai eu une longue bataille avec excel afin de pouvoir utiliser la fonction Match sur une plage de cellule. J'ai finalement réussi à résoudre mon problème mais je ne comprends pas pourquoi il y en avait un. Si qqn pourrait m'expliquer ce serait parfait. Le problème repose sur la définition de ma plage, j'avais trouvé sur un forum la mnière pratique de définir de la manière suivante: Range([A1], [A100].End(xlUp)) mais il semblerait qu'il y ait un problème. De plus Worksheets("ScenarioRecharge").Activate ne fonctionnement pas. je suis obligé de specifier Worksheets("ScenarioRecharge").Range("A7:A" & [A65000].End(xlUp).Row), pourquoi?
Merci d'avance à la personne qui prendra le temps de m'éclairer sur ça.
Bonne journée
Mon code initial était le suivant et ne marchait pas à cause de la définition de PlageRecherche:
Public Function Scenario(NL As Byte)
Dim ScenarioSelectionne As Variant
Dim PlageRecherche As Range
Dim NL_Scenario As Double
ScenarioSelectionne = Worksheets("ProfilCharge").Cells(NL + 8, 3)
Worksheets("ScenarioRecharge").Activate
Set PlageRecherche = Range([A1], [A100].End(xlUp))
NL_Scenario = Application.WorksheetFunction.Match(ScenarioSelectionne, PlageRecherche, 0)
Scenario = NL_Scenario
End Function
J'ai finalement modifie en :
Public Function Scenario(NL As Byte)
Dim ScenarioSelectionne As Variant
Dim PlageRecherche As Range
Dim NL_Scenario As Double
ScenarioSelectionne = Worksheets("ProfilCharge").Cells(NL + 8, 3)
Set PlageRecherche = Worksheets("ScenarioRecharge").Range("A7:A" & [A65000].End(xlUp).Row)
NL_Scenario = Application.WorksheetFunction.Match(ScenarioSelectionne, PlageRecherche, 0)
Scenario = NL_Scenario
End Function
J'ai eu une longue bataille avec excel afin de pouvoir utiliser la fonction Match sur une plage de cellule. J'ai finalement réussi à résoudre mon problème mais je ne comprends pas pourquoi il y en avait un. Si qqn pourrait m'expliquer ce serait parfait. Le problème repose sur la définition de ma plage, j'avais trouvé sur un forum la mnière pratique de définir de la manière suivante: Range([A1], [A100].End(xlUp)) mais il semblerait qu'il y ait un problème. De plus Worksheets("ScenarioRecharge").Activate ne fonctionnement pas. je suis obligé de specifier Worksheets("ScenarioRecharge").Range("A7:A" & [A65000].End(xlUp).Row), pourquoi?
Merci d'avance à la personne qui prendra le temps de m'éclairer sur ça.
Bonne journée
Mon code initial était le suivant et ne marchait pas à cause de la définition de PlageRecherche:
Public Function Scenario(NL As Byte)
Dim ScenarioSelectionne As Variant
Dim PlageRecherche As Range
Dim NL_Scenario As Double
ScenarioSelectionne = Worksheets("ProfilCharge").Cells(NL + 8, 3)
Worksheets("ScenarioRecharge").Activate
Set PlageRecherche = Range([A1], [A100].End(xlUp))
NL_Scenario = Application.WorksheetFunction.Match(ScenarioSelectionne, PlageRecherche, 0)
Scenario = NL_Scenario
End Function
J'ai finalement modifie en :
Public Function Scenario(NL As Byte)
Dim ScenarioSelectionne As Variant
Dim PlageRecherche As Range
Dim NL_Scenario As Double
ScenarioSelectionne = Worksheets("ProfilCharge").Cells(NL + 8, 3)
Set PlageRecherche = Worksheets("ScenarioRecharge").Range("A7:A" & [A65000].End(xlUp).Row)
NL_Scenario = Application.WorksheetFunction.Match(ScenarioSelectionne, PlageRecherche, 0)
Scenario = NL_Scenario
End Function