[VBA] Fonction : probleme parametre

[suistrop]

Bonjour,

Sous vba je veux crer quelque chose qui prenne en entrée 2 chiffres.

Avec 1 chiffre ca fonctionne nickel mais je n arrive pas a mettre 2 chiffre en entrée :

Ceci marche

Sub mef_tableau(ByVal a As Integer)
Range("D" & a & ":E35").Select
end sub
 
mef_tableau(25)

Cela ne marche pas

Sub mef_tableau(ByVal a As Integer,ByVal b As Integer)
Range("D" & a & ":E" & b).Select
end sub
 
sub test()
mef_tableau(25,35)
end sub

Merci de m éclairer !!

 

[wilfried_42]

Re : [VBA] Fonction : probleme parametre

bonjour

tu ne trouves pas quelque chose de bizarre :

Sub mef_tableau(ByVal a As Integer,ByVal a As Integer)
Range("D" & a & ":E" & b).Select

Edit : Bonjour Pierrejean 🙂😉

 

[pierrejean]

Re : [VBA] Fonction : probleme parametre

bonjour tuestrop

teste

Sub mef_tableau(ByVal a As Integer,ByVal [COLOR=Blue]b[/COLOR] As Integer)
Range("D" & a & ":E" & b).Select
end sub

Salut Wil , désolé pour la collision

 

[suistrop]

Re : [VBA] Fonction : probleme parametre

Dans mon prgramme c est bien b,
en recopiant ici j ai fais une erreur ... trop utilisé copier coller 😀 je m en suis rendu compte juste avant que je vois vos messages ^^

 

[wilfried_42]

Re : [VBA] Fonction : probleme parametre

re:

autre erreur :
soit :
mef_tableau 25, 35
soit :
call mef_tableau(25,35)

 

[pierrejean]

Re : [VBA] Fonction : probleme parametre

Re

Sous Excel 2000 il faut:

[COLOR=Blue]Call[/COLOR] mef_tableau(25, 35)

 

[suistrop]

Re : [VBA] Fonction : probleme parametre

re:

autre erreur :
soit :
mef_tableau 25, 35
soit :
call mef_tableau(25,35)

Parfais , je ne connaissais pas ca et je ne l avais vu nul part 🙂

Merci beaucoup PierreJean & Wilfried^^