S
Seb
Guest
Bonjour au forum,
J'ai une nouvelle fois besoin de votre aide en espérant un jour que je pourrais vous aider de la même manière. Cette fois-ci, je ne comprends pas pourquoi j'ai un bug au niveau de la partie en rouge. Il s'agit de renvoyer des données d'une plage dans une série de textbox. J'ai sûrement la tête dans le guidon et je ne vois pas la faute évidente dans mon code.
Merci d'avance pour votre aide.
Bonne journée.
Seb
Private Sub dateposition_Change()
dateposition.Value = Format(dateposition.Value, 'dd/mm/yyyy')
Dim L As Integer, LCherche As Integer
Dim Cherche As String
Dim Maplage As Range
Dim cell As Range
Cherche = dateposition.Value
L = Sheets('historic').Range('A65536').End(xlUp).Row
Set Maplage = Sheets('historic').Range('A6:A' & L - 1)
For Each cell In Maplage
If cell.Value = Cherche Then
LCherche = cell.Row
End If
Next cell
With position
.aud.Value = Sheets('historic').Range('B' & LCherche).Value
.cad.Value = Sheets('historic').Range('C' & LCherche).Value
.chf.Value = Sheets('historic').Range('D' & LCherche).Value
.eur.Value = Sheets('historic').Range('E' & LCherche).Value
.gbp.Value = Sheets('historic').Range('F' & LCherche).Value
.jpy.Value = Sheets('historic').Range('G' & LCherche).Value
.nzd.Value = Sheets('historic').Range('H' & LCherche).Value
.usd.Value = Sheets('historic').Range('I' & LCherche).Value
End With
End Sub
J'ai une nouvelle fois besoin de votre aide en espérant un jour que je pourrais vous aider de la même manière. Cette fois-ci, je ne comprends pas pourquoi j'ai un bug au niveau de la partie en rouge. Il s'agit de renvoyer des données d'une plage dans une série de textbox. J'ai sûrement la tête dans le guidon et je ne vois pas la faute évidente dans mon code.
Merci d'avance pour votre aide.
Bonne journée.
Seb
Private Sub dateposition_Change()
dateposition.Value = Format(dateposition.Value, 'dd/mm/yyyy')
Dim L As Integer, LCherche As Integer
Dim Cherche As String
Dim Maplage As Range
Dim cell As Range
Cherche = dateposition.Value
L = Sheets('historic').Range('A65536').End(xlUp).Row
Set Maplage = Sheets('historic').Range('A6:A' & L - 1)
For Each cell In Maplage
If cell.Value = Cherche Then
LCherche = cell.Row
End If
Next cell
With position
.aud.Value = Sheets('historic').Range('B' & LCherche).Value
.cad.Value = Sheets('historic').Range('C' & LCherche).Value
.chf.Value = Sheets('historic').Range('D' & LCherche).Value
.eur.Value = Sheets('historic').Range('E' & LCherche).Value
.gbp.Value = Sheets('historic').Range('F' & LCherche).Value
.jpy.Value = Sheets('historic').Range('G' & LCherche).Value
.nzd.Value = Sheets('historic').Range('H' & LCherche).Value
.usd.Value = Sheets('historic').Range('I' & LCherche).Value
End With
End Sub