Fonction personnalisé sur vba

Version imprimable

bonjour a tous, d'abord merci pour tt ceux qui sont la, je forum ma permit de partagé bcp de choses avec vous:D;)

aujourd’hui j'ai des difficultés a faire ma fonction qui permit d attribuer un numéro pour chaque élément que j ai sur une feuille
voila ce que j'ai fais a vous vous proposition

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'Declaration des variables
'Nombre d'enduleur dans la base de données
 
Public Const Nond As Integer = 40
 
'Nombre de critéres de clasification des onduleurs
 
Public Const Ncr As Integer = 37
 
'Fonction d'attribution de numéro a chaque onduleur
 
Function gsn_inv_num(onduleur As String) As String
        Set DataCryo = ThisWorkbook.Worksheets("BD-DECENTRALISES")
        gsn_uinv_num = 0
        For j = 1 To Nond
        If onduleur = DataCryo.Cells(1, 1 + j) Then
            gsn_inv_num = j
        End If
    End Function

Citation:

Envoyé par saidram

A tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Option Explicit
 
'Declaration des variables
'Nombre d'onduleurs dans la base de données
 
Public Const Nond As Integer = 40
 
'Nombre de critéres de clasification des onduleurs
 
Public Const Ncr As Integer = 37
 
'Fonction d'attribution de numéro a chaque onduleur
 
Function Gsn_Inv_Num(ByVal Onduleur As String) As Integer
 
Dim DataCryo As Worksheet
Dim J As Integer
 
        Application.Volatile
        Set DataCryo = Sheets("BD-DECENTRALISES")
        Gsn_Inv_Num = 1
        For J = 1 To Nond
            If Onduleur = DataCryo.Cells(1, J) Then Gsn_Inv_Num = J
        Next J
        Set DataCryo = Nothing
 
End Function

31/05/2018, 15h42
saidram

merci bcp pour votre aide;)