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 :

Message d'erreur 9


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Janvier 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Janvier 2018
    Messages : 2
    Par défaut Message d'erreur 9
    Bonjour

    Je suis sur une programmation d'un formulaire Userform pour une saisie de données
    J'ai suivi à la lettre la formule suivante et!!!!
    La quatrième ligne s'affiche en jaune ? (derligne = Sheets ........

    Je pense que la solution est dans ce forum Merci !!!


    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
    Private Sub CommandButton1_Click()
    Dim derligne As Integer
            If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
            derligne = Sheets("contactclient").Range("A456541").End(x1Up).Row + 1
            Cells(derligne, 1) = TextBox1.Value
            Cells(derligne, 2) = TextBox9.Value
            Cells(derligne, 3) = TextBox3.Value
            Cells(derligne, 4) = TextBox4.Value
            Cells(derligne, 5) = TextBox5.Value
            Cells(derligne, 6) = TextBox6.Value
            Cells(derligne, 7) = TextBox7.Value
            Cells(derligne, 8) = TextBox8.Value
     
            End If
     
     
     
             Unload UserForm1
             Load UserForm1
             UserForm1.Show
    End Sub

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    Bonjour
    Voilà ce qui arrive lorsque l'on se contente (sans s'y intéresser... sans même regarder son aide interne VBA) de :
    J'ai suivi à la lettre la formule suivante et!!!!
    La constante x1Up n'existe pas.
    Tu as mal copié/collé.

    PS : il sera dans la foulée bien de ne pas confondre "formule" avec "instruction VBA"

  3. #3
    Nouveau candidat au Club
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Janvier 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : Janvier 2018
    Messages : 2
    Par défaut
    Bonjour,

    Merci pour le conseil, j'ai juste suivi un tuto et ça fonctionne sur la vidéo mais pas chez moi?
    Pour ton information j'ai aucune formation juste autodidacte et j'avance doucement
    J'ai retiré la constante x1UP ça marche toujours pas
    Images attachées Images attachées  

  4. #4
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    J'ai retiré la constante x1UP ça marche toujours pas
    Bien. Mais il faut la remplacer par la constante qui va
    Bis repetita : ouvre donc enfin ton aide interne VBA, au lieu de regarder des "tutos" accompagnés de "videos".
    Je te suggère la lecture de la rubrique Range.End, propriété
    Je te quitte là.

  5. #5
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par HDONE Voir le message
    Pour ton information j'ai aucune formation juste autodidacte et j'avance doucement
    Comme la grande majorité des développeurs VBA.
    On est tous passé par là, on ne va donc pas s’apitoyer.

    Par contre, je suis persuadé que tu es assez formé pour appuyer sur la touche F1, non.
    Alors mets ton curseur sur le End dans ton VBE et appuie sur F1. Tu accèderas à l'aide de cette propriété et tu verras la liste de ses paramètres.

    D'accord avec Unparia ( ) : appliquer un code sans chercher à en comprendre chaque élément, c'est foncer dans le mur.

    J'ai retiré la constante x1UP ça marche toujours pas
    Il ne fallait pas la retirer (l'aide VBA te confirmera que le paramètre est obligatoire pour la propriété End) mais de le corriger.

Discussions similaires

  1. [TSocket] Message d'erreur
    Par rgz dans le forum Web & réseau
    Réponses: 6
    Dernier message: 04/07/2003, 09h16
  2. Surcharger le message d'erreur après un OnException
    Par Tirlibibi dans le forum XMLRAD
    Réponses: 2
    Dernier message: 24/04/2003, 11h42
  3. Réponses: 4
    Dernier message: 04/03/2003, 01h05
  4. [CR] Message d'erreur
    Par nono1 dans le forum SAP Crystal Reports
    Réponses: 2
    Dernier message: 11/09/2002, 14h54
  5. Réponses: 2
    Dernier message: 27/05/2002, 19h46

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