incrémentation numéro de ligne Visual Basic

Version imprimable

15/02/2011, 15h37
kdison13

incrémentation numéro de ligne Visual Basic

Bonjour,

Je poste ce message car j'ai un problème de programmation!
Je fais actuellement un masque de saisie pour une enquête de façon à ce que ce soit plus simple pour la personne qui va saisir les données, mais aussi que je récupère une table 'propre' pour analyser (je suis statisticienne).

Il s'agit d'un formulaire simple qui demande de renseigner les initiales, le n°de dossier, la date de naissance, etc Et deux boutons: l'un qui permet d'annuler ce qui a été saisi et l'autre qui permet de poursuivre la saisie avec un autre userform et d'enregistrer.

Ce que je voudrais c'est que lorsque le userform1 est ouvert :
1. un numéro de ligne soit incrémenté automatiquement
2. que la saisie se fasse sur la première ligne vide

J'ai codé une partie, mais là je sèche! Lorsque je rentre un numéro de dossier, par exemple 123, alors je me retrouve avec trois lignes ayant: 1, 12, 123. Je ne comprends pas car les autres champs texte ne me font pas ça!

J'ai mis en pièce jointe mon fichier Excel et VB

Je n'ai pas de grande notion de Visual Basic donc si quelqu'un peut m'aider, je serai comblée !
Merci d'avance!!
15/02/2011, 17h37
pgz

Bonjour.

pour chercher la première ligne libre, tu peux consulter cette contribution d'ousk'l'nor

Cordialement,

PGZ

Bonjour
Ton approche consiste à reporter les données saisies dans ton userform vers la feuille "patient" au fur et à mesure de la saisie. C'est beaucoup de lignes de code, mais enfin, c'est un choix.

Dans cette ligne de mire, j'ai déclaré une variable NewLig en début de module de ton usf, sa valeur sera reprise pour le transfert des données de chaque controle.
le début est comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Option Explicit
 
Dim NewLig As Long
 
'Initialisation
Private Sub UserForm_Initialize()
Me.TextDate.Value = Format(Now(), "dd/mm/yyyy")
Me.TextNaissance.Value = Format("dd/mm/yyyy")
Me.TextTUT_ANNEE.Value = Format("dd/mm/yyyy")
'Initialisation de la nouvelle ligne
With Sheets("patient")
   NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
End With
End Sub
 
'N°de dossier
Private Sub TextSUBJID_AfterUpdate()
Sheets("patient").Range("A" & NewLig).Value = UCase(Me.TextSUBJID.Value)
End Sub
'Date
Private Sub TextDate_AfterUpdate()
Sheets("patient").Range("C" & NewLig).Value = Format(Me.TextDate.Value, "dd/mm/yyyy")
End Sub
'Examen effectué par
Private Sub TextExam_AfterUpdate()
Sheets("patient").Range("D" & NewLig).Value = UCase(Me.TextExam.Value)
End Sub
'Initiales du patient
Private Sub TextInitial_AfterUpdate()
Sheets("patient").Range("B" & NewLig).Value = UCase(Me.TextInitial.Value)
End Sub
'Date de naissance
Private Sub TextNaissance_AfterUpdate()
Sheets("patient").Range("E" & NewLig).Value = Format(Me.TextNaissance.Value, "dd/mm/yyyy")
End Sub
'Lieu de résidence
Private Sub TextResid_AfterUpdate()
Sheets("patient").Range("F" & NewLig).Value = Me.TextResid.Value
End Sub
'statut famo
'célibataire
Private Sub OptionCelib_Click()
If Me.OptionCelib.Value = True Then Sheets("patient").Range("G" & NewLig).Value = Me.OptionCelib.Caption
End Sub
'marié
Private Sub OptionMarie_Click()
If Me.OptionMarie.Value = True Then Sheets("patient").Range("G" & NewLig).Value = Me.OptionMarie.Caption
End Sub
'divorcé
Private Sub OptionDivorce_Click()
If OptionDivorce.Value = True Then Sheets("patient").Range("G" & NewLig).Value = Me.OptionDivorce.Caption
End Sub
' v|
Private Sub OptionVeuf_Click()
If Me.OptionVeuf.Value = True Then Sheets("patient").Range("G" & NewLig).Value = Me.OptionVeuf.Caption
End Sub
'vit en couple
Private Sub OptionCouple_Click()
If OptionCouple.Value = True Then Sheets("patient").Range("G" & NewLig).Value = Me.OptionCouple.Caption
End Sub
'...et le suite

Et ne pas oublier de modifier le code du bouton suivant

Code:

1
2
3
4
Private Sub CommandSuivant_Click()
NewLig = NewLig + 1
'...la suite
End Sub

16/02/2011, 10h01
kdison13

Merci beaucoup mercatog !

Citation:

Envoyé par mercatog

Ton approche consiste à reporter les données saisies dans ton userform vers la feuille "patient" au fur et à mesure de la saisie. C'est beaucoup de lignes de code, mais enfin, c'est un choix.

En fait je cherche juste à récupérer les infos saisies dans une table Excel, mais pas forcément au fur et à mesure de la saisie! Je t'avoues que j'ai trouvé ce type de code sur internet et je l'ai adopté car ça fonctionnait, mais si tu as un code plus court qui fait la même chose, je suis preneuse! Mais avec des explications! Le but est avant tout que je comprennes ce que je fais ! ;)

En continuant sur mon code de départ:
J'ai changé mon code par ce que tu m'as envoyé, mais j'ai encore des soucis!

Avant toutes choses, je voudrais te poser des questions sur ce code que tu m'as envoyé:
- A quoi servent les 'Me.' ?
- pourquoi mets-tu 'AfterUpdate()' dans les private sub et non plus les 'Change()'? Qu'est-ce que ça change? Y-a-t-il un lien avec le 'load UserForm1' dans la commande du bouton suivant?
- A quoi sert 'Ucase' ?

Le problème que j'ai c'est que quand j'arrive sur le userForm, je complète un champs comme 'date' par exemple et lorsque je clique sur un autre champ (afin de le remplir), alors j'ai un message d'erreur:

Citation:

Erreur d'exécution '1004'
Erreur définie par l'application ou par l'objet

et ça me pointe (surlignage jaune) la ligne correspondante:

Code:

Sheets("patient").Range("C" & NewLig).Value = Format(Me.TextDate.Value, "dd/mm/yyyy")

Je suis vraiment désolé, mais j'ai un peu de mal avec Visual Basic pour le moment!
16/02/2011, 10h11
mercatog

Bonjour,
1. Le Me indique l'usf, ça aide dans l'intelisense des contrôles. bon bref c'est un détail.
2. J'ai choisi Afterupdate (lire après mise à jour) au lieu de Change parce que je ne veux reporter la donnée vers la feuille excel qu'une fois cette donnée est entièrement saisie dans le contrôle de mon usf
3. Ucase permet de changer le texte en majuscule (aussi c'est un détail)
4. pour l'erreur, remplace cette ligne par

Code:

Sheets("patient").Range("C" & NewLig).Value = Me.TextDate.Value
16/02/2011, 10h16
kdison13

Je viens de remplacer la ligne mais toujours la même erreur! J'ai cette erreur pour n'importe quel champs et pas uniquement pour la date!
Je remets le code en pièce jointe si tu souhaite y rejeter un coup d'oeil!
En tous cas merci beaucoup pour tes réponses rapides!

Tu as oublié de déclarer newLig
[Edit]: mais voilà, l'Initialize de n'importe quel userform est

Code:

Private Sub UserForm_Initialize()

Alors que tu as mis

Code:

Private Sub UserForm1_Initialize()

De ce fait, l'erreur venait du fait que newLig reste à 0 (l'initalize de ton userform n'existe pas)
Fin [/Edit]

mais je propose d'arrêter cette approche et la remplacer comme ceci:
Tu supprime tout le code dans ton userform
on aura un seul code (pour l'instant), c'est celui du bouton Suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandSuivant_Click() Dim newLig As Long With Sheets("patient") newLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 'Première cellule vide dans colonne A (ligne où on va ajouter les données) .Range("A" & newLig).Value = Me.TextSUBJID.Value .Range("B" & newLig).Value = UCase(Me.TextInitial.Value) 'initiales en majuscule même si elles sont écrites en minuscule .Range("C" & newLig).Value = Format(Me.TextDate.Value, "dd/mm/yyyy") 'REPORTER LA SUITE DES CONTROLES '....... End With End Sub

D'accord!

J'ai bien remplacé mon code par ce que tu m'as dit:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub CommandSuivant_Click()
Dim newLig As Long
 
With Sheets("patient")
   newLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1   'Première cellule vide dans colonne A (ligne où on va ajouter les données)
   .Range("A" & newLig).Value = Me.TextSUBJID.Value
   .Range("B" & newLig).Value = UCase(Me.TextInitial.Value)   'initiales en majuscule même si elles sont écrites en minuscule
   .Range("C" & newLig).Value = Format(Me.TextDate.Value, "dd/mm/yyyy")
   .Range("D" & newLig).Value = UCase(Me.TextExam.Value)
   .Range("E" & newLig).Value = Format(Me.TextNaissance.Value, "dd/mm/yyyy")
   .Range("F" & newLig).Value = Me.TextResid.Value
   If Me.OptionCelib.Value = True Then .Range("G" & newLig).Value = Me.OptionCelib.Caption
   If Me.OptionMarie.Value = True Then .Range("G" & newLig).Value = Me.OptionMarie.Caption
   If Me.OptionDivorce.Value = True Then .Range("G" & newLig).Value = Me.OptionDivorce.Caption
   If Me.OptionVeuf.Value = True Then .Range("G" & newLig).Value = Me.OptionVeuf.Caption
   If Me.OptionCouple.Value = True Then .Range("G" & newLig).Value = Me.OptionCouple.Caption
   If Me.Optionnb_0.Value = True Then .Range("H" & newLig).Value = Me.Optionnb_0.Caption
   If Me.Optionnb_1.Value = True Then .Range("H" & newLig).Value = Me.Optionnb_1.Caption
   If Me.Optionnb_2.Value = True Then .Range("H" & newLig).Value = Me.Optionnb_2.Caption
   If Me.Optionnb_3.Value = True Then .Range("H" & newLig).Value = Me.Optionnb_3.Caption
   If Me.Optionnb_4.Value = True Then .Range("H" & newLig).Value = Me.Optionnb_4.Caption
   If Me.Optionnb_5.Value = True Then .Range("H" & newLig).Value = Me.Optionnb_5.Caption
   If Me.Optionnb_sup5.Value = True Then .Range("H" & newLig).Value = Me.Optionnb_sup5.Caption
   .Range("I" & newLig).Value = UCase(Me.TextAge_enfants.Value)
   .Range("J" & newLig).Value = UCase(Me.TextProf.Value)
   .Range("K" & newLig).Value = UCase(Me.Textrev_foy.Value)
   If Me.OptionNormal.Value = True Then .Range("L" & newLig).Value = Me.OptionNormal.Caption
   If Me.OptionConfort.Value = True Then .Range("L" & newLig).Value = Me.OptionConfort.Caption
   If Me.OptionConfort.Value = True Then .Range("L" & newLig).Value = Me.OptionConfort.Caption
   If Me.OptionTUT_OUI.Value = True Then .Range("M" & newLig).Value = Me.OptionTUT_OUI.Caption
   If Me.OptionTUT_NON.Value = True Then .Range("M" & newLig).Value = Me.OptionTUT_NON.Caption
   .Range("N" & newLig).Value = Format(Me.TextTUT_ANNEE.Value, "dd/mm/yyyy")
End With
End Sub

ça marche nikel! Merci beaucoup!

Maintenant j'aimerai bien savoir comment faire pour :
- lorsque je valide, ça écris et c'est super, mais je souhaiterais passer sur un autre UserForm (que je n'ai pas encore créé, mais du même type)et que ça me remplisse une autre feuille du classeur! J'imagine que c'est de la même façon exactement; mais le petit point subtil: je voudrais que le numéro de dossier patient (TextSUBJID) soit reporté sur la nouvel feuille! Il s'agit de mon identifiant pour mes analyses future!
- lorsque le bouton annuler est cliqué, ne pas enregistrer ce qui a été saisi avant!

Merci d'avance encore une fois !!!

1. Pour annuler (fermer l'userform)
Code:

1 2 3 Private Sub CommandAnnuler_Click() Unload Me End Sub
2. Pour ouvrir un autre usf et y reporter des données, ajoute ces lignes en fin du code de ton bouton suivant
Code:

1 2 3 4 5 6 7 8 9 '.... .Range("N" & newLig).Value = Format(Me.TextTUT_ANNEE.Value, "dd/mm/yyyy") End With Me.Hide Load UserForm2 UserForm2.TextBox1.Value = Me.TextSUBJID.Value 'textbox1 est le textbox de userform2 recevant le n° dossier UserForm2.Show 0 Unload Me End Sub

22/02/2011, 16h10
kdison13

Bonjour,
J'ai bien avancé sur l'établissement de mon questionnaire, bien que loin d'être terminé encore !
J'ai un nouveau 'soucis' : j'ai bien compris les boutons d'options avec le même nom de groupe pour qu'il n'y ait qu'un seul choix possible, mais c'est justement la récolte des données dans un cas où plusieurs choix sont possibles qui me pose problème! En effet, je souhaiterai écrire les réponses choisies dans une seule cellule Excel. J'avais commencé en attribuant un code à chaque combinaison possible. Cela est faisable lorsqu'il n'y a que 3 choix possibles au maximum, mais là je me retrouve avec une question ayant au maximum 9 choix possibles, et cette méthode de lister toutes les combi possibles est fastidieuse!
Auriez-vous une solution à m'apporter ?
Merci d'avance!