erreur: type d'argument byref incompatible

harry226h

XLDnaute Junior

• 14 Mai 2019

• #2

Bonjour Deb, le forum
Non testé mais essai ca

VB:

Function minimiser_dm()
 Dim i As Integer
 Dim m As Integer 'attribue une valeur à m
 Dim duree As Variant
 Dim dm As Long

 dm = 0

 For i = 1 To m
 dm = dm + (m - i + 1) * Cells(i, 4)
 Next i

 duree(1, 2) = dm

 End Function

cdt

A

 

Vote positif 0 Vote négatif

E

Excel.Deb

XLDnaute Nouveau

• 14 Mai 2019

• #3

Bonjour,
après exécution j'obtiens erreur d'exécution 13:incompatibilité du type.
A savoir que j'effectue la syntaxe suivante après le code fonction:

Sub macro_somme()
call minimiser_dm(i,m)
end sub

 

Vote positif 0 Vote négatif

harry226h

XLDnaute Junior

• 14 Mai 2019

• #4

Qu'est ce qui est souligné?

 

Vote positif 0 Vote négatif

E

Excel.Deb

XLDnaute Nouveau

• 14 Mai 2019

• #5

la dernière ligne du code:

duree(1,2)=dm

 

Vote positif 0 Vote négatif

harry226h

XLDnaute Junior

• 14 Mai 2019

• #6

Possible de joindre un fichier exemple?

 

Vote positif 0 Vote négatif

E

Excel.Deb

XLDnaute Nouveau

• 14 Mai 2019

• #7

oui biensur.

 

Pièces jointes

• spt.xls

  79 KB · Affichages: 7

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Mai 2019

• #8

Bonjour.
Pas de macro dans votre exemple.
Mettez Function minimiser_dm(ByVal i As Integer, ByVal m As Integer) As Integer
Et veillez à transmettre à l'appel des expressions ayant les valeur appropriées.

 

Vote positif 0 Vote négatif

E

Excel.Deb

XLDnaute Nouveau

• 14 Mai 2019

• #9

j'ai fais comme demandé mais après la compilation,on me demande d'affecter le code à une macro.
est ce que je dois seulement enregistrer?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 14 Mai 2019

• #10

J'ai eu du mal à entrevoir ce que vous voulez dire.
Une Function doit normalement retourner quelque chose !
Mettre à la fin: minimiser_dm = une expression.

 

Vote positif 0 Vote négatif

E

Excel.Deb

XLDnaute Nouveau

• 14 Mai 2019

• #11

vous avez dit que je n'ai pas besoin d'une macro.
j'ouvre le visual basic j'écris ma fonction...à la compilation le vbe me demande d'affecter une macro à cette fonction sinon ca se compile pas.
ma question est comment je pourrais exécuter cette fonction sans passer par la macro?

 

Vote positif 0 Vote négatif

harry226h

XLDnaute Junior

• 14 Mai 2019

• #12

Deb,
Dranreb n'a pas dis de ne pas utiliser de macro, il disait juste qu'il n'y avais pas de macro dans ton exemple.

appel ta fonction comme ceci

VB:

Sub macro_somme()

 Call 'fonction

 End Sub

 

Vote positif 0 Vote négatif

E

Excel.Deb

XLDnaute Nouveau

• 14 Mai 2019

• #13

même erreur qu'avant:incompatibilité de type

VB:

Function minimiser_dm(ByVal i As Integer, ByVal m As Integer) As Integer

 Dim duree As Variant
 Dim dm As Long

 dm = 0

 For i = 1 To m
 dm = dm + (m - i + 1) * Cells(i, 4)
 Next i

 [COLOR=rgb(250, 197, 28)]duree(1, 2) = dm[/COLOR]
minimiser_dm = duree(1, 2)
 End Function

Sub macro_somme()

Call minimiser_dm(i, m)

End Sub

 

Vote positif 0 Vote négatif

E

Excel.Deb

XLDnaute Nouveau

• 14 Mai 2019

• #14

la ligne durée(1,2) en jaune

 

Vote positif 0 Vote négatif

harry226h

XLDnaute Junior

• 14 Mai 2019

• #15

Et veillez à transmettre à l'appel des expressions ayant les valeur appropriées.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif