P
pat5
Guest
Bonsoir tout le monde
Je suis bloqué sur la sélection de la plage entre les 2 cellules d'intersection
Jusqu'à " Dim Intersection1 As Range " tout va bien mais après je bloque
Si vous pouviez m'aider ??? Grand merçi
Ma macro :
Sub IntersectionDebutJour()
'
'
Dim Parametre As Range
Dim monOption As Range
Dim PremierJour As Range
Dim DernierJour As Range
Dim Jour1 As Date
Dim Jour2 As Date
' Les variables " Jour " genre 01/01/04
Jour1 = Range("AC1").Value
Jour2 = Range("AC3").Value
' Recherche du premier jour
Set PremierJour = Columns(31).Find(What:=Jour1, _
After:=Range("AE1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
' Recherche du deuxième jour
Set DernierJour = Columns(31).Find(What:=Jour2, _
After:=Range("AE1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
' Recherche du paramètre
Dim maRecherche As Range
Set maRecherche = Columns("AE:BH")
Set monOption = Range("A43")
' Recherche du paramètre
Set Parametre = maRecherche.Find(What:=monOption, _
After:=Range("AE1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
Dim Intersection1 As IRange
Dim Intersection2 As Range
Set Intersection1 = Range((Intersect((PremierJour), (Parametre))), ((Intersect((DernierJour), (Parametre)))))
'Set Intersection1 = Intersect(Range(PremierJour), Range(Parametre))
Set Intersection2 = Range((Intersect((DernierJour), (Parametre))))
Range(Intersection1, Intersection2(23)).Select
End Sub
Je suis bloqué sur la sélection de la plage entre les 2 cellules d'intersection
Jusqu'à " Dim Intersection1 As Range " tout va bien mais après je bloque
Si vous pouviez m'aider ??? Grand merçi
Ma macro :
Sub IntersectionDebutJour()
'
'
Dim Parametre As Range
Dim monOption As Range
Dim PremierJour As Range
Dim DernierJour As Range
Dim Jour1 As Date
Dim Jour2 As Date
' Les variables " Jour " genre 01/01/04
Jour1 = Range("AC1").Value
Jour2 = Range("AC3").Value
' Recherche du premier jour
Set PremierJour = Columns(31).Find(What:=Jour1, _
After:=Range("AE1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
' Recherche du deuxième jour
Set DernierJour = Columns(31).Find(What:=Jour2, _
After:=Range("AE1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
' Recherche du paramètre
Dim maRecherche As Range
Set maRecherche = Columns("AE:BH")
Set monOption = Range("A43")
' Recherche du paramètre
Set Parametre = maRecherche.Find(What:=monOption, _
After:=Range("AE1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
Dim Intersection1 As IRange
Dim Intersection2 As Range
Set Intersection1 = Range((Intersect((PremierJour), (Parametre))), ((Intersect((DernierJour), (Parametre)))))
'Set Intersection1 = Intersect(Range(PremierJour), Range(Parametre))
Set Intersection2 = Range((Intersect((DernierJour), (Parametre))))
Range(Intersection1, Intersection2(23)).Select
End Sub