Bonjour,
C'est un problème qui me bloque depuis quelques heures.
J'ai un code avec deux variables A et B de type Date. mon problème est que à chaque fois que la variable A changent la B prend aussi sa valeur sachant qu'il n'y a aucune ligne dans le code qui le suggère !!
j'ai remarqué cela au niveau de la dernière ligne du code ci-dessous.
quelqu'un aurait une idée ?
Merci 🙂
C'est un problème qui me bloque depuis quelques heures.
J'ai un code avec deux variables A et B de type Date. mon problème est que à chaque fois que la variable A changent la B prend aussi sa valeur sachant qu'il n'y a aucune ligne dans le code qui le suggère !!
j'ai remarqué cela au niveau de la dernière ligne du code ci-dessous.
quelqu'un aurait une idée ?
Merci 🙂
Code:
Sub PrixOblig(DateValo As Date, DateCourbe As Date, ISIN As String)
Dim j As Integer, i As Integer
Start:
j = 1
'If DateValo = DateCourbe Then
Do
j = j + 1
Loop Until ((Sheets("Histo Valo").Range("L" & j).Value = DateValo And Sheets("Histo Valo").Range("M" & j).Value = DateCourbe And UCase(Sheets("Histo Valo").Range("B" & j).Value) = UCase(ISIN)) Or Sheets("Histo Valo").Range("A" & j).Value = "")
If Sheets("Histo Valo").Range("L" & j).Value = DateValo And Sheets("Histo Valo").Range("M" & j).Value = DateCourbe And UCase(Sheets("Histo Valo").Range("B" & j).Value) = UCase(ISIN) Then
Sheets("parametres").Range("AM3:AX3").Value = Sheets("histo valo").Range("B" & j, "M" & j).Value
'Sheets(Feuille_Courbe).Range("J1:K1").ClearContents
GoTo Fin
End If
'End If
'----------------------Test courbe des taux--------------------------
If Sheets(Feuille_Courbe).Range("j2").Value <> DateCourbe And Sheets(Feuille_Courbe).Range("j1").Value <> DateCourbe Then
Sheets(Feuille_Courbe).Range("K1").ClearContents
Call ModCourbe.Courbe(DateCourbe)
If UCase(Sheets(Feuille_Courbe).Range("K1").Value) = UCase("Date introuvable") Then
DateCourbe = DateCourbe - 1
GoTo Start:
End If
ElseIf UCase(Sheets(Feuille_Courbe).Range("K1").Value) = UCase("Date introuvable") And Sheets(Feuille_Courbe).Range("j1").Value <> DateCourbe Then
DateCourbe = DateCourbe - 1
GoTo Start:
End If
DateCourbe = Sheets(Feuille_Courbe).Range("J1").Value