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 :

Problème de compilation fonction IF et boucle while [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2011
    Messages
    94
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Octobre 2011
    Messages : 94
    Par défaut Problème de compilation fonction IF et boucle while
    Bonjour à tous,

    Je viens de terminer le code ci-dessous, cependant il y a une erreur dans l'execution "imcompatibilité de type" sur la ligne "If Cells(X, 18) = "REMBOURSEMENT" Then"
    Est il possible de faire une boucle et de renvoyer les références de cette même boucle dans une autre cellule dans la même ligne? Le code sera plus explicatif.

    Merci pour votre aide précieuse.

    Ci-joint mon code:
    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
    Sub test()
     
    X = 2
        While IsEmpty(Cells(X, 1)) = False
     
        If Cells(X, 18) = "CHANGEMENT" Then
        Cells(X, 13) = Cells(X, 9)
        End If
        If Cells(X, 18) = "REMBOURSEMENT" Then
        Cells(X, 14) = Cells(X, 9)
        End If
     
     
    X = X + 1
     
    Wend
     
    End Sub

  2. #2
    Membre éprouvé
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    147
    Détails du profil
    Informations personnelles :
    Localisation : France, Calvados (Basse Normandie)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 147
    Par défaut
    Bonjour ,
    Pourquoi ne pas utiliser ELSEIF:

    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
    Sub test()
     
    X = 2
        While IsEmpty(Cells(X, 1)) = False
     
        If Cells(X, 18) = "CHANGEMENT" Then
        Cells(X, 13) = Cells(X, 9)
     
        ElseIf Cells(X, 18) = "REMBOURSEMENT" Then
        Cells(X, 14) = Cells(X, 9)
        End If
     
     
    X = X + 1
     
    Wend
     
    End Sub

  3. #3
    Membre chevronné
    Homme Profil pro
    Inscrit en
    Juin 2011
    Messages
    181
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2011
    Messages : 181
    Par défaut
    Bonjour à tous.

    Quelle est la valeur de X quand le message d'erreur apparait ?

    Cordialement.

  4. #4
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2011
    Messages
    94
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Finance

    Informations forums :
    Inscription : Octobre 2011
    Messages : 94
    Par défaut
    Merci pour vos conseils.

    En faite dans ma boucle il y avait des valeurs #N/A du coup le code planté

    Merci encore et bonne journée

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

Discussions similaires

  1. fonction avec la boucle while
    Par hanou88 dans le forum C
    Réponses: 4
    Dernier message: 04/12/2009, 03h42
  2. Problème de requête SQL dans une boucle While
    Par Astraya dans le forum VB.NET
    Réponses: 3
    Dernier message: 21/01/2009, 17h18
  3. Problème de compilation: fonction introuvable
    Par Bornerdogge dans le forum Ogre
    Réponses: 18
    Dernier message: 02/02/2007, 21h40
  4. Problème de SCANF dans une boucle WHILE
    Par FidoDido® dans le forum C
    Réponses: 4
    Dernier message: 30/12/2005, 17h42
  5. [Conception] Problème de test dans une boucle while
    Par Cyrius dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 26/11/2005, 18h07

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