SERIEUXETCOOL
Messages postés336Date d'inscriptiondimanche 3 avril 2011StatutMembreDernière intervention12 juin 2012
-
16 nov. 2011 à 17:55
SERIEUXETCOOL
Messages postés336Date d'inscriptiondimanche 3 avril 2011StatutMembreDernière intervention12 juin 2012
-
17 nov. 2011 à 01:00
Bonsoir le Forum,
Je cherche à créer une procédure personnelle qui peut être appelée avec des paramètres optionnels. Sauf que je ne parviens pas à l'appeler de manière correcte si mon paramètre optionnelle n'est pas présent.
Comment s'y prends t'ont ?
Voici le code que je veux utiliser :
Sub Macro1()
Call MISEENFORME(Range("B2:E20"))
End Sub
'--------
Sub MISEENFORME(Optional Tableau As Range)
End Sub
Si j'appelle MISEENFORME sans lui donner un range en entrée alors sa plante car Tableau n'est pas définit (Normal il est optionnel justement !!!)
Des conseils ? j'ai essayer "If Isnull(Tableau) Then" mais ça ne marche pas. J'ai également essayer "On error resume next" mais je ne parviens pas à en tirer quoi que ce soit.
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018212 16 nov. 2011 à 18:17
pardon (balises ratées) :
Private Sub CommandButton1_Click()
MISEENFORME Range("B2:E20")
MISEENFORME
End Sub
Sub MISEENFORME(Optional Tableau As Variant)
If IsMissing(Tableau) Then
MsgBox "pas d'argument tableau"
Exit Sub
Else
MsgBox Tableau.Address
End If
End Sub
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018212 16 nov. 2011 à 18:15
Bonjour,
ainsi (exemple):
Private Sub CommandButton1_Click()
MISEENFORME Range("B2:E20")
MISEENFORME
End Sub
Sub MISEENFORME(Optional Tableau As Variant)
If IsMissing(Tableau) Then
MsgBox "pas d'argument tableau"
Exit Sub
Else
MsgBox Tableau.Address
End If
End Sub
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient