Discussion :

[Mr l'Ashanti]

Bjr à vous
J'ai écrit ce code qui permet de modifier ma base de données .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim li as long, dl as long
if li<>0 then
DL=li
If msgbox("voulez vous modifier ces informations ?", Vbyesno+ vbquestion,"confirmation")= vbyesno then
DL=li
Sheets("source").range("c"&DL)=me.t_nom1
  Sheets("source").range("d"&DL)=me.t_prenoms1 
 Sheets("source").range("e"&DL)=me.cbo_sexe1
End if
End sub

mais rien ne se passe dans ma base de données. Quelqu'un peut venir à mon secours ?😖😖😖

[Invité]

Bonsoir,
Par quel miracle li pourrais être différent de zéro vue que tu ne lui affectes pas de valeur différente de zéro ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim li as long, dl as long
Ii=2
if li<>0 then

[Mr l'Ashanti]

Donc je pourrais la supprimer ou bien tu me suggères quoi?😞😞😞😞

J'aurais appris quand on déclare une variable elle prend la valeur zéro. Suis débutant en vba mais je bosse dure.

[Invité]

Tout langage de programmation à peur du vide, alors il oblige l'utilisateur à initialiser ses variables à zéro ou, et c'est le cas pour VBA, il le fait pour lui!

[Mr l'Ashanti]

Ok. C'est Noté.
Mais peux tu m'aider stp à trouver la solution à mon problème 🙏🙏🙏🙏

[Invité]

https://www.developpez.net/forums/d1...e/#post7819625

[Invité]

Pour cela il faut en dire un peut plus sur ce que tu veux faire exactement.

[Mr l'Ashanti]

Ok. Merci
J'ai une listbox qui est alimentée par une base de données dont les colonnes commencent de B7 à O1500 comme en-têtes. Quand je clique sur un élève dans la listbox, les textbox destinés à la modification récupèrent les informations de l'élève ( nom,prénoms,sexe, matricule,date de naissance, numéro d'extrait, statut, décision de fin d'année). Et là je porte les modifications dans les textbox et je valide. Ce qui me permettra d'actualiser la base de données si l'élève passe en classe supérieure ou double la classe ou est exclu. Voici un peu le travail que j'effectue. J'aurais souhaité t'envoyer mon fichier mais je travaille sur la connexion de mon phone donc limité en donnée.

[Invité]

En fait tu veux pouvoir enregistrer les modifications opérer dans ton formulaire en lieux et place de leurs provenance?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim li as long, dl as long
Ii=Activecells.row
if li>1 then 'ici j'imagine  que la ligne 1 est ton titre se colonne

[Mr l'Ashanti]

Oui. C'est exact...

Je ne sais pas si je vous suis mais ma ligne de colonnes commencent en B7 comme en-têtes.
Quand je rentre ce code il y a un message d'erreur sur activecells.row: variable non definie

[Invité]

J'utilise la plupart du temps mon téléphone portable, je n'es pas accès à mon ordinateur la plupart du temps.

Il faut publier le code !

[Mr l'Ashanti]

je n'arrive pas faire un copier coller du code . peux tu m'aider

[boisgontierjacques]

Bonjour,

J'ai ajouté pour les comboboxs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
   '--- spécial
   Me.TextBox4.List = [sexe].Value
   Me.textbox5.List = [classe].Value
   Me.TextBox8.List = [statut].Value
   Me.TextBox9.List = [dfa].Value
   Me.TextBox12.List = [fonction].Value

Boisgontier

[Invité]

Bonjour,
Je ne sais pas si le fichier de boisgontier s'appui sur le fichier que j'ai fournis plus haut, mais si c'est le cas il faut réduire 1 de scroll1.max en cas de suppression.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
scroll1.value =scroll1.value -1
scroll1.max =scroll1.max -1

[Mr l'Ashanti]

merci.
le boisgontier m'a fourni un autre fichier. et c'est sur ça je travaille car j ai vu qu'il me manquait un truc. je pouvais utiliser un seul userform avaec une seule page au lieu de deux pages et un seul bouton qui joue un double role comme modifier et ajouter. donc j ai du mettre ça en stand bye en attendant de trouver beaucoup de conseil ici et l'adaptant a mon fichier primitif.
donc tu peux jeter un coup d'œil au fichier joint plus haut.

[Invité]

Oui désolé la fougue de la jeunesse sens doute !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim li as long, dl as long
Ii=ActiveCell.row
if li>7 then 'ici j'imagine  que la ligne 1 est ton titre se colonne

[Mr l'Ashanti]

Quand je modifie les données, ça n'agit pas dans la base de données. Au contraire il ajoute le même nom mais cette fois à la ligne 16 car l'élève se trouve à la ligne b8. Les anciennes données sont là et aucune modification ne s'est opérée.

[Invité]

Présentes la partie du code qui affiche le formulaire et initialise les contrôles.

[Mr l'Ashanti]

ok.je t'envoie mon fichier . là tu pourras voir par toi même et apporter les suggestions.
je voudrais aussi si cela te plaise, permettre que tu puisses compléter le reste de mon code
voici la preoccupation
- j'arrive a supprimer mes lignes quand je sélectionne les élèves dans la List box. mais le comble est que même quand je ne sélectionne rien en cliquant sur la touche "supprimer" ça supprime.
donc je souhaiterais que tu insères un code qui va empêcher la suppression des lignes tant qu'on ne sélectionne pas dans la List box.

[Invité]

Bonjour,