Message d'erreur 9

Version imprimable

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:

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

29/01/2018, 18h43
unparia

Bonjour
Voilà ce qui arrive lorsque l'on se contente (sans s'y intéresser... sans même regarder son aide interne VBA) de :

Citation:

J'ai suivi à la lettre la formule suivante et!!!!

La constante x1Up n'existe pas.
Tu as mal copié/collé. :pleure:

PS : il sera dans la foulée bien de ne pas confondre "formule" avec "instruction VBA"
29/01/2018, 19h10
HDONE

1 pièce(s) jointe(s)

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
29/01/2018, 19h25
unparia

Citation:

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à.
30/01/2018, 09h08
Menhir

Citation:

Envoyé par HDONE

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 ( :coucou: ) : appliquer un code sans chercher à en comprendre chaque élément, c'est foncer dans le mur.

Citation:

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.