IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Fonction personnalisé sur vba [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Ingénieur développement matériel électronique
    Inscrit en
    Avril 2018
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ingénieur développement matériel électronique
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2018
    Messages : 8
    Par défaut Fonction personnalisé sur vba
    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

  2. #2
    Invité
    Invité(e)
    Par défaut
    Citation Envoyé par saidram Voir le message
    A tester :

    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
    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

  3. #3
    Membre averti
    Homme Profil pro
    Ingénieur développement matériel électronique
    Inscrit en
    Avril 2018
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Ingénieur développement matériel électronique
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2018
    Messages : 8
    Par défaut
    merci bcp pour votre aide

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. création d'une fonction min sur vba
    Par lilou31330 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 11/12/2012, 23h14
  2. Fonction Random sur VBA Excel
    Par sempire dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 18/12/2008, 10h46
  3. [VBA-W2007]Menu personnalisé sur le clic droit
    Par tazamorte dans le forum VBA Word
    Réponses: 3
    Dernier message: 15/06/2007, 11h23
  4. [VBA]Fonction 'ajout' en vba sur une table
    Par rico63 dans le forum VBA Access
    Réponses: 15
    Dernier message: 28/03/2007, 16h56
  5. Réponses: 7
    Dernier message: 26/05/2006, 19h45

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo