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é]

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é]

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,

[Mr l'Ashanti]

Super. Le design me plaît bien. Toutefois on ne peut toujours pas modifier la référence de l'élève si il passe en classe supérieure ou si il double.

Ok. Je vois ce que vous avez fait. Au lieu d'apporter la modification dans la partie listbox, vous l'avez mis dans la partie enregistrement. Ok. Je vois maintenant. Merci énormément.

Le problème est résolu mais il y a un bug. Quand je dans le module, après 30 secondes un message apparaît sur l'écran sans même appuyer sur le bouton exécuter.
Erreur d'exécution'91': variable objet ou variable de bloc with non définie
Je ne vois pas où se trouve le problème
Merci de m'aider

[boisgontierjacques]

Bonjour,

Pgm générique de modif,ajout,sup d'une BD (le pgm s 'adapte à la BD)

Boisgontier

[Mr l'Ashanti]

merci boisgontierjacques pour ce fichier. Les autres labels et textbox, puis je les supprimer ou ceux ci sont liés au code?

[boisgontierjacques]

-La BD doit être sous forme de tableau dynamique (nommé Tableau1)
-Les labels, textboxs peuvent être déplacés mais pas supprimés
-Un textbox peut être remplacé par un combobox s'il garde le même nom (textboxzz) - voir exemple en PJ -

Boisgontier

[Mr l'Ashanti]

Effectivement quand je les ai supprimé il y avait un message d'erreur. Ok.

Explique stp le rôle des boutons mode consul mod modif et ajout. Car lorsque je clique sur ajout rien ne s'ajoute mais lorsque je saisis et je clique sur validation modifier le nouveau nom s'ajoute.

[boisgontierjacques]

-Le bouton Ajout ajoute une fiche vierge qu'il faut remplir et valider avec le bouton Validation modif
-Le bouton consult interdit la validation de modif.


Boisgontier