Renvoi de valeurs vers textbox

[Seb]

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

 

[@Christophe@]

Bonjour,

Je vois pas la ligne rouge dans ta macro, pas grave.

Je crois que tu fais très difficile, essaye de joindre un fichier pour pouvoir tester.

bonne journée

 

[seb]

Je pense que c trop lourd à envoyer mais je teste !!!

Merci d'avance pour ton aide, pour info ca bug sur la ligne suivante :

.aud.Value = Sheets('historic').Range('B' & LCherche).Value

et j'imagine que les uivantes présentent le même problème

Bonne journée

 

[@Christophe@]

Re,

Essaye comme ceci:

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

Bonne journée

 

[seb]

merci de prendre de ton temps pour m'aider sur ce point.

Malheureusement j'avais déjà essayé cette solution et ca ne marche toujours pas aussi bien en enlevant les points qu'en enlevant le with etc...

j'ai une erreur d'application 1004 qui apparaît à chaque fois.

Je t'avoue que j'y perds mon langage alors que je pense que c'est un détail. Je tente de vérifier les questions de format entre la combobox et les données des cellules peut-être que la macro considère qu'elle n'a pas trouvé de valeur correspondant à la valeur de la combobox !!!

Si tu as une autre idée je suis bien entendu à ton écoute.

Bonne journée

 

[@Christophe@]

Re,

Envoi ton fichier:

forum.xld

Bonne journée

Message édité par: @Christophe@, à: 12/04/2005 12:08