Aide VBA/Formule

Bonjour,

quelqu'un peut-il me vérifier si mon code VBA est bon et comment le transposer sur ma base réelle.

Sub CommandButton2()

Dim dl As Long

dl = Range("B" & Rows.Count).End(xlUp).Row

Set dico = CreateObject("Scripting.Dictionary")

tabloS = Sheets("Base séjour").Range("A1").CurrentRegion

tabloB = Range("B2:F" & dl)

ReDim tabloR(1 To UBound(tabloB, 2), 1 To 1)

For b = 2 To UBound(tabloB, 2)

dico(tabloB(b, 2)) = DateValue(tabloB(b, 4))

Next b

For b = 2 To UBound(tabloB, 2)

flag = 0

For s = 2 To UBound(tabloS, 1)

If tabloS(s, 1) = tabloB(b, 2) And dico(tabloB(b, 2)) >= DateValue(tabloS(s, 2)) _

And dico(tabloB(b, 2)) <= DateValue(tabloS(s, 3)) Then

tabloR(b - 1, 1) = tabloS(s, 4)

flag = 1

End If

Next s

If flag = 0 Then tabloR(b - 1, 1) = ""

Next b

Range("C2").Resize(UBound(tabloR, 1), 1) = tabloR

End Sub

Les numéros de colonne sont-ils bons ? voici le fichier anonymisé.

Lorsque j'essaye de le mettre sur ma base j'ai soit erreur de type 9 soit de type 13.

Merci d'avance

Bonjour,

Pas facile de vérifier un code quand on sait pas ce qu'il est censé faire...

Selon la feuille depuis laquelle le code est lancé, il y a ou non des erreurs ....

Quelques explications supplémentaires semblent nécessaires

A+

Bonjour,

Oui excusez-moi, enfaite il y a deux feuilles, la première qui est la base des actes médicaux sur une année et le deuxième qui est la base des séjours passés à l'hôpital sur l'année.

Evidemment, un numéro de séjour peut subir plusieurs actes médicaux à des dates différentes. De ce fait, la valeur à trouver est l'unité de soin sur "Base" et on peut la trouver en fonction des numéros de séjours, de la date de l'acte médical en fonction des dates d'entrées et de sorties des unités de soins ("Base séjour").

Dites moi si vous voulez plus de renseignements, et de plus, si vous trouvez une formule excel qui marche je suis preneur.

Bonne soirée !

Peut-on s'échanger notre mail ou numéro de téléphone en privé lundi ?

Bien à vous, bon week end.