Aceess/VBA : appel de procédures ByRef

Résolu/Fermé

Towers - 16 juil. 2008 à 15:29
Towers Messages postés 37 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 10 mai 2012 - 1 août 2008 à 10:13

Bonjour,

J'ai un gros souci avec mon code. Je ne suis pas très fort en VBA mais je ne vois pas ce qui coince.
J'ai deux donctions, l'une appelant l'autre, et ça coince lors de cet appel.

Dans le code que je voue montre, j'obtient le message "Erreur : type incompatible" et le curseur est placé sur la ligne "If (Horaires...", précisémment sur le mot "heureDebut"

Si je met des parenthèses dans l'appel de la fonction Horaires, le MsgBox de la fonction Horaires affiche les bons résultats, c'est à dire "06:00:00 ; 14:00:00" mais le MsgBox de la fonction CalculPrincipal affiche uniquement "Actif : ; 00:00:00", ce qui n'est pas le bon résultat.

J'ai trouvé d'autres utilisateurs qui avaient eu ce probème mais pas la solution. Merci de m'aider et désolé pour l'absence de balises mais elles ne s'affichent pas sur mon écran, je les rajouterai si je les trouve.

Voici un bout de mon code :

Public Function CalculPrincipal(dateTravail As Date) As Double

Dim heureDebut, heureFin As date
Dim equipe As String
Dim numero As Integer

equipe = "A"
numero = 1

If (Horaires ( dateTravail, equipe, numero, heureDebut, heureFin) = True Then

MsgBox "<CalculPrincipal> : Actif : " & heureDebut & " ; " & heureFin
Else

MsgBox "<CalculPrincipal> : Inactif"
End If
End Function

Public Function Horaires(ByVal dateTravail As Date, _
ByVal equipe As String, ByVal numEquipes As Integer, _
ByRef heureDebut As Date, ByRef heureFin As Date) As Boolean

// je récupère heureDebut et heureFin avec une requete SQL qui fonctionne

MsgBox heureDebut & " ; " & heureFin

End Function

A voir également:

Aceess/VBA : appel de procédures ByRef
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

Towers Messages postés 37 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 10 mai 2012 3
1 août 2008 à 10:13

En fait j'ai découvert quelque chose :

si j'ai deux procédures

Public Sub Test1()
Dim str1 As String
Dim str2 As String
Ecrire str1
Ecrire str2
MsgBox str1 & " ; " & str2
End Sub

Public Sub Test2()
Dim str1, str2 As String
Ecrire str1
Ecrire str2
MsgBox str1 & " ; " str2
End Sub

Public Sub Ecrire(ByRef str As String)
str = "Ca marche"
End Sub

Alors Test1 va réussir mais pas Test2 (elle ne va pas compiler), simplement parce que j'aurais déclaré str1 et str2 sur la même ligne !!
C'est un bug de VBA ?

Réponse 2 / 2

Towers Messages postés 37 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 10 mai 2012 3
16 juil. 2008 à 15:59

C'est ptêtre paske j'étais pas identifié...

En tous cas j'ai trouvé une solution donc je vous dit comment j'ai fait, mais ça me semble tellement moche que si quelqu'un d'autre à une solution à proposer, je veux bien savoir comment il fait.

En gros je n'ai rien changé à ma fonction principale :

Public Function CalculPrincipal(dateTravail As Date) As Double 

Dim heureDebut, heureFin As date 
Dim equipe As String 
Dim numero As Integer 

equipe = "A" 
numero = 1 

If (Horaires ( dateTravail, equipe, numero, heureDebut, heureFin) = True Then 

MsgBox "<CalculPrincipal> : Actif : " & heureDebut & " ; " & heureFin 
Else 

MsgBox "<CalculPrincipal> : Inactif" 
End If 
End Function

En revanche j'ai modifié la deuxième fonction que j'appelle : je change les paramètres, au lieu d'appeller des Date, j'appelle des Variant et ensuite je les cast en Date.
Ca me semblait si horrible que même avec l'idée en tête, j'ai failli ne pas la tester...

Public Function Horaires(ByVal dateTravail As Date, _ 
ByVal equipe As String, ByVal numEquipes As Integer, _ 
ByRef hDebut As Variant, ByRef hFin As Variant) As Boolean 

Dim heureDebut, heureFin as Date

heureDebut = (hDebut)
heureFin = (hFin)

// je récupère heureDebut et heureFin avec une requete SQL qui fonctionne 

MsgBox heureDebut & " ; " & heureFin 

End Function

Désormais les deux MsgBox affichent les mêmes valeurs donc ça c'est cool.

Je ne met pas le tag résolu encore paskil me semble qu'une solution sans les variant serait mieux et doit être possible.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA

appliquer une pause dans une macro vba excel