Variable non définie

Résolu/Fermé

ecmk1983 - 20 août 2014 à 14:25
borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 - 27 août 2014 à 15:31

Bonjour,
le probleme : xIUp

Private Sub commandbutton3_Click()
Dim L As Integer
If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau dossier ?", vbYesNo, "Demande de confirmation") = vbYes Then
L = Sheets("Revente").Range("a1048576").End(xIUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau non vide
Range("A" & L).Value = ComboBox1 'Insere la donnée de la liste déroulante dans la colonne A
Range("B" & L).Value = TextBox1
Range("C" & L).Value = TextBox2
Range("D" & L).Value = TextBox3
Range("E" & L).Value = TextBox4
Range("F" & L).Value = TextBox5
Range("G" & L).Value = TextBox6
Range("H" & L).Value = TextBox7
Range("I" & L).Value = TextBox8
Range("J" & L).Value = TextBox9
Range("K" & L).Value = TextBox10
Range("L" & L).Value = TextBox11
Range("M" & L).Value = TextBox12
Range("N" & L).Value = TextBox13
Range("O" & L).Value = TextBox14
Range("P" & L).Value = TextBox15
Range("Q" & L).Value = TextBox16
Range("R" & L).Value = TextBox17
Range("S" & L).Value = TextBox18
Range("T" & L).Value = TextBox19
Range("U" & L).Value = TextBox20
Range("V" & L).Value = TextBox21
Range("W" & L).Value = TextBox22
Range("X" & L).Value = TextBox23
Range("Y" & L).Value = TextBox24
Range("Z" & L).Value = TextBox25
Range("AA" & L).Value = TextBox26
Range("AB" & L).Value = TextBox27
Range("AC" & L).Value = TextBox28
Range("AD" & L).Value = TextBox29
Range("AE" & L).Value = TextBox30
Range("AF" & L).Value = TextBox31
Range("AG" & L).Value = TextBox32
End If
'code permettant de modifier le format de la plage de cellule en format nombre
With xs.Range("j2:j10")
.NumberFormat = "o"
.Value = .Value
End With
MsgBox ("Produit inséré dans fichier sélectionné") 'Vous informe que le présent dossier est insérer dans votre tableau
Unload Me 'Fermer le formulaire
UserForm1.Show 'Ouvre le formulaire
End Sub

A voir également:

Variable non définie
Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
Utilisation d'une variable locale non assignée ✓ - Forum C#
Erreur signet non défini ✓ - Forum Word
Formule excel plage de données variable ✓ - Forum Excel
Vba msgbox variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

Utilisateur anonyme
20 août 2014 à 15:13

Bonjour

Dans xlUp, la deuxième lettre est un L minuscule (xl comme Excel) et non pas un i majuscule

Réponse 2 / 2

borntobealive Messages postés 138 Date d'inscription jeudi 17 juillet 2014 Statut Membre Dernière intervention 25 février 2019 7
27 août 2014 à 15:31

for i = 1 to 32 
    Cells(L,i+1).value = controls("Textbox" & i)
next i

peut-être pour alléger un peu le code ?

Discussions similaires

programme qui n'affiche pas le mot secret

variable objet ou variable de bloc with non définie

VBA : Range avec références variables..

Erreur 1004 - Erreur définie par l'application ou par l'objet

vérifiez la variable d'environnement TEMP

Discussions similaires

Newsletters