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 :

Sub or function not defined - boucle if conditions multiples


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Juillet 2014
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : Oman

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes

    Informations forums :
    Inscription : Juillet 2014
    Messages : 6
    Par défaut Sub or function not defined - boucle if conditions multiples
    Bonjour,

    Dans le fichier ci joint l'utilisateur devra renseigner :
    - Type of project
    - Where
    - Type of service
    - Duration of the project
    - Workforce

    Je veux lui indiquer quels seront les differents HSE requirements lies (voir feuille HSE : 432 scenarios possibles)

    Voici la macro :

    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
    Sub RA()
    Dim i As Integer
    Dim x1, x2, x3, x4, x5 As String
     
    ' x1 = Type of project'
    ' x2 = Where'
    ' x3 = Type of water'
    ' x4 = Duration'
    ' x5 = Workforce'
     
    x1 = Sheets("HSE").Range("B4").Value
    x2 = Sheets("HSE").Range("D4").Value
    x3 = Sheets("HSE").Range("B6").Value
    x4 = Sheets("HSE").Range("D6").Value
    x5 = Sheets("HSE").Range("B10").Value
     
    For i = 5 To 436
         If Sheets1("B" & i).Value = x1 And Sheets1("C" & i).Value = x2 And Sheets1("D" & i).Value = x3 And Sheets1("E" & i).Value = x4 And Sheets1("F" & i).Value = x5 Then
     
            Sheets("HSE").Range("H4").Value = Sheets1("A" & i).Value
     
            End If
     
        Next i
     
     
    End Sub
    Quelque soit le nom de la procedure choisi le message suivant s'affiche : "Sub or function not defined"

    Pouvez vous m’éclairer ?

    Merci beaucoup !

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    C'est et non Hervé.

  3. #3
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    bonjour,

    d'ou viens ton :

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 165
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 165
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Afin que la lecture de ton code soit aisée, merci de le placer entre les balises prévues à cet effet. (bouton symbolisé pas un croisillon # dans l'éditeur)
    Ensuite indiquer le n° de la ligne où l'erreur est signalée serait un plus.
    Sans avoir examiné tout ton code, je vois déjà un problème ici
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Sheets1("B" & i).Value = x1 And Sheets1("C" & i).Value = x2 And Sheets1("D" & i).Value = x3 And Sheets1("E" & i).Value = x4 And Sheets1("F" & i).Value = x5 Then
    Sheets1 n'est pas un Range
    Attention aussi à cette ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Dim x1, x2, x3, x4, x5 As String
    Seul x5 est un String, les autres sont de type Variant
    La bonne syntaxe est
    Dim x1 as String, x2 as String, etc...
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  5. #5
    Membre à l'essai
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Juillet 2014
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : Oman

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes

    Informations forums :
    Inscription : Juillet 2014
    Messages : 6
    Par défaut
    Merci beaucoup pour vos premières remarques.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Sheets1("B" & i).Value = x1
    Comment puis je faire référence au contenu de la cellule en question qui se trouve sur la feuille 1 ?

  6. #6
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    ben si ta feuille se nomme "Feuille 1" cela donne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If ThisWorkbook.Sheets("Feuille 1").range("B" & i).Value = x1

  7. #7
    Membre à l'essai
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Juillet 2014
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : Oman

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes

    Informations forums :
    Inscription : Juillet 2014
    Messages : 6
    Par défaut
    Voici le code rectifie :

    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
    29
    30
    31
    32
    Sub RA()
     
    Dim i As Integer
    Dim x1 As String, x2 As String, x3 As String, x4 As String, x5 As String
     
    ' x1 = Type of project'
    ' x2 = Where'
    ' x3 = Type of water'
    ' x4 = Duration'
    ' x5 = Workforce'
     
    x1 = Sheets("HSE").Range("B4").Value
    x2 = Sheets("HSE").Range("D4").Value
    x3 = Sheets("HSE").Range("B6").Value
    x4 = Sheets("HSE").Range("D6").Value
    x5 = Sheets("HSE").Range("B10").Value
     
    For i = 5 To 436
         If ThisWorkbook.Sheets("Sheet 1").Range("B" & i).Value = x1 And ThisWorkbook.Sheets("Sheet 1").Range("C" & i).Value = x2 And ThisWorkbook.Sheets("Sheet 1").Range("D" & i).Value = x3 And ThisWorkbook.Sheets("Sheet 1").Range("E" & i).Value = x4 And ThisWorkbook.Sheets("Sheet 1").Range("F" & i).Value = x5 Then
     
            ThisWorkbook.Sheets("HSE").Range("H4").Value = ThisWorkbook.Sheets("Sheet 1").Range("A" & i).Value
     
     
            Else
     
            End If
     
        Next i
     
     
     
    End Sub

    J'obtiens désormais le message : "Subscript out of range"

  8. #8
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    lorsque tu obtiens ce message l'affichage doit te montrer la ligne de code en cause .. qu'elle est cette ligne ?

Discussions similaires

  1. function not defined
    Par pas30 dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 05/10/2014, 18h54
  2. Compile error: sub or function not defined
    Par bsangoku dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 10/05/2013, 14h12
  3. [AJAX] function not defined sous firefox 4 et 5
    Par vseb99 dans le forum AJAX
    Réponses: 0
    Dernier message: 20/07/2011, 15h53
  4. erreur function not defined
    Par reventlov dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 03/04/2006, 01h07

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