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

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 : Sélectionner tout - Visualiser dans une fenêtre à part
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