Bonjour,
J'aurai besoin d'aide sur un code qui me donne des cheveux blancs. J'ai créé un formulaire de saisie et j'ai dû faire une erreur, car lorsque je rempli mes champs sur le formulaire, je n'arrive jamais sur la dernière ligne vide de mon tableau lors de ma saisie.
Le deuxième problème est que dans mon formulaire de saisie, je ne peux pas passer d'un champs à l'autre dans l'ordre donnée avec le tabulateur. Qu'est-ce que j'ai fait faux ?
Voici mon code :
'***********************
'Procédure permettant d'ajouter un nouvel enregistrement
'dans la base de données
'***********************
Private Sub btnAjout_Click()
Sheets("Listing").Activate
Range("A8").Select
Selection.End(xlDown).Select 'On se positionne sur la dernière ligne non vide
Selection.Offset(1, 0).Select 'On se décale d'une ligne vers le bas
ActiveCell = cboSource.Value
ActiveCell.Offset(0, 1).Value = cboSource
ActiveCell.Offset(0, 2).Value = cboDépistage
ActiveCell.Offset(0, 3).Value = txtNom
ActiveCell.Offset(0, 4).Value = txtPrénom
ActiveCell.Offset(0, 5).Value = txtAdresse
ActiveCell.Offset(0, 6).Value = txtCP
ActiveCell.Offset(0, 7).Value = txtVille
ActiveCell.Offset(0, 8).Value = txtTéléphone
ActiveCell.Offset(0, 9).Value = txtMobile
ActiveCell.Offset(0, 10).Value = txtEmail
ActiveCell.Offset(0, 11).Value = cboSexe
MsgBox "Votre donnée a bien été ajoutée à la base de données", vbOKOnly + vbInformation, "CONFIRMATION"
End Sub
Un tout grand merci pour votre aide.
Relasi