Sujet Précédent Sujet Suivant

[VBA] pb de programmation enregistrement

Résolu/Fermé
grace - 15 juil. 2008 à 14:29
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 16 juil. 2008 à 14:14
Bonjour,

j'ai deux petite question concernant mon programme. ce dernier me permet de remplirun base de données Excel. L'utilisateur rempli les différents champs (textbox et combobox) et quand il clique sur enregistrer, je veux que ces données soient mises à la suite des autres (déja existante).

Or avec le programme suivant, mes données sont mises à la ligne 14! or j'ai déja 1500 lignes de remplies, il faudrait donc que cela s'enregistre à la ligne 1501!

D'autre part, je souhaite rajouter une boucle qui me permette de vérifier si le numéro saisie en textbox1 n'est pas existant dans la colonne A de ma base de donnée. Si c'est le cas : mettre un message d'erreur, sinon enregistrer les données à la suite.

Le programmme est le suivant :
Private Sub Enregistrer_Click()
If TextBox1.Value = "" Then
MsgBox "Il faut entrer un numero d'étiquette"
ElseIf ComboBox1.Value = "" Then
MsgBox "Choisir un responsable secteur dans la liste"
ElseIf ComboBox2.Value = "" Then
MsgBox "Choisir un secteur dans la liste"
ElseIf ComboBox3.Value = "" Then
MsgBox "Choisir une ligne dans la liste"
ElseIf ComboBox4.Value = "" Then
MsgBox "Choisir un type d'étiquette dans la liste"
ElseIf ComboBox5.Value = "" Then
MsgBox "Déterminer la criticité de l'étiquette"
ElseIf TextBox4.Value = "" Then
MsgBox "Il faut entrez une date d'émission"
ElseIf Not IsDate(TextBox4.Value) Then
MsgBox "Entrer une date au format jj/mm/aaaa"
Else
'Enregistrement des valeurs entrées par l'utilisateur dans le registre'
Dim x As Integer
x = 4
While Range("A" & x).Value <> ""
x = x + 1
Wend
'enlever le mot de passe du classeur'
Worksheets("Registre").Unprotect Password:="tpm2008"
Sheets("Registre").Range("A" & x).Value = Me.TextBox1.Value
Sheets("Registre").Range("B" & x).Value = Me.ComboBox1.Value
Sheets("Registre").Range("C" & x).Value = Me.ComboBox2.Value
Sheets("Registre").Range("D" & x).Value = Me.ComboBox3.Value
Sheets("Registre").Range("E" & x).Value = Me.TextBox2.Value
Sheets("Registre").Range("F" & x).Value = Me.TextBox3.Value
Sheets("Registre").Range("K" & x).Value = Me.ComboBox4.Value
Sheets("Registre").Range("L" & x).Value = Me.ComboBox5.Value
Sheets("Registre").Range("G" & x).Value = Me.TextBox4.Value
Sheets("Registre").Range("I" & x).Value = Me.TextBox5.Value
Sheets("Registre").Range("J" & x).Value = Me.TextBox6.Value
'protection de la feuille "registre"'
Worksheets("Registre").Protect Password:="tpm2008"
'remise à 0 de tous les champs de l'application'
TextBox1.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
End If
End Sub

Je vous remercie par avance
A voir également:

5 réponses

Réponse 1 / 5
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
15 juil. 2008 à 18:02
Bonjour,

As-tu essayé ça : 
While Sheets("Registre").Cells(x, 1).Value <> "" 
    x = x + 1 
Wend


Avec juste le code, on ne sait pas quelle feuille est active. Ou bien mettre Sheets("Registre").Activate juste avant de faire le While

;o)

1
grace
16 juil. 2008 à 13:15
merci, cette fois-ci tout fonctionne c'est génial!

grace
0
Réponse 2 / 5
grace
15 juil. 2008 à 14:32
petit rectification :
si la saisie de la textbox1 est existante dans la colonne de ma base de données alors afficher un message d'erreur, sinon on peut l'enregistrer

Désolé ! :-s
0
Réponse 3 / 5
Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
15 juil. 2008 à 15:31
Grace,
pour ton problème n°1, je suppose que la case A14 se retrouve vide par erreur. Sinon, il n'y a pas de raison que tes données soient saisies à cet endroit là.

pour ton problème n°2, je te propose la modification suivante :
(on cherche la valeur de textbox1 dans la colonne A, comme avec Ctrl+F. Si on en trouve une, alors on met un message d'erreur) 
Private Sub Enregistrer_Click()

If TextBox1.Value = "" Then
    MsgBox "Il faut entrer un numero d'étiquette": Exit Sub
Else
    Dim MyRange As Range
    Set MyRange = Sheets("Registre").Columns(1).Find(TextBox1.Value, , , xlWhole)
    If Not MyRange Is Nothing Then
        MsgBox "la valeur '" & TextBox1.Value &  _ 
        "' est déjà présente à la ligne " & MyRange.Row
        Exit Sub
    End If
End If

If ComboBox1.Value = "" Then
'reprendre à partir de là ton enchaînement de tests

I.
0
grace
15 juil. 2008 à 15:39
pour le pb n°2 je vais essayer. Merci

Pour le pb n°1: c'est bien ca le pb c'est que la case 14 n'est pas vide!!!
0
grace
15 juil. 2008 à 16:54
quoi que je fasse mes données s'inscrivent dans la ligne 14 (que j'ai 1500 lignes de prises ou 4!)

Mon programme est le suivant:

Private Sub Enregistrer_Click()
'message d'erreur si le numero d'étiquette existe déja
If TextBox1.Value = "" Then
MsgBox "Il faut entrer un numero d'étiquette": Exit Sub
Else
Dim MyRange As Range
Set MyRange = Sheets("Registre").Columns(1).Find(TextBox1.Value, , , xlWhole)
If Not MyRange Is Nothing Then
MsgBox "la valeur '" & TextBox1.Value & _
"' est déjà présente à la ligne " & MyRange.Row
Exit Sub
End If
End If
If ComboBox1.Value = "" Then
MsgBox "Choisir un responsable secteur dans la liste"
ElseIf ComboBox2.Value = "" Then
MsgBox "Choisir un secteur dans la liste"
ElseIf ComboBox3.Value = "" Then
MsgBox "Choisir une ligne dans la liste"
ElseIf ComboBox4.Value = "" Then
MsgBox "Choisir un type d'étiquette dans la liste"
ElseIf ComboBox5.Value = "" Then
MsgBox "Déterminer la criticité de l'étiquette"
ElseIf textbox4.Value = "" Then
MsgBox "Il faut entrez une date d'émission"
ElseIf Not IsDate(textbox4.Value) Then
MsgBox "Entrez une date au format jj/mm/aaaa"
Else
<gras>'Enregistrement des valeurs entrées par l'utilisateur dans le registre'
Dim x As Long
x = 4
While Cells(x, 1).Value <> ""
x = x + 1
Wend
Sheets("Registre").Cells(x, 1).Value = Me.TextBox1.Value
Sheets("Registre").Cells(x, 2).Value = Me.ComboBox1.Value
Sheets("Registre").Cells(x, 3).Value = Me.ComboBox2.Value
Sheets("Registre").Cells(x, 4).Value = Me.ComboBox3.Value
Sheets("Registre").Cells(x, 5).Value = Me.TextBox2.Value
Sheets("Registre").Cells(x, 6).Value = Me.TextBox3.Value
Sheets("Registre").Cells(x, 11).Value = Me.ComboBox4.Value
Sheets("Registre").Cells(x, 12).Value = Me.ComboBox5.Value
Sheets("Registre").Cells(x, 7).Value = Me.textbox4.Value
Sheets("Registre").Cells(x, 9).Value = Me.TextBox5.Value
Sheets("Registre").Cells(x, 10).Value = Me.TextBox6.Value
<gras>
'remise à 0 de tous les champs de l'application'
TextBox1.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
textbox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
End If
End Sub

Merci de m'aider c'est urgent et je ne comprend pas ou est mon erreur!

cdt
0
Réponse 4 / 5
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juil. 2008 à 12:26
Voilà, j'ai fait remonter ton topic.

;o)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juil. 2008 à 14:14
De rien et bonne continuation.

;o)
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses