J
Julien
Guest
Bonjour à tous,
Voilà j'ai fais un petit code très court et simple. J'ai voulu le découper en function mais je ne sais pas très bien le faire et j'ai une erreur 'Type d'argument Byref incompatible.' sur 'InitFeuille NbFeuille, NomFeuille, FPolice, FTaille'.
Pouvez vous m'aider ?
Merci davance,
Julien
Sub GestionStocks()
Dim FTaille, NbFeuille As Integer
Dim NomFeuille, FPolice, OEntete As String
'----Paramètres ---
NomFeuille = 'Nom de la feuille' 'Nom de la feuille généré
NbFeuille = 2 'Numéro de la feuille généré
FPolice = 'Arial' 'Police du texte
FTaille = 9 'Taille du texte
'--- Initialise la feuille indiquée---
InitFeuille NbFeuille, NomFeuille, FPolice, FTaille
End Sub
' Initialise la feuille
' test si il y a la feuille sinon il l'a créé.
Function InitFeuille(Feuille As Integer, Texte As String, Police As String, Taille As Integer)
If Sheets.Count = 1 And Feuille <> 1 Then
Sheets.Add.Name = Texte
ActiveSheet.Move After:=Worksheets(Sheets.Count)
End If
Sheets(Feuille).Cells.Clear
Sheets(Feuille).Cells.Font.Name = Police
Sheets(Feuille).Cells.Font.Size = Taille
End Function
Voilà j'ai fais un petit code très court et simple. J'ai voulu le découper en function mais je ne sais pas très bien le faire et j'ai une erreur 'Type d'argument Byref incompatible.' sur 'InitFeuille NbFeuille, NomFeuille, FPolice, FTaille'.
Pouvez vous m'aider ?
Merci davance,
Julien
Sub GestionStocks()
Dim FTaille, NbFeuille As Integer
Dim NomFeuille, FPolice, OEntete As String
'----Paramètres ---
NomFeuille = 'Nom de la feuille' 'Nom de la feuille généré
NbFeuille = 2 'Numéro de la feuille généré
FPolice = 'Arial' 'Police du texte
FTaille = 9 'Taille du texte
'--- Initialise la feuille indiquée---
InitFeuille NbFeuille, NomFeuille, FPolice, FTaille
End Sub
' Initialise la feuille
' test si il y a la feuille sinon il l'a créé.
Function InitFeuille(Feuille As Integer, Texte As String, Police As String, Taille As Integer)
If Sheets.Count = 1 And Feuille <> 1 Then
Sheets.Add.Name = Texte
ActiveSheet.Move After:=Worksheets(Sheets.Count)
End If
Sheets(Feuille).Cells.Clear
Sheets(Feuille).Cells.Font.Name = Police
Sheets(Feuille).Cells.Font.Size = Taille
End Function