Votre question

VBA-Excel Problème de temps réel

Tags :
  • Next
  • Programmation
Dernière réponse : dans Programmation
4 Août 2006 12:35:32

bonjour à tous,

J'ai un petit problème de récupération de valeur en Excel-VBA.

Le but du programme est d'aller chercher la valeur réel correspondant à un nom par le biais d'une fonction. Le hic c'est que cette valeur change tout le temps car connecté par le biais d'une formule à une base de données en temps réel. Avec le programme ci-dessous, j'arrive à récupérer la valeur mais elle ne se modifie pas en temps réel et en plus je n'arrive à copier la formule.

Pourriez vous m'aider soit en me disant comment copier la formule par le biais de la fonction ou mettre à jour mon résultat de la fonction en temps réel. SUPER URGENT MERCI

Voilà mon code :

Public Function Last(valeur As Variant) As CalculatedFields

valeurmaj = UCase(valeur)
i = 0
j = 0


For i = 1 To 200
For j = 1 To 5
If Cells(i, j).Value = "MNE" Then GoTo suite
Next j
Next i

suite:

For x = i To i + 300
For y = j To j + 3
If Cells(x, y).Value = valeurmaj Then GoTo fin
Next y
Next x

fin:

Last = Cells(x, y + 1).Value

End Function

Autres pages sur : vba excel probleme temps reel

4 Août 2006 12:37:18

Pardon modification du programme :

Public Function Last(valeur As Variant) As Variant

valeurmaj = UCase(valeur)
i = 0
j = 0


For i = 1 To 200
For j = 1 To 5
If Cells(i, j).Value = "MNE" Then GoTo suite
Next j
Next i

suite:

For x = i To i + 300
For y = j To j + 3
If Cells(x, y).Value = valeurmaj Then GoTo fin
Next y
Next x

fin:

Last = Cells(x, y + 1).Value

End Function
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS