Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Message d'erreur type d'argument Byref incompatible

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Angelo7891
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Angelo7891

Guest
Bonjour le forum

alors voila j'ai un souci
pour deux de mes macro je dois connaitre le nombre de jour qu'il y a dans le mois en cours (par exemple pour juillet il y a 31 jours )


j'ai donc fais une petite fonction

comme ceci :
Code: 
Function DaysInAMonth(d As Date) As Integer
  DaysInAMonth = DateAdd("m", 1, d) - d
End Function
Function DaysInThisMonth(month, year As Integer) As Integer
  DaysInThisMonth = DaysInAMonth("1/" & month & "/" & year)
End Function

et dans mes macro je met ce code :

Code: 
Dim Annee, Jour, Mois  As Integer

Jour = Day(Now)
Mois = month(Now)
Année = year(Now)

nbjour = DaysInThisMonth(Mois, Année)

or pour l'une de mes macro ca passe et pas pour l'autre 😱
 
Trier par date Trier par votes
Re : Message d'erreur type d'argument Byref incompatible

bonjour

essaye comme ceci :

Function DaysInThisMonth(month, ByVal year As Integer) As Integer


par contre ne me demande pas pourquoi 😱

salut
 
Vote positif 0 Vote négatif
Re : Message d'erreur type d'argument Byref incompatible

re

Dim Annee, Jour, Mois As Integer

dans cette syntaxe, annee et jour sont déclarées variant et non integer

Dim Annee as integer, Jour as integer, Mois As Integer

tandis que là toutes les variables sont bien du type integer.

de plus :
dim annee
Année = year(Now)

salut

salut
 
Vote positif 0 Vote négatif
Re : Message d'erreur type d'argument Byref incompatible

Dim Annee, Jour, Mois As Integer

dans cette syntaxe, annee et jour sont déclarées variant et non integer

Dim Annee as integer, Jour as integer, Mois As Integer

tandis que là toutes les variables sont bien du type integer.
Cliquez pour agrandir...

depusi le temps que je fais ca !!

merci en tout ca le ByRef semble marché maintenant j'ai d'autre probleme lol
mais bon d'abord je vais voir ce que je peux faire moi meme
 
Vote positif 0 Vote négatif
Re : Message d'erreur type d'argument Byref incompatible

Bonsoir Angelo7891, Hervé,

En complément des remarques (judicieuses comme d'habitude !) d'Hervé, j'ajouterais que :

La variable Année n'étant pas déclarée (c'est Annee qui l'est), elle est donc considérée comme de type Variant.
Par conséquent, quand tu fais :
Code: 
[SIZE=2]nbjour = DaysInThisMonth(Mois, [B]Année[/B])[/SIZE]
Tu envoies en paramètre une donnée Variant, alors que ta fonction...
Code: 
[SIZE=2]Function DaysInThisMonth(month, [B]year As Integer[/B]) As Integer
...[/SIZE]
...attend un argument de type Integer.

L'ajout du mot clé ByVal te permet donc de contourner cette erreur, la donnée étant passée "par valeur" et non plus "par référence" (comme ça l'est par défaut).

Pour éviter ce genre d'erreur à l'avenir, je te conseille vivement l'utilisation de l'instruction Option Explicit en entête de chaque module (dans VBE, voir Outils / Options / Editeur / Déclaration des variables obligatoires)

Par ailleurs, ce qui est valable pour les Dim est également valable pour les arguments de fonction : tu devrais aussi mettre : "Month As..." comme tu l'as fait pour "Year As...". On peut remarquer également que la variable correspondant au Mois (de valeur 12 maximum) peut être déclarée As Byte au lieu d'Integer. Il en est de même pour la variable nbjours (que tu as d'ailleurs oublié de déclarer).

De plus, il n'est pas vraiment conseillé d'utiliser des noms de variables comme Month ou Year car ce sont des mots réservés VBA (ce sont des fonctions VBA existantes !)

Pour finir, tu peux simplifier son code comme suit (et éviter l'utilisation de la fonction intermédiaire DaysInAMonth) :
Code: 
[SIZE=2]Option [COLOR=navy]Explicit[/COLOR]

[COLOR=navy]Sub[/COLOR] Test()
[COLOR=navy]Dim [/COLOR]Annee[COLOR=navy] As Integer[/COLOR][COLOR=navy]
Dim [/COLOR]Mois[COLOR=navy] As Byte[/COLOR][/SIZE][SIZE=2], nbjour[COLOR=navy] As Byte[/COLOR][/SIZE][SIZE=2]

    Mois = month([COLOR=navy]Date[/COLOR])
    Annee = year([COLOR=navy]Date[/COLOR])
    
    nbjour = DaysInThisMonth(Mois, Annee)
    MsgBox nbjour
[COLOR=navy]End Sub[/COLOR]

[COLOR=navy]Function[/COLOR] DaysInThisMonth(vMois[COLOR=navy] As Byte[/COLOR], vAnnee[COLOR=navy] As Integer[/COLOR])[COLOR=navy] As Byte[/COLOR]
    DaysInThisMonth = Day([COLOR=navy]Date[/COLOR]Serial(vAnnee, vMois + 1, 1) - 1)
[COLOR=navy]End[/COLOR] Function[/SIZE]
Cordialement,
 
Vote positif 0 Vote négatif
Re : Message d'erreur type d'argument Byref incompatible

bonjour


merci didier, pour ces explications bien plus clair que les miennes.

c'est un don que de savoir expliquer clairement, apparement je n'en suis pas doté 🙂

salut
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
358
AtTheOne
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
1 K
TooFatBoy
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
650
JJ69
J
Y
  • Question Question
Autres Modifier un code VBA
Réponses
2
Affichages
1 K
Zon
Z
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
808
arnoldbrice19
A
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
893
Lu76Fer
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
779
loreak
L
A
  • Question Question
XL 2016 Combobox Saisie Date
Réponses
12
Affichages
1 K
aurelio.ewane
A
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
G
  • Question Question
Microsoft 365 Réduire la taille de la macro ?
Réponses
9
Affichages
1 K
Staple1600
  • Question Question
XL 2013 VBA insérer des retours à la ligne dans un résultat
Réponses
1
Affichages
801
sylvanu
V
  • Question Question
XL 2016 [RESOLU] Traduction code VBA (code trouvé sur internet je ne comprend rien)
2
Réponses
17
Affichages
3 K
VBgalère
V
S
  • Résolu(e)
XL 2010 non fonctionnement du code VBA sur un autre pc
Réponses
13
Affichages
2 K
Stedemart
S
  • Suggestion Suggestion
Date et heure EcartDate
2 3
Réponses
32
Affichages
5 K
patricktoulon
A
  • Question Question
Microsoft 365 Lissage du budget sur nombre de jours du mois
2
Réponses
25
Affichages
4 K
aba2s
A
  • Question Question
XL 2016 Optimisation code agenda
Réponses
0
Affichages
1 K
Nicolas JACQUIN
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…